Remplir 10 listbox en boucle

[carlos]

Bonsoir le forum

est il possible de réaliser une boucle sur ce code pour des listbox nommées de 1 à 10 ,listbox1,listbox2 ....listbox10 :


Private Sub UserForm_Initialize()
Dim cell As Variant
Dim i As Byte
for i = 1 to 10
For Each cell In Worksheets('tabpoule').Range('ae10:ae14')
If cell <> '' Then Me.ListBox1.AddItem cell
Next
next i
End sub

un essai du genre :

If cell <> '' Then 'Me.ListBox'& i.AddItem cell

Ne marche pas .

merci

 

[ChTi160]

Salut carlos
un exemple avec 3 listBox à adapter

Private Sub UserForm_Initialize()
Dim cell As Variant
Dim i As Byte
For i = 1 To 3'pour 3 listBox
For Each cell In Worksheets('Feuil1').Range('A1:A10')
If cell <> '' Then Me.Controls('ListBox' & i).AddItem cell
Next
Next i
End Sub

 

[carlos]

Bonjour Jean Marie

Merci pour ta proposition qui fonctionne à merveille.

Bon Dimanche et @ bientot

Merci

Carlos