[RESOLU] Boucle qui plante (For - Next)

[Babytroll]

Bonjour,

J'ai ce bout de code qui m'ennui :

Private Sub CommandButton1_Click()
For i = 1 To 10
If Me.Controls("TextBox" & i) = "" Then
MsgBox "Veuillez remplir tous les champs"
Me.Controls("TextBox" & i).SetFocus
Exit Sub
End If
Next i
Unload Me
End Sub

Le contrôle fonctionne (msgbox qd une textbox vide), mais si toutes les cellules sont vides = plantage...

Il s'agit donc de tester toutes les textbox de mon userform, mais ça plante irrémédiablement.
Je suis sous 2010.

Merci de votre aide, en espérant avoir donné toutes les indications nécessaires...

 

[david84]

Re : Boucle qui plante (For - Next)

Bonjour,
avec un petit fichier exemple ce serait plus simple de t'aider...
A+

 

[Paf]

Re : Boucle qui plante (For - Next)

Bonjour

Si ça plante quand la boucle se déroule complétement, peut-être n'y a-t-il pas 10 textbox , ou que certains noms ne sont pas de la forme : TextBox1,TextBox2 ,TextBox3 ....TextBox10 ?

Si c'est pas ça, un classeur permettra de mieux diagnostiquer.

A+

 

[joss56]

Re : Boucle qui plante (For - Next)

Bonsoir,

Cela fonctionne très bien sur mon poste...?!!!

 

[david84]

Re : Boucle qui plante (For - Next)

A tester si cela peut t'aider (à placer dans un bouton de commande par exemple) :

Private Sub CommandButton1_Click()
Dim Ctl As Control
For Each Ctl In Me.Controls
  'Debug.Print TypeName(Ctl)
  If TypeOf Ctl Is MSForms.TextBox Then
    MsgBox "Vous êtes passé dans un contrôle " & TypeName(Ctl)
  End If
Next
End Sub

A+

 

[camarchepas]

Re : Boucle qui plante (For - Next)

Bonsoir ,

Je confirme l'essai de Joss , cela fonctionne trés bien si les textbox sont brutes de fonderie numérotés de 1 à 10

 

[Babytroll]

Re : Boucle qui plante (For - Next)

Bonjour, vous êtes tous super rapide...

Je vais tenter de vérifier avec vos infos, je reviens ASAP.
Si ça ne va toujours pas je joindrai le fichier.

Merci.

 

[Babytroll]

Re : Boucle qui plante (For - Next)

Yes ça fonctionne en effet, j'ai viré toutes les textbox et recommencé, il y avait un saut dans la numérotation de celles-ci.
Là ça marche impecc.

Merci à tous !