Do until ... Loop ne fonctionne pas (résolu)

[Cougar]

Bonjour le forum,

Ma boucle Do until ne voit la condition pour poursuivre le code. La condition étant remplie (=), il passe outre cette condition ?

Comment corriger le code ?

Merci

 

[kjin]

Re : Do until ... Loop ne fonctionne pas

Bonsoir,
A quoi sert la boucle ?

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex = -1 Or Not IsNumeric(TextBox3) Then Exit Sub
Cells(ComboBox1.ListIndex + 3, 5) = Cells(ComboBox1.ListIndex + 3, 5) + TextBox3
End Sub

A+
kjin

 

[Staple1600]

Re : Do until ... Loop ne fonctionne pas

Bonsoir à tous

Pour le plaisir de croiser Sieur kjin, avec mon endive sous le coude 😉
Private Sub CommandButton1_Click()
With ComboBox1
If .ListIndex = -1 Or Not IsNumeric(TextBox3) Then Exit Sub
Cells(.ListIndex + 3, 5) = Cells(.ListIndex + 3, 5) + TextBox3
End With
End Sub

PS: Bonsoir également à Jean-Marcel

 

[Cougar]

Re : Do until ... Loop ne fonctionne pas

Bonjour à tous, le forum,

Plusieurs possibilités que je ne connaissais pas, la raison de ma boucle.

Merci beaucoup à vous tous.