Bonjour à tous,
Je bute sur le pb suivant :

J'ai la fonction suivante pour initialiser des combobox :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub InitCb(RefFichier As Workbook, _
          RefFeuille As Integer, _
          RefCel As String, _
          RefCol As String, _
          RefCombo As Variant)
   Dim compteur As Long
   Dim AjoutListe As String
   For compteur = 2 To RefFichier.Sheets(RefFeuille).Range(RefCel).End(xlDown).Row
      AjoutListe = RefFichier.Sheets(RefFeuille).Range(RefCol & compteur).value
      RefCombo.AddItem (AjoutListe)
   Next compteur
End Sub
qui est appelée de la façon suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Call InitCb(FicParamètres, 4, "A1", "A", MultiPageMachines.pgMachine1.cbConstructeur1)
ça marche, mais je voudrais passer l'argument RefCombo sous forme d'une variable string concatennée du style :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
   Dim comboStr As String
   comboStr = "MultiPageMachines.pgMachine1.cbConstructeur" & variableNumérique
évidemment ça coince puisque la fonction attend un objet combo
J'ai passé l'après-midi sur le net sans succès...
Quelqu'un aurait-il une solution svp
En vous remerciant d'avance
Thierry