Boucle dans un userform
Fermé
jp
-
11 mars 2013 à 23:03
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 12 mars 2013 à 14:04
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 12 mars 2013 à 14:04
3 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
12 mars 2013 à 09:43
12 mars 2013 à 09:43
Bonjour,
Pour moi, pas besoin de boucle (sauf si je n'ai pas compris votre demarche)
un exemple de programme:
https://www.cjoint.com/c/CCmjOVEo1nv
A+
Pour moi, pas besoin de boucle (sauf si je n'ai pas compris votre demarche)
un exemple de programme:
https://www.cjoint.com/c/CCmjOVEo1nv
A+
Bonjour
J'ai besoins d'une boucle
car dans mon user forme j'ai "20 ligne" de textBox ou Combox
et au lieut d'écire 20 fois le code
Private Sub ComboBoxTypeAcier(i)_Change()
Select Case ComboBoxTypeAcier(i)
Case "TOTO"
LabelA(i).Visible = True
ComboBoxA(i).Visible = True
TextBoxA(i).Visible = True
LabelB(i).Visible = False
ComboBoxB(i).Visible = False
TextBoxB(i).Visible = False
LabelC(i).Visible = False
ComboBoxC(i).Visible = False
TextBoxC(i).Visible = False
Case "TITI"
LabelA(i).Visible = True
ComboBoxA(i).Visible = True
TextBoxA(i).Visible = True
LabelB(i).Visible = False
ComboBoxB(i).Visible = False
TextBoxB(i).Visible = False
LabelC(i).Visible = False
ComboBoxC(i).Visible = True
TextBoxC(i).Visible = True
Case "TATA"
LabelA(i).Visible = True
ComboBoxA(i).Visible = True
TextBoxA(i).Visible = True
LabelB(i).Visible = True
ComboBoxB(i).Visible = True
TextBoxB(i).Visible = True
LabelC(i).Visible = True
ComboBoxC(i).Visible = True
TextBoxC(i).Visible = True
Case Else
LabelA(i).Visible = False
ComboBoxA(i).Visible = False
TextBoxA(i).Visible = False
LabelB(i).Visible = False
ComboBoxB(i).Visible = False
TextBoxB(i).Visible = False
LabelC(i).Visible = False
ComboBoxC(i).Visible = False
TextBoxC(i).Visible = False
End Select
End Sub
en remplàçant i par 1 puis 2 puis ... jusque à 20
j'aurai aimer faire une boucle
Merci de m'aider
J'ai besoins d'une boucle
car dans mon user forme j'ai "20 ligne" de textBox ou Combox
et au lieut d'écire 20 fois le code
Private Sub ComboBoxTypeAcier(i)_Change()
Select Case ComboBoxTypeAcier(i)
Case "TOTO"
LabelA(i).Visible = True
ComboBoxA(i).Visible = True
TextBoxA(i).Visible = True
LabelB(i).Visible = False
ComboBoxB(i).Visible = False
TextBoxB(i).Visible = False
LabelC(i).Visible = False
ComboBoxC(i).Visible = False
TextBoxC(i).Visible = False
Case "TITI"
LabelA(i).Visible = True
ComboBoxA(i).Visible = True
TextBoxA(i).Visible = True
LabelB(i).Visible = False
ComboBoxB(i).Visible = False
TextBoxB(i).Visible = False
LabelC(i).Visible = False
ComboBoxC(i).Visible = True
TextBoxC(i).Visible = True
Case "TATA"
LabelA(i).Visible = True
ComboBoxA(i).Visible = True
TextBoxA(i).Visible = True
LabelB(i).Visible = True
ComboBoxB(i).Visible = True
TextBoxB(i).Visible = True
LabelC(i).Visible = True
ComboBoxC(i).Visible = True
TextBoxC(i).Visible = True
Case Else
LabelA(i).Visible = False
ComboBoxA(i).Visible = False
TextBoxA(i).Visible = False
LabelB(i).Visible = False
ComboBoxB(i).Visible = False
TextBoxB(i).Visible = False
LabelC(i).Visible = False
ComboBoxC(i).Visible = False
TextBoxC(i).Visible = False
End Select
End Sub
en remplàçant i par 1 puis 2 puis ... jusque à 20
j'aurai aimer faire une boucle
Merci de m'aider
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
Modifié par f894009 le 12/03/2013 à 14:06
Modifié par f894009 le 12/03/2013 à 14:06
Re,
Desole, ca ne marche pas comme vous le demander. Dans l'exemple donne, c'est sur l'interception de l'evenement change des combobox que vous pourrez faire votre mise a jour de votre Userform. De ce fait,je ne vois pas l'utilite d'une boucle for next sur le combobox
A+
Desole, ca ne marche pas comme vous le demander. Dans l'exemple donne, c'est sur l'interception de l'evenement change des combobox que vous pourrez faire votre mise a jour de votre Userform. De ce fait,je ne vois pas l'utilite d'une boucle for next sur le combobox
A+