Discussion :

[le_sonic]

Bonjour je voudrais remplir une listbox en automatique

Code :

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

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

[SfJ5Rpw8]

essai :

Code :

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

With Controls("P" & i)

[le_sonic]

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

[Catbull]

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 :

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

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

Dans mon exemple les listBox se trouvent sur la forme UserForm1

[le_sonic]

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

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

Tanks...

[jmfmarques]

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

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