XL 2010 Problème pour charger des ComboBox à l'ouverture du classeur

[Magic_Doctor]

Bonsoir,

À l'ouverture du classeur, je voudrais charger plusieurs ComboBox (7 au total) avec la même liste au moyen d'une boucle.
Tous ces ComboBox ont le même préfixe ("ComboPPA"). Seuls leurs suffixes changent évidemment : "ComboPPA1", "ComboPPA2", ... , "ComboPPA7".
J'ai tenté de m'y prendre ainsi :

Sub Workbook_Open()

Dim liste, i As Byte, obj As OLEObject

    'Chargement de tous les ComboBox dont le préfixe est "ComboPPA"
    liste = Array("Ordre Alphabétique", "Famille")
    For i = 1 To 7
        Set obj = ActiveSheet.OLEObjects("ComboPPA" & i).Object
        With Worksheets("Données").obj
            .List = liste
            .ListIndex = 0
        End With
    Next
End Sub

Ça ne marche pas. La procédure achoppe à Set obj = ActiveSheet.OLEObjects("ComboPPA" & i).Object, avec comme message d'erreur : "Les types ne coïncident pas".
Comment résoudre ce problème ?

 

[ChTi160]

Bonsoir Magic_Doctor
sans fichier test pas évident
et avec obj As Object
jean marie

 

[job75]

Bonsoir Magic_Doctor,

Là tu n'as pas vraiment cherché, utilise :

        Set obj = ActiveSheet.OLEObjects("ComboPPA" & i)
        With obj.Object

Salut ChTi160.

Bonne nuit aux européens.

 

[ChTi160]

Bonsoir job75
je confirme lol

Sub WorkBook_Open()

Dim liste, i As Byte, obj As OLEObject
    'Chargement de tous les ComboBox dont le préfixe est "ComboPPA"
    liste = Array("Ordre Alphabétique", "Famille")
    For i = 1 To 7
        Set obj = ActiveSheet.OLEObjects("ComboPPA" & i)
        With obj.Object
            .List = liste
            .ListIndex = 0
        End With
    Next
End Sub

jean marie

 

[job75]

Bonsoir job75
je confirme lol

Confirmé au post #3

 

[ChTi160]

Re
j'avais vu Lol
et reconfirmé au Post #4
merci
jean marie

 

[dysorthographie]

Bonjour,

For Each Cb In ActiveSheet.Shapes
If Left(Cb.Name, 8) = "ComboPPA" Then Cb.DrawingObject.Object.List = Array("Ordre Alphabétique", "Famille")
Next

 

[patricktoulon]

re
Bonsoir à tous
Magic_doctor invente des membres aux object

Set obj = ActiveSheet.OLEObjects("ComboPPA" & i).Object
With Worksheets("Données").obj

des qu'un object est instancié il ne peux avoir de parent membre ou de descendant membre il est unique et déterminé il transporte donc avec lui tout ses attributs et propriété et méthodes

Set obj = ActiveSheet.OLEObjects("ComboPPA" & i).Object
        With .obj
         msgbox .parent.name
         .list=Array("Ordre Alphabétique", "Famille")
        end with

en gros objectfeuille.variableobject n'est pas possible

 

[Magic_Doctor]

Bonsoir job, ChTi160,

En effet, je m'emmêle un peu les pinceaux avec ces abjectes Ojects.
Merci.
¡Y sigue la progresión!

 

[dysorthographie]

For Each Cb In ActiveSheet.OLEObjects
    If Left(Cb.Name, 8) = "ComboPPA" Then Cb.Object.List = Array("Ordre Alphabétique", "Famille")
Next