VBA : La boucle TANT QUE



La seconde structure répétitive utilisée en algorithmie est la boucle TANT QUE, vous devez la choisir à chaque fois que le nombre d'itérations vous est inconnu au départ et que vous souhaitez évaluer votre condition en entrant dans la boucle. Sa notation générale pourrait s'écrire comme cela :
TANT QUE Condition FAIRE
    Action(s)
Fin de TANT QUE
Voyons comment utiliser cette structure en langage VBA.

- 1 - Dans ce premier exemple nous demandons à l'utilisateur de saisir un nombre entier qui sera stocké dans un tableau. La saisie s'arrêtera lorsque l'utilisateur répondra N à la question "voulez vous entrez un autre nombre ?" Ainsi on n'ignore au départ le nombre d'entier qui sera saisie (cela dépend de l'utilisateur).

Sub MaBoucle_1()
Dim MonTableau(100) As Integer
Dim reponse  As String
Dim x As Integer
x = 1
Do While reponse <> "N"
    MonTableau(x) = InputBox("Entrez un nombre entier ?", "
Bonjour", 0)
    x = x + 1
    reponse = UCase(InputBox("Voulez vous rejouer o/n ?", "Bonjour", "O"))
Loop
End Sub


- 2 - Bien évidement l'une des actions contenue dans la boucle doit être susceptible de modifier la condition d'entrée dans la boucle, ainsi dans ce deuxième exemple (surtout ne le tester pas) nous courons droit au désastre puisque rien ne viendra jamais modifier la valeur de la variable reponse.

Sub MaBoucle_2()
Dim MonTableau(100) As Integer
Dim reponse  As String
Dim x As Integer
x = 1
Do While reponse <> "N"
    MonTableau(x) = InputBox("Entrez un nombre entier ?", " ", 0)
    x = x + 1
Loop
End Sub


- 3 - Il existe une autre syntaxe VBA pour l'écriture de la boucle tant que, dans ce troisième exemple nous allons colorier les cellules de la feuille de calcul à l'aide des 57 valeurs possibles de la propriété Interior.ColorIndex

Sub MaBoucle_3()
Dim nbCouleur As Byte
Dim ligne As Byte
nbCouleur = 0
ligne = 1
While ligne <= 57
    Range("A" & ligne).Select
    Selection.Interior.ColorIndex = nbCouleur

'changeons l'index de couleur et incrémentons la ligne pour espérer sortir de la boucle
    nbCouleur = nbCouleur + 1
    ligne = ligne + 1
Wend
End Sub



VBA : La boucle POUR



La première structure répétitive utilisée en algorithmie est la boucle POUR, vous devez la choisir à chaque fois que le nombre d'itérations est connu au départ. Sa notation générale pourrait s'écrire comme cela :
POUR Compteur variant de Min à Max FAIRE
 Action(s)
Fin de POUR
Voyons comment utiliser cette structure en langage VBA.


- 1 - Dans ce premier exemple nous allons effectuer la multiplication par 7 d'un entier x variant de 1 à 10, et écrire le résultat dans la colonne A de notre feuille de calcul grâce à la fonction cells(ligne, colonne) :


Sub Ma_boucle_1()
Dim x As Integer
For x = 1 To 10
Cells(x, 1) = x * 7
Next x
End Sub


L'emploi de la variable x derrière l'instruction Next est facultative. Vous noterez que je n'ai pas initialisé la variable x au préalable, cette initialisation se fait en affectant la valeur 1 en entrée de boucle.


- 2 - Dans ce deuxième exemple nous allons préciser la valeur de l'incrément grâce à l'instruction Step (faute de quoi l'incrément est forcément de 1) :


Sub Ma_boucle_2()
Dim x As Integer
Dim y As Integer
y = 0
For x = 1 To 10 Step 3
y = y + 1
Cells(y, 1) = x * 7
Next
End Sub


La variable y me permet de bien écrire sur la ligne suivante à chaque itération, autrement j'écrirai une ligne sur 3.


- 3 - A l'inverse, il peut également y avoir décrémentation de la variable, faisons la table de 7 à l'envers...


Sub Ma_boucle_3()
Dim x As Integer
Dim y As Integer
y = 1
For x = 10 To 1 Step -1
Cells(y, 1) = x * 7
y = y + 1
Next x
End Sub


Attention, si vous ne précisez pas la valeur de décrément, la boucle ne fonctionnera pas.


- 4 - Pour finir un grand classique : L'imbrication de deux boucles POUR. Ici nous souhaitons créer une table avec tous les multiplicateurs de 1 à 10, nous devons donc imbriquer deux boucles pour gérer les écritures en lignes et en colonnes.


Sub table_multiplication()
Dim x As Integer
Dim y As Integer
Dim col As Integer
Dim lig As Integer
Cells(1, 1).Select
Cells(1, 1) = "*"
With Selection
.Font.Bold = True
.Font.Size = 16
.Font.ColorIndex = 3
.HorizontalAlignment = xlCenter
End With
'Ecrivons les entêtes de colonnes
For y = 1 To 10
Cells(1, y + 1).Select
Cells(1, y + 1) = y
With Selection
.Font.Bold = True
.Font.Size = 16
.Font.ColorIndex = 3
.HorizontalAlignment = xlCenter
End With
Next
'Ecrivons les entêtes de lignes
For x = 1 To 10
Cells(x + 1, 1).Select
Cells(x + 1, 1) = x
With Selection
.Font.Bold = True
.Font.Size = 16
.Font.ColorIndex = 3
.HorizontalAlignment = xlCenter
End With
Next
'nous devons connaitre les coordonnées de départ
Range("B2").Select
lig = Selection.Row
col = Selection.Column
For x = 1 To 10 Step 1
For y = 1 To 10 Step 1
Cells(lig, col) = x * y
col = col + 1
'il faut ramener le curseur en début de ligne
If col = 12 Then
col = 2
End If
Next y
lig = lig + 1
Next x
End Sub 




VBA : Les constantes



Les constantes sont des emplacements de mémoires réservés pour le traitement de vos procédures, mais contrairement aux variables leurs contenus ne seront pas modifiés  au cours de l’exécution du programme. Peut employés elles sont pourtant fort utile pour simplifier l’écriture du code informatique…
A l’instar des variables il faudra les déclarer à l’aide du mot clé CONST puis les initialiser, la déclaration du type étant facultatif.

Const nom (as Type) = valeur 

- 1 – Dans ce premier exemple nous voyons que l’écriture du deuxième Msgbox est facilitée par l’emploie des constantes pi et message, mais il faut aussi considérer qu’il suffirait par exemple de modifier la valeur de la constante pi pour que cette valeur se modifie dans l’ensemble de votre programme ou vous y faites référence. Ainsi le passage de pi à la valeur 3.14 modifiera l’affichage du deuxième et troisième Msgbox, mais pas du premier. En limitant le nombre de saisie on limite évidement des erreurs éventuelles.

Sub ma_procedure_1()
          Const pi = 3.1415927
          Const message = "La valeur de Pi est : "
          Dim surface As Single
          Dim rayon As Single
          rayon = 2
          MsgBox "La valeur de Pi est : 3,1415927"
          MsgBox message & pi
          surface = pi * rayon * rayon
          MsgBox "Surface = " & surface & " M²"
End Sub


- 2 – Les procédures ont également une portée, ainsi dans ce deuxième exemple le résultat du calcul est nul car les constantes pi et messages sont locales à la  procédure « ma_procedure_1() »

Sub ma_procedure_2()
            Dim surface2 As Single
            Dim rayon2 As Single
            rayon2 = 1
            MsgBox "La valeur de Pi est : 3,1415927"
            MsgBox message & pi
            surface2 = pi * rayon2 * rayon2
            MsgBox "Surface = " & surface2 & " M²"
End Sub


Il faut donc dans ce cas déclarer les constantes comme locales à la feuille de code (globales aux procédures de cette feuille) de là manière suivante :

            Const pi = 3.1415927
            Const message as String = "La valeur de Pi est : "
___________________________________________________________
Sub ma_procedure_1()
            Dim surface As Single
            Dim rayon As Single
            rayon = 2
            MsgBox "La valeur de Pi est : 3,1415927"
            MsgBox message & pi
            surface = pi * rayon * rayon
           
MsgBox "Surface = " & surface & " M²"
End Sub
____________________________________________________________
Sub ma_procedure_2()
Dim surface2 As Single
Dim rayon2 As Single
            rayon2 = 1
            MsgBox "La valeur de Pi est : 3,1415927"
            MsgBox message & pi
            surface2 = pi * rayon2 * rayon2
            MsgBox "Surface = " & surface2 & " M²"
End Sub


- 3 - Par contre si votre procédure se trouve sur une autre feuille de code (module de feuille ou de classeur) alors une déclaration publique dans le module générale de votre feuille de code est nécessaire. C'est-à-dire que vous rendez vos constantes utilisables dans l’ensemble du projet Visual Basic.

            Public Const pi = 3.1415927
            Public Const message As String = "La valeur de Pi est : "


- 4 - Enfin sachez que les programmeurs VBA aiment à utiliser les constantes pour la simplification de l’écriture des boîtes de dialogues, notamment du Msgbox. Comparez les deux procédures suivantes, vous constaterez que la seconde sera plus simple à modifier, surtout si l’on doit utiliser de nombreuses fois cette Msgbox.
Sub ma_procedure_3()
Dim choix As String
            choix = MsgBox("Aimez vous ce blog ? ", vbDefaultButton2 + vbYesNo + vbQuestion, "olivier-picot.fr")
            Select Case choix
                        Case Is = vbYes
                                    Exit Sub
                        Case Is = vbNo
                                    Exit Sub
            End Select
End Sub
_________________________________________________________________
Sub ma_procedure_4()
            Dim choix As String
            Const invite As String = "Aimez vous ce blog ? "
            Const typeboite As String = vbDefaultButton2 + vbYesNo + vbQuestion
            Const titre As String = "olivier-picot.fr"
            choix = MsgBox(invite, typeboite, titre)
            Select Case choix
                        Case Is = vbYes
                                    Exit Sub
                        Case Is = vbNo
                                    Exit Sub
            End Select
End Sub
 




top