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