[VBA-E] Remplissage d'une listebox

Bonjour je voudrais remplir une listbox en automatique

Code:

---

1 2 3 4 5 6 7 8 9

For i = 1 To 28 With ("P" & i) .Clear .AddItem "Existant" .AddItem "Non présent" .AddItem "Sans objet" End With Next

---

Avec P1, P2 ... le nom des listbox

Merci

essai :

Code:

---

With Controls("P" & i)

---

Ben non je pensé que ... mais ca ne marche toujour po ....

Tu peux utiliser la collection Controls. Cette collection contient, il me semble, les contrôles chargés et affichable (dont la listbox fait partie).

Ce qui donne

Code:

---

With (UserForm1.Controls("P" & i))

---

Dans mon exemple les listBox se trouvent sur la forme UserForm1

En fait si , j'avais fait une connerie ...

Merci je connaissais controls mais j'y ai pa pensé

Tanks...

Voici ce que j'écrirais sous VB (on doit pouvoir adapter)

Citation:

---

Private Sub Command1_Click()
For Each ctrl In Controls
If TypeOf ctrl Is ListBox And UCase(Left(ctrl.Name, 1)) = "P" Then
remplit ctrl
End If
Next

End Sub
Private Sub remplit(titi)
For i = 1 To 3
titi.AddItem i
Next
End Sub

---