Sortez d'une boucle While...Wend

Question

Je suis en train d'utiliser une boucle While...Wend en VBA.

Dim count as Integer

While True
    count=count+1

    If count = 10 Then
        ''Quelle est la déclaration pour sortir de la boucle While...Wend? 
        ''Break ou Exit While ne fonctionnent pas
    EndIf
Wend

Je ne veux pas utiliser de condition comme `While count<=10...Wend`

Answer 1

Une boucle While/ Wend ne peut être interrompue prématurément qu'avec un GOTO ou en sortant d'un bloc extérieur ( Exit sub/ function ou une autre boucle pouvant être quittée)

Changer pour une boucle Do à la place:

 Do While True
    count = count + 1

    If count = 10 Then
        Exit Do
    End If
Loop

Ou pour boucler un nombre défini de fois:

for count = 1 to 10
   msgbox count
next

( Exit For peut être utilisé ci-dessus pour sortir prématurément)

Answer 2

Et si on réglait les paramètres du test "While" dans la boucle afin que la boucle se termine à la prochaine itération. Par exemple...

OS = 0
While OS <> 1000 
OS = OS + 1 
If OS = 500 Then OS = 1000 
Wend

D'accord, c'est un exemple totalement inutile mais cela montre le principe...

Answer 3

Une autre option serait de définir une variable drapeau comme un Boolean puis de changer cette valeur en fonction de vos critères.

Dim count as Integer 
Dim flag as Boolean

flag = True

While flag
    count = count + 1 

    If count = 10 Then
        'Définir le drapeau sur faux         '
        flag = false
    End If 
Wend

Answer 4

La meilleure façon est d'utiliser une clause And dans votre déclaration While

Dim count as Integer
count =0
While True And count <= 10
    count=count+1
    Debug.Print(count)
Wend