Remplissage de plusieurs ComboBox
Résolu
louis
-
louis -
louis -
Bonjour,
Après une heure de tentatives infructueuses et une autre heure de recherche qui n'ont rien donné, je viens chercher de l'aide.
J'ai une macro qui me permet de créer plusieurs ComboBox numérotés différemment.
J'aimerais remplir toutes ces ComboBox. J'ai une macro qui me permet de remplir la première combobox :
Sub Macro3()
Sheets("Hypothèses_Comm").ComboBox1.AddItem "Temps plein"
Sheets("Hypothèses_Comm").ComboBox1.AddItem "Intérimaire"
End Sub
J'ai testé des choses dans le genre :
Sub Macro3()
For i = 1 to 4
Sheets("Hypothèses_Comm").ComboBoxi.AddItem "Temps plein"
Sheets("Hypothèses_Comm").ComboBoxi.AddItem "Intérimaire"
Next
End Sub
Ca ne marche pas, car ComboBoxi ne semble pas être une instruction possible.
Merci par avance pour votre aide
Après une heure de tentatives infructueuses et une autre heure de recherche qui n'ont rien donné, je viens chercher de l'aide.
J'ai une macro qui me permet de créer plusieurs ComboBox numérotés différemment.
J'aimerais remplir toutes ces ComboBox. J'ai une macro qui me permet de remplir la première combobox :
Sub Macro3()
Sheets("Hypothèses_Comm").ComboBox1.AddItem "Temps plein"
Sheets("Hypothèses_Comm").ComboBox1.AddItem "Intérimaire"
End Sub
J'ai testé des choses dans le genre :
Sub Macro3()
For i = 1 to 4
Sheets("Hypothèses_Comm").ComboBoxi.AddItem "Temps plein"
Sheets("Hypothèses_Comm").ComboBoxi.AddItem "Intérimaire"
Next
End Sub
Ca ne marche pas, car ComboBoxi ne semble pas être une instruction possible.
Merci par avance pour votre aide
A voir également:
- Remplissage de plusieurs ComboBox
- Excel remplissage conditionnel - Guide
- Excel remplissage automatique selon valeur ✓ - Forum Excel
- Formule permettant de remplir automatiquement un tableau excel ✓ - Forum Excel
- Raccourci remplissage couleur excel ✓ - Forum Excel
- Remplissage automatique - Guide
2 réponses
J'ai fini par trouver une solution qui marche
For i = 1 To 4
Worksheets("Hypothèses_Comm").Select
ActiveSheet.OLEObjects("ComboBox" & i).Object.AddItem "Test"
Next
For i = 1 To 4
Worksheets("Hypothèses_Comm").Select
ActiveSheet.OLEObjects("ComboBox" & i).Object.AddItem "Test"
Next
Bonjour,
Je ne sais pas si cela va résoudre ton problème, mais tu peux peut être créer plusieurs combobox avec le même nom (combobox1) puis les indexer : combobox1(0) combobox1(1) ect...
Cela te permettra de créer ta macro :
Sub Macro3()
For i = 1 to 4
Sheets("Hypothèses_Comm").ComboBox(i).AddItem "Temps plein"
Sheets("Hypothèses_Comm").ComboBox(i).AddItem "Intérimaire"
Next
End Sub
Salutations
Je ne sais pas si cela va résoudre ton problème, mais tu peux peut être créer plusieurs combobox avec le même nom (combobox1) puis les indexer : combobox1(0) combobox1(1) ect...
Cela te permettra de créer ta macro :
Sub Macro3()
For i = 1 to 4
Sheets("Hypothèses_Comm").ComboBox(i).AddItem "Temps plein"
Sheets("Hypothèses_Comm").ComboBox(i).AddItem "Intérimaire"
Next
End Sub
Salutations