GeoTrouvePas
XLDnaute Impliqué
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 :
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 :
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