Remplir combobox sur un classeur

Itori

XLDnaute Junior
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 :

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
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.
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib