Sélection par defauts des lignes d'une listBox à selection multiple

[Nashpuss]

Bonjour,

Je cherche à sélectionner par défauts toutes les lignes de ma Listbox à sélection multiple. Comme ça, les utilisateurs n'auraient plus qu'à décocher au cas (rare) où toutes les lignes ne seraient pas concernées. J'ai pas trouvé comment faire ça.

Je vosu remercie à l'avance,

 

[Pierrot93]

Re : Sélection par defauts des lignes d'une listBox à selection multiple

Bonjour,

regarde le code ci-dessous :

Private Sub UserForm_Initialize()
Dim i As Integer
With ListBox1
    .MultiSelect = 1
    .List = Range("A1:A10").Value
    For i = 0 To .ListCount - 1
        .Selected(i) = True
    Next i
End With
End Sub

bonne journée
@+

 

[Nashpuss]

Re : Sélection par defauts des lignes d'une listBox à selection multiple

Je te remercie ça marche impec!

Je tournais autour de ça, mais je ne maitrise pas suffisamment.