Obliger au moins 1 sélection dans listbox multiselect

Bonjour tout le monde

Je reviens vers vous pour un petit problème sur les listbox multiselect, je m'explique :

J'ai une listbox à multi-sélection dans un userform et je voudrais mettre un message d'erreur comme quoi il faut sélectionner au moins 1 item avant de pouvoir continuer (avec un bouton)

J'ai bien trouver un genre de code comme celui là :

if listbox.listindex=-1 then

mais apparemment c'est pour les listbox a simple sélection (si je me trompe pas)

Si quelqu'un a une petite idée

Merci d'avance

Bonjour,

Par exemple :

Function NoSlct() As Boolean
    Dim i%
    With ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then Exit Function
        Next i
    End With
    NoSlct = True
End Function

Et dans la procédure de validation :

    If NoSlct Then
        MsgBox "Sélection d'au moins un élément obligatoire..."
        Exit Sub
    End If