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


Suivez les aventures des skippers aquitains sur EasyVoile.com
Flux RSS Easy-Micro - Abonnez-vous Easy-Micro [ François Bisch ]
Dimanche 21 juillet 2019 - Semaine 29 - Saint Victor (Demain: Sainte Marie-Madeleine)
Aujourd'hui, c'est l'anniversaire de Hubert-Felix Thiefaine (1948-71 ans), chanteur français et de Charlotte Gainsbourg (1971), actrice française. Autre 21 juillet: 1798 - Victoire de la "bataille des pyramides" par Bonaparte.
Haut de page Easy-Micro