PARTIE 2 - La structuration et le traitement de l'information dans les organisations Reprenons l'exemple du calcul du prix TTC d'un produit avec une TVA à 20 %. Algorithme Algorithme : Calcul d'un prix TTC à 20 % Variables : PrixHT, MntTVA, PrixTTC : réel Constante : TauxTVA = 20 % Début Saisir PrixHT MntTVA PrixHT × TauxTVA PrixTTC PrixHT + MntTVA Afficher PrixTTC Fin Sub PrixTTC() Dim PrixHT As Single Dim MntTVA As Single Dim PrixTTC As Single Const TauxTVA = 20 % PrixHT = InputBox (« Saisir le prix HT : », « PrixHT ») MntTVA = PrixHT × TauxTVA PrixTTC = PrixHT + MntTVA MsgBox (« Le prix TTC est » & Prix TTC) End Sub NB : nous expliquerons « InputBox » et « MsgBox » dans un point suivant. Macro-commande en Visual Basic VI Les structures alternatives et itératives Comme indiqué en introduction, sont utilisées : - les structures alternatives ou tests (simples et imbriquées) qui se caractérisent par une condition (un test) et deux actions possibles (test vrai ou test faux) ; - les structures itératives ou répétitives ou boucles qui permettent de répéter l'exécution d'une action jusqu'à ce qu'une condition soit réalisée. A La structure alternative La structure alternative permet l'exécution d'une action sous certaines conditions. Les instructions VBA sont les suivantes : If condition Then Instructions 1 Else Instructions 2 End If 262