Nombre de ligne sélectionner dans la ListBox

[apdf1]

Bonjour

Je suis à la recherche du code suivant. J'ai une ListBox avec multiselect et j'aimerais avoir un label me disant le nombre de ligne sélectionner dans la ListBox.

Un très grand merci à tout ceux qui pourront m'aider...

Cordialement

Max

 

[TempusFugit]

Re : Nombre de ligne sélectionner dans la ListBox

Bonjour


Une solution possible

Private Sub ListBox1_Change()
Dim i, j
With ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then j = j + 1
        Next
    End With
Label1.Caption = j
End Sub

 

[apdf1]

Re : Nombre de ligne sélectionner dans la ListBox

re

Je te remerci beaucoup sa marche nickel

@+

Max