Excel - VBA Déclaration d'une variable pour récupérer le nom d'une ComboBox

Bonjour,

Pourriez-vous me renseigner comment déclarer une variable destinée à être incrémentée pour pouvoir récupérer le nom de plusieurs objets de type ComboBox à l'aide d'une boucle ?

Le principe serait le suivant (disponible également en pièce-jointe:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Workbook_Open()   Dim varInt As Object   For m = 1 To 5   varInt = "ComboBox" & m   Worksheets("Feuil1").varInt.Clear   For n = 1 To 4   Worksheets("Feuil1").varInt.AddItem Cells(n, 1).Value   Next n   Next m   End Sub

---

Merci pour votre lecture et votre aide

Manu

Salut,

Pour faire référence à tes objets, tu peux utiliser cette syntaxe.

Code:

---

Worksheets("Feuil1").OLEObjects("ComboBox" & m).Object.Clear

---

En espérant que cela t'aidera ...

Bonsoir Jérome,

Merci pour ton aide, j'ai donc essayé ce code :

Code:

---

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

Private Sub Workbook_Open()   For m = 1 To 5   Worksheets("Feuil1").OLEObjects("ComboBox" & m).Object.Clear     For n = 1 To 4   Worksheets("Feuil1").OLEObjects("ComboBox" & n).Object.AddItem Cells(n, 1).Value   Next n   Next m   End Sub

---

et maintenant cela fonctionne parfaitement :D

Salut.

Je te propose plus simple (Attention, il s'agit bien de m dans "ComboBox" & m et pas de n comme dans ton code).

La propriété List permet de se passer du Clear et de la boucle d'alimentation, car List accepte un tableau comme valeur, et range("a1:a4").Value est un tableau (ne pas oublier le .Value !!)

Code:

---

1 2 3 4 5 6

Private Sub Workbook_Open() For m = 1 To 5 Worksheets("Feuil1").OLEObjects("ComboBox" & m).Object.List = Range("a1:a4").Value Next m   End Sub

---

Génial ! Je vais pouvoir enfin poursuivre mon code :D

Un grand merci à vous et une très bonne soirée