Besoin d'une boucleRésolu

Question

Bonjour les ptis loups

J'aimerai mettre une boucle dans ce petit programme. Le but est de dire que tant que la valeur du label76 n'est pas egale à la valeur de la textbox2, je copie et colle des cellules une fois que la valeur du label76 est egale à la textbox 2 je sort de la boucle et j'arrive à ma msgbox. avec DO et LOOP on peux faire quelque chose??? merci

Private Sub CommandButton6_Click()
If Label76.Caption = textbox2.Value Then
MsgBox "Le chariot demandé est arrivé au capotage de déchargement"
Else
Range("A1:A164").Select
ActiveWindow.SmallScroll down:=1
Selection.Cut Destination:=Range("A2:A165")
Range("A165").Select
ActiveWindow.SmallScroll up:=1
Selection.Cut Destination:=Range("A1")
End If
End Sub

cs_Jack · Accepted Answer

Salut Oui Screen.MousePointer = vbHourGlass Do While Label76.Caption <> TextBox2.Text Range ... ' tout ton code de copie ' Attention, ce code s'exécutera des milliers de fois, tant que la condition est vraie ! DoEvents Loop MsgBox "Le chariot ..." Screen.MousePointer = vbNormal Vala Jack, MVP VB NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

ticrain · Answer

Bonjour les ptis loups

 ' Attention, ce code s'exécutera des milliers de fois, tant que la condition est vraie !

Moi je veux que ce code s'execute tant que la condition label76.caption = textbox2.value n'est pas vrai!

ticrain · Answer

Bonjour les ptis loups

Ton code marche parfaitement bravo et merci

Besoin d'une boucle

3 réponses

Votre réponse

Discussions similaires