Remplir 10 listbox en boucle

carlos · 8 Octobre 2005

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 · 8 Octobre 2005

Salut carlos
un exemple avec 3 listBox à adapter

Code:

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 · 9 Octobre 2005

Bonjour Jean Marie

Merci pour ta proposition qui fonctionne à merveille.

Bon Dimanche et @ bientot

Merci

Carlos

Remplir 10 listbox en boucle

carlos

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

carlos

XLDnaute Impliqué

Discussions similaires