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 ]
Lundi 25 mars 2019 - Semaine 13 - Saint Humbert (Demain: Sainte Larissa)
Aujourd'hui, c'est l'anniversaire de Marcia Cross (1962-57 ans), comédienne américaine (rôle de Bree Van de Kamp dans Desperate Housewives). Autre 25 mars: 1918 : décès à Paris du compositeur français Claude Debussy. 1984 : Alain Prost gagne le grand prix de Formule 1 du Brésil.
Haut de page Easy-Micro