Discussion :

[pitoumad]

Bonjour
Je rempli une listbox sur ma feuille active et je souhaite alimenter une autre avec les mêmes valeurs mais sur une feuille différente.
Le code est sur la feuille 1 qui contient mes données. Pour la Liste 1 , c'est ok. Mais ça plante pour l'alimentation de ma deuxième listbox ("propriété ou méthode non gérée par cet objet"). Pourquoiiiiiii ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Range("A1").Select
ifin = Range("A1:A" & Range("A65536").End(xlUp).Row).Count
For i = 1 To ifin
        Maliste1.AddItem Range("A" & i)
        Worksheets("maFeuille2").MaList2.AddItem Range("A" & i)
Next i

Merci de votre aide !

[JPierreM]

Bonjour,

Le plus simple est de nommer la liste sur la feuille1 qui contient les données, puis dans un module standard de mettre la macro suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub sc()
Worksheets("Feuil1").MaListe1.ListFillRange = "LaListe" 
Worksheets("Feuil2").MaListe2.ListFillRange = "LaListe" 
End Sub

La liste de donnée a été nommé LaListe