Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[RESOLU] Boucle qui plante (For - Next)

  • Initiateur de la discussion Initiateur de la discussion Babytroll
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

Babytroll

Guest
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...
 
Dernière modification par un modérateur:
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+
 
Re : Boucle qui plante (For - Next)

A tester si cela peut t'aider (à placer dans un bouton de commande par exemple) :
Code:
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+
 
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.
 
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 !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
15
Affichages
657
Réponses
2
Affichages
496
Réponses
8
Affichages
749
Réponses
5
Affichages
839
Réponses
10
Affichages
633
Réponses
5
Affichages
551
Réponses
3
Affichages
903
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…