pb de boucle

N

Noël

Guest

• 26 Novembre 2003

• #2

Je crois que je mettrais Do Until ....
et Loop ensuite, mais je ne sais pas si ça suffira !!

j'ai un probleme sur le même sujet :
Do Until e = Xmax + 1
Produitbis = CLASSEUR.Sheets(1).Cells(Ligne, e).Value
If InStr(1, Produitbis, Produit2) > 0 Then
e = e + 1
Loop

et le débogueur m'indique boucle sans Do en se plaçant sur le "Loop" ...

Une idée ???

Noël

 

Vote positif 0 Vote négatif

J

JPM

Guest

• 26 Novembre 2003

• #3

Pour Noel il manque le End IF
Pour Ben je cherche

A+
JPM

 

Vote positif 0 Vote négatif

B

ben

Guest

• 27 Novembre 2003

• #4

merci d'avoir regarder mon pb, si tu trouve jpm c'est cool

 

Vote positif 0 Vote négatif

J

JPM

Guest

• 27 Novembre 2003

• #5

C'est un peu long mais voila une solution
Vire le do

Private Sub TextBox1_LostFocus()
If TextBox1.Text = "" Then
MsgBox ("Bla Bla Bla")
TextBox1.Activate
Else
MsgBox ("c'est bon")
End If
End Sub


A+
JPM

 

Vote positif 0 Vote négatif