pb de boucle

[ben]

bonjour le forum

Mon souci est le suivant :
comment faire pour que ma boucle se positionne sur le textbox1 après le message msgbox car la ca boucle et je peux plus arreter


Do
MsgBox "Attention : Vous n'avez pas changé le nom du fichier de destination"


Loop Until TextBox1 = ""

merci !!

 

[Noël]

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

 

[JPM]

Pour Noel il manque le End IF
Pour Ben je cherche

A+
JPM

 

[ben]

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

 

[JPM]

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