Selection multiple dans une listbox

Bonjour,

J'aimerai pouvoir sélectionner l'intégralité des éléments présents dans ma listbox lors du cochage d'une checkbox.

J'ai un début de code, mais un petit problème survient!

Auparavant ma listbox est initialisée pour pouvoir sélectionner plusieurs éléments.

Voici mon code :

Private Sub CheckBox4_Click()

Dim i As Integer

For i = 0 To ListBox1.ListCount - 1
    ListBox1.SelectedIndex = i
Next i

End Sub

Lorsque je clique sur ma checkbox4, l'erreur me dit que .selectedIndex est introuvable .. Donc je pense que c'est une erreur de syntaxe encore une fois ...

Si vous avez la solution je suis preneuse !

Merci bien !

Bonjour,

ListBox1.Selected(i) = True

Super merci beaucoup !!