Bonjour à tous,
Je bute sur le pb suivant :
J'ai la fonction suivante pour initialiser des combobox :
qui est appelée de la façon suivante :
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
ç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 Call InitCb(FicParamètres, 4, "A1", "A", MultiPageMachines.pgMachine1.cbConstructeur1)
évidemment ça coince puisque la fonction attend un objet combo
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Dim comboStr As String comboStr = "MultiPageMachines.pgMachine1.cbConstructeur" & variableNumérique
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
Partager