Easy-Micro

ESPACEMEMBRE Structures de contrôles VBA
Do 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

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

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

Flux RSS Easy-Micro - Abonnez-vous Easy-Micro [ François Bisch ]