Initialization combobox dans une boucle for
Fermé
K.GUERIOUNE
-
18 août 2015 à 17:21
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 18 août 2015 à 18:29
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 18 août 2015 à 18:29
A voir également:
- Initialization combobox dans une boucle for
- Boucle for matlab ✓ - Forum Matlab
- Pc s'allume et s'éteint en boucle - Forum Matériel informatique
- Download instagram for pc - Télécharger - Divers Communication
- Le fichier contient un programme écrit en python. le programme construit un mot secret mais il ne l'affiche pas. modifiez ce programme afin que à chaque itération de la boucle : la variable a augmente de 2 la variable b diminue de 1 ajoutez une instruction pour faire afficher le mot secret construit. quel est ce mot secret ? ✓ - Forum Python
- Safari for windows - Télécharger - Navigateurs
2 réponses
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
18 août 2015 à 17:25
18 août 2015 à 17:25
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é...
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é...
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
18 août 2015 à 18:29
18 août 2015 à 18:29
Bonjour,
Mettre ce code dans l'UserForm1:
Et ce code dans l'UserForm2:
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
18 août 2015 à 17:34
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