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 :

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

Bonjour,

Les ComboBox ActiveX sont des objets OLE ("Object Linking and Embedding" donc objet lié ou incorporé) donc il te faut parcourir la collection "OLEObjects" et utiliser la propriété "Object" qui elle est spécifique à l'objet (ici des ComboBox) pour travailler dessus :

Private Sub Workbook_Open()

    Dim I As Integer
    Dim J As Integer

    For I = 1 To Worksheets("Feuil1").OLEObjects.Count

        'seulement les ComboBox...
        If TypeName(ActiveSheet.OLEObjects(I).Object) = "ComboBox" Then

            'vide la liste...
            ActiveSheet.OLEObjects(I).Object.Clear

            'puis la remplie
            For J = 1 To 4

                ActiveSheet.OLEObjects(I).Object.AddItem Cells(J, 1).Value

            Next J

        End If

    Next I

End Sub

Merci Theze pour ton aide