Private Sub CommandButton2_Click()
I = 1
If OptionButton1.Value = True Then
While Cells(I, 1).Value <> ""
I = I + 1
Wend
Dim g As Integer
With Me.ListBox1
.MultiSelect = fmMultiSelectMulti
For g = 2 To I
.AddItem Cells(g, 1).Value
Next g
End With
End If
Quelqu'un a une idée de pourquoi il ne veut pas remplir mon tableau? Je ne maitrise pas les listbox.....
Oups j'avais une listbox1 cachée, donc celle que je regardais était la 2 merci pour les conseils ^^ ça fonctionne.