Microsoft 365 Test sur la sélection d'une listview

Diane272727 à dit:

Bonjour, Je souhaiterai faire un test pour savoir si au moins une ligne de ma listview est sélectionnée.
ce bout de code ne fonctionne pas :
If ListView1.ListItems.Selected Then

Merci beaucoup pour votre aide.

Cliquez pour agrandir...

If Not ListView1.ListItems.Selected Is Nothing Then

Diane272727 à dit:

Bonjour Gégé-45550,
non ça ne fonctionne pas , j'ai ce message d'erreur :
Regarde la pièce jointe 1172640

Cliquez pour agrandir...

Dim i As Integer

For i = 1 To ListView1.ListItems.Count
    'Affiche le contenu de la 1ere colonne pour chaque ligne sélectionnée
    If ListView1.ListItems(i).Selected = True Then _
                    MsgBox ListView1.ListItems(i).Text
Next