Supprimer une ligne d'une listview sous condition

[creolia]

Bonjour à tous

j'ai tenter de creer cette petite macro qui me supprime les ligne dont la premiere du texte de la 2eme collone est la lettre est A.

pour ce qui est de la condition pas de soucis le probleme viens de la ligne de commande supprimer je sais pas comment faire pour lui dire de le supprimer.

Private Sub CommandButton25_Click()

With ListView4

Dim i As Integer

For i = 1 To ListView4.ListItems.Count
If Left(ListView4.ListItems(i).ListSubItems(1).Text, 1) = "A" Then

On Error Resume Next
ListView4.ListItems.Remove (ListView4.SelectedItem.Index)

End If

Next

End With
End Sub

quelle est la syntaxe que je pourais ecrire pour arriver à mes fin svp merci

 

[Pierrot93]

Re : Supprimer une ligne d'une listview sous condition

Bonjour,

peut être commencer par enlever ceci :

On Error Resume Next

d'autre part pourquoi un bloc "with" :

With ListView4
'instructions
End With

qui manifestement n'est pas utilisé....

bonne journée
@+

 

[ChTi160]

Re : Supprimer une ligne d'une listview sous condition

Bonjour Creolia,
Bonjour Pierrot ,
Bonjour Le Forum

peut être de cette Façon

Private Sub CommandButton25_Click()
Dim i As Integer
With Useform1.ListView4

   For i = .ListItems.Count To 1 Step -1

       If Left(.ListItems(i).ListSubItems(1).Text, 1) = "A" Then

                 .ListItems.Remove (i)

       End If
   Next i
End With
End Sub

non testé
Bonne Journée
Jean Marie

 

[creolia]

Re : Supprimer une ligne d'une listview sous condition

Bonjour pierrot93 bonjour thti160 merci pour tchti160 pour ta solution est simplement parfaite à trés bientot et encore merci