Structures de contrôles VBADo Loop Until-While
Boucle Do Loop Until/While
Jusque avec Until et Tant que avec While
Syntaxe:
Do
Bloc d'instructions
Loop Until/While conditions
Exemple avec Until - Jusque
Sub BoucleLoop()
Dim N As Byte
Do
N = N + 1
MsgBox "Message d'essai numéro " & N
Loop Until N = 5
End Sub
-> Ce code affiche 5 fois le message
Dim N As Byte
Do
N = N + 1
MsgBox "Message d'essai numéro " & N
Loop Until N = 5
End Sub
-> Ce code affiche 5 fois le message
Exemple avec While - Tant que
Sub BoucleLoop()
Dim N As Byte
Do
N = N + 1
MsgBox "Message d'essai"
Loop While N < 5
End Sub
Dim N As Byte
Do
N = N + 1
MsgBox "Message d'essai"
Loop While N < 5
End Sub
Exemple de WHILE ... WEND
Sub Atteindre_La_Premiere_Cellule_Vide()
Dim i As Byte
i = 1
' Tans que les cellules de la colonne sont pleine, on avance
While Cells(i, 1) <> ""
i = i + 1 ' A ne pas oublier sinon boucle infini
Wend
' et on saisie un texte dans la première cellule
' qui ne remplie pas la condition du while
Cells(i, 1).value = "Coucou"
'Eventuellement, on sélectionne la ligne correspondante
Rows(i).Select
End Sub
Dim i As Byte
i = 1
' Tans que les cellules de la colonne sont pleine, on avance
While Cells(i, 1) <> ""
i = i + 1 ' A ne pas oublier sinon boucle infini
Wend
' et on saisie un texte dans la première cellule
' qui ne remplie pas la condition du while
Cells(i, 1).value = "Coucou"
'Eventuellement, on sélectionne la ligne correspondante
Rows(i).Select
End Sub
