GeoTrouvePas
XLDnaute Impliqué
Bonjour tout le monde,
Dans mon classeur, j'ai plusieurs feuilles comportant le même combobox nommé "ComboProjet".
Ces Combobox vont être chargés avec la même liste de données et seront liés (la modification de l'un modifiera les autres).
J'ai donc créé la routine suivante pour les charger :
Le chargement s'effectue sans problème mais la cellule liée (LinkedCell) ne fonctionne pas.
Auriez vous une idée de ce qui ne va pas dans mon code ?
Dans mon classeur, j'ai plusieurs feuilles comportant le même combobox nommé "ComboProjet".
Ces Combobox vont être chargés avec la même liste de données et seront liés (la modification de l'un modifiera les autres).
J'ai donc créé la routine suivante pour les charger :
VB:
For Each Feuille In ThisWorkbook.Sheets
For Each Ctrl In Feuille.OLEObjects
If Ctrl.Name = "ComboProjet" Then
Ctrl.Object.List = temp
Ctrl.LinkedCell = Feuille.Range("Zone_NProjet")
Ctrl.Object.ListIndex = Ctrl.Object.ListCount - 1
End If
Next
Next
Le chargement s'effectue sans problème mais la cellule liée (LinkedCell) ne fonctionne pas.
Auriez vous une idée de ce qui ne va pas dans mon code ?