Tant Que

La fonction réalise l'action tant que la condition est vraie.

1
While condition
2
 action
3
Wend

ExempleDemande un code jusqu'à ce qu'il soit trouvé

1
Sub code()
2
 Dim nombre As Integer
3
 While nombre <> 123
4
  nombre = InputBox("Donnez le code")
5
 Wend
6
 MsgBox ("bravo")
7
End Sub

InputBox : Boite de dialogue simple, qui permet de lire une chaîne de caractères.

MsgBox : Boite de dialogue simple, qui permet d'afficher une chaîne de caractères.