boucle remplir plusieurs zones de liste

[ced]

Bonsoir le forum, j'ai quelques problèmes pour réaliser une boucle et remplir plusieurs zones de liste

Ces listes sont identifiées comme des objets shape par excel

Ma boucle porte sur ce type d'objets mais la méthode add item pour charger les zones ne fonctionne pas
C'est la même chose avec clear pour les vider

Quelqu'un a t-il la solution?
merci d'avance [file name=test_20060601193449.zip size=44593]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20060601193449.zip[/file]

 

[Gael]

Bonsoir ced,

essaye en mettant:

With Selection
.ListFillRange = ('b2:b' & NR.Range('b65536').End(xlUp).Row)
End With

au lieu de:
For Each gpe In mesgpes
NR.Shapes(x).AddItem gpe
Next gpe

@+

Gael

 

[ced]

Merci gael

cela fonctionne parfaitement!