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

Magic_Doctor · 13 Septembre 2021

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 :

VB:

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 · 13 Septembre 2021

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

job75 · 13 Septembre 2021

Bonsoir Magic_Doctor,

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

VB:

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

Salut ChTi160.

Bonne nuit aux européens.

ChTi160 · 13 Septembre 2021

Bonsoir job75
je confirme lol

VB:

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 · 13 Septembre 2021

ChTi160 à dit:
Bonsoir job75
je confirme lol

Confirmé au post #3

ChTi160 · 13 Septembre 2021

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

dysorthographie · 14 Septembre 2021

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 · 14 Septembre 2021

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

VB:

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 · 14 Septembre 2021

Bonsoir job, ChTi160,

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

dysorthographie · 14 Septembre 2021

VB:

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

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

Magic_Doctor

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

Magic_Doctor

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Discussions similaires