While

Le
Magic Man
C'est quoi la commande pour arrêter while ?

Genre:
Sub test()
Dim Z AsInteger
While Cells(2, Z) <> 5
Z = Z + 1
If Z > 4 Then ???
Wend
End Sub

--
Magic Man
magicman@zefo.ca
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #5011541
bonjour,

il n'existe pas de exit pour ce type de boucle,
seulement ceux ci :

Exit Do
Exit For
Exit Function
Exit Property
Exit Sub

par ailleurs, l'instruction Do...Loop permet d'exécuter une itération de manière plus structurée et plus souple.

isabelle

C'est quoi la commande pour arrêter while ?

Genre:
Sub test()
Dim Z AsInteger
While Cells(2, Z) <> 5
Z = Z + 1
If Z > 4 Then ???
Wend
End Sub



Trirème
Le #5011201
Bonjour Magic Man,
À l'intérieur de la boucle While... Wend il doit y avoir des instructions qui
agissent sur ce qui est testé par l'instruction While. Dans ton exemple, le
contenu de Cells(2,Z) doit passer à '5' pour sortir. Il se peut que cela
n'arrive jamais.
Sans précision sur le but de la boucle, on peut faire comme ceci :
Z = 1
While Cells(2, Z) <> 5 And Z <= 4
' instructions
' ...
Z = Z + 1
Wend

Alternative avec Do... Until

Ce qui revient à faire une boucle
For Z = 1 To 4
If Cells(2, Z) = 5 Then Exit For
...
Next

Cordialement,
Trirème

C'est quoi la commande pour arrêter while ?

Genre:
Sub test()
Dim Z AsInteger
While Cells(2, Z) <> 5
Z = Z + 1
If Z > 4 Then ???
Wend
End Sub



Publicité
Poster une réponse
Anonyme