Supprimer une ligne d'une listview sous condition

  • Initiateur de la discussion Initiateur de la discussion creolia
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

creolia

XLDnaute Impliqué
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.

Code:
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
 
Re : Supprimer une ligne d'une listview sous condition

Bonjour,

peut être commencer par enlever ceci :
Code:
On Error Resume Next

d'autre part pourquoi un bloc "with" :
Code:
With ListView4
'instructions
End With

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

bonne journée
@+
 
Re : Supprimer une ligne d'une listview sous condition

Bonjour Creolia,
Bonjour Pierrot ,
Bonjour Le Forum

peut être de cette Façon

Code:
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
281
Réponses
5
Affichages
208
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
4
Affichages
177
Réponses
8
Affichages
468
Retour