Initialization combobox dans une boucle for

K.GUERIOUNE -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

j'ai une question par apport à l'initialisation d'un combobox dans une boucle for

le code est comme suis:

--------------------------
boucle for i = 1 to 5
userform1.show ' Userform1 contient un combobox1 et un commandbatton1
Userform2.show ' Userform2 contient un combobox2 et un commandbattom2
Next i
-------------------------

Combobox1 contient les valeurs " val1, val2,val3 "

Combobox2 de Userfom2, je voudrais l'initialiser en fonction des valeurs de combobox1 de Userform1.


c a d, si combobox1 =val1 => combobox2 affiche x,y,z
si combobox1 =val2 => Combobox2 affiche a,b,c

J'ai fait le code, par contre Combobox2 du Userform2 affiche au début ( i=1) x,y,z pour combobox1=val1.

Cependant, quand (i=2), et je choisi combobox1=val2, combobox1 affiche aussi x,y,z au lieu de a,b,c



Merci pour vos réponses
Cordiallement
K.GUERIOUNE
A voir également:

2 réponses

Réponse 1 / 2
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
Bonjour,

Code plus qu'étrange où tu boucles 5 fois pour ouvrir deux userforms que tu ne fermes d'ailleurs pas. Je doute que ça fonctionne même si je n'ai pas testé...
0
K.GUERIOUNE
 
Bonjour ThauTheme,

En fait, je ferme le Userform1 en cliquant sur Commandbottom1

et je ferme le Userform2 en cliquant sur Commandbotton2

Je boucle 5 fois,
Pour chaque i, je définit la liste des valeurs de combobox2 en fonction de la valeur choisie du combobox1
0
Réponse 2 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Mettre ce code dans l'UserForm1: 

Option Explicit
Private Sub CommandButton1_Click()
UserForm2.Show
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem ("val1")
ComboBox1.AddItem ("val2")
ComboBox1.AddItem ("val3")
ComboBox1.ListIndex = 0
End Sub


Et ce code dans l'UserForm2: 

Option Explicit
Private Sub ComboBox2_Change()
  UserForm1.ComboBox1.ListIndex = ComboBox2.ListIndex
End Sub
Private Sub UserForm_Initialize()
ComboBox2.AddItem ("xyz")
ComboBox2.AddItem ("abc")
ComboBox2.AddItem ("def")
ComboBox2.ListIndex = UserForm1.ComboBox1.ListIndex
End Sub

0

Discussions similaires

Mon pc s'allume et s'éteint en boucle
Jack -
Daniel -

16 réponses
Mon ordinateur s'allume et s'eteint en boucle
mhmd_elmrni -
BiGaMeRz10 -

10 réponses
Écran bleu : code d arrêt 101 INITIALIZATION FAILED
Fredos -
Fredos217_4615 -

15 réponses
Mon PC marque press the esc key for startup menu
Jonas2022 -
SATS_fr -

5 réponses