Bonjour le forum,
Je souhaite remplir des combobox dans un classeur avec des données provenant d'un classeur fermé.
Grâce au forum j'ai trouvé comment aller chercher mes données etc...
Cependant je dispose d'un nombre de combobox variant, je souhaite donc faire une boucle puisqu'elles comportent toujours les même données.
J'ai donc réalisé le code suivant :
Jusqu'à maintenant j'utilisait un nombre défini de combobox et j'utilisait donc la même méthode qu'avant ma boucle For Each, ce qui fonctionnait parfaitement...
Auriez vous une solution svp ?
Merci d'avance.
Je souhaite remplir des combobox dans un classeur avec des données provenant d'un classeur fermé.
Grâce au forum j'ai trouvé comment aller chercher mes données etc...
Cependant je dispose d'un nombre de combobox variant, je souhaite donc faire une boucle puisqu'elles comportent toujours les même données.
J'ai donc réalisé le code suivant :
Code:
Dim Ctrl As Shape
...
If Not Rs.EOF Then
Do While Not Rs.EOF
ActiveSheet.lst_directeurmiss.AddItem Rs.Fields(0)
ActiveSheet.lst_respaff.AddItem Rs.Fields(0)
For Each Ctrl In ActiveSheet.Shapes
If Ctrl.Name Like "lst_perso*" Then
Ctrl.AddItem Rs.Fields(0)
End If
Next
Rs.MoveNext
Loop
Auriez vous une solution svp ?
Merci d'avance.