Utiliser un Combobox situé sur une feuille

[GeoTrouvePas]

Bonjour tout le monde,

Je dispose d'une procédure GetCombo_Projet qui, pour être exécutée, nécessite de désigner un ComboBox en argument. Je voudrais me servir de cette procédure pour alimenter un Combobox situé directement sur une feuille de mon classeur (et non pas sur un userform).

Or voici des heures que je cherche la syntaxe à employer et que je me tape une erreur de type incompatibilité de type.

Pourriez vous m'aiguiller ?

Voici mon code :

Sub test()
    Call GetCombo_Projet(ThisWorkbook.Sheets("Accueil").ComboProjet)
End Sub

Sub GetCombo_Projet(ByVal ComboDest As Control)
    Dim CptrLig As Long
    ComboDest.Clear
    Call Get_DATA_PROJET(DATA_PROJET.NUM)
    ReDim VarGlobale(LBound(Tbl_PROJET) To UBound(Tbl_PROJET), 1 To 2)
    For CptrLig = LBound(Tbl_PROJET, 1) To UBound(Tbl_PROJET, 1)
        VarGlobale(CptrLig, 1) = Tbl_PROJET(CptrLig, DATA_PROJET.NUM)
        VarGlobale(CptrLig, 2) = Tbl_PROJET(CptrLig, DATA_PROJET.NUM) & " - " & Tbl_PROJET(CptrLig, DATA_PROJET.iNTIT)
    Next
    ComboDest.Object.List = VarGlobale
End Sub

 

[job75]

Bonsoir GeoTrouvePas,

Quand on veut récupérer un contrôle ActiveX d'une feuille de calcul il faut utiliser la collection OLEObjects (ce n'est pas nécessaire quand la macro est dans cette feuille).

A+