Boucle pour remplir des combobox

Bonjour les amis,

J'aimerais attribuer des mots, par exemple "oui" ou "non" dans un certains nombre de combobox. Cependant, l'ordinateur m'averti d'un qualificateur incorrect ... Voici le code que j'ai crée :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton1_Click()     Dim i As Integer Dim nom As String   For i = 1 To 5 nom = "Combobox" & i nom.AddItem "non" nom.AddItem "oui" Next   End Sub

---

Avez vous une idée du problème ?

Salut, les combobox ne sont pas des chaines de caractères mais des objets, vous ne pouvez pas procéder ainsi

Vous allez devoir utiliser une fonction qui boucle sur tous les objets de votre UserForm et identifier l'objet avec son nom.

Ici le code a mettre dans l'USF (j'ai mis userform1)

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Explicit Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 5 With ComboboxIncr("combobox" & i, UserForm1) .asditem "non" .AddItem "oui" End With Next i End Sub

---

Et ce code a mettre dans une module standard, la fonction d'incrémentation des combobox :

Code:

---

1 2 3 4 5 6 7 8 9 10

Function ComboboxIncr(CBname As String, USF As UserForm) As MSForms.ComboBox Dim MyObj As Control   For Each MyObj In USF.Controls If MyObj.Name = CBname Then ComboboxIncr = MyObj Exit Function End If Next MyObj End Function

---

Merci pour ta réponse rapide, cependant je ne comprends pas très bien ce qu'un Userform vient faire la dedans (c'est peut être une question bête mais je suis débutant) car mes combobox sont dans une feuille de mon excel.

ah ce sont des combobox dans des feuilles de calcul ?

Les userform ce sont des fenêtres personnalisées dans lesquelles on peut inclure tout un tas de contrôles différents dont les combobox.

du coup il va falloir nous préciser de quel genre de contrôles il s'agit

C'est de ma faute, je n'ai pas précisé le contexte. Voici l'extrait de ma feuille de calcul (nommée Feuil1) où sont les combobox :

Pièce jointe 599174

Les noms de ces combobox sont respectivement ComboBox1, ComboBox 2, ... jusque 6. Je souhaite insérer par exemple "oui" et "non" dans chacune de ces combobox. J'aimerai ne pas à avoir le faire manuellement pour toutes donc j'aimerais utiliser une boucle qui applique la fonction "additem" dans la combox n°i (pour i allant de 1 jusque 6). J'espère que c'est plus clair :)

Oui j'ai compris, par contre faut que je me renseigne car je ne sais pas boucler sur des combobox dans les feuilles, il me semble que ce ne sont pas les mêmes type d'objets que dans les UserForm.