VBA supprimer plusieurs lignes entières
Résolu
louloute750
Messages postés
14
Date d'inscription
Statut
Membre
Dernière intervention
-
louloute750 Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
louloute750 Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je souhaite un code me permettant de supprimer toutes les lignes pour lesquelles "ko" est inscrit en colonne T
quelqu'un peut-il m'aider ?
je souhaite un code me permettant de supprimer toutes les lignes pour lesquelles "ko" est inscrit en colonne T
quelqu'un peut-il m'aider ?
A voir également:
- Supprimer plusieurs lignes vba
- Supprimer rond bleu whatsapp - Guide
- Supprimer page word - Guide
- Supprimer pub youtube - Accueil - Streaming
- Fichier impossible à supprimer - Guide
- Supprimer compte instagram - Guide
3 réponses
Bonjour,
une facon de faire, adaptez le nom de feuille et ligne de depart
une facon de faire, adaptez le nom de feuille et ligne de depart
Sub delete_row()
With Worksheets("feuil1")
'derniere cellule non vide colonne T
derlig = .Range("T" & Rows.Count).End(xlUp).Row
'mise en memoire plage colonne T
Set plage = .Range("T1:T" & derlig)
'nombre de fois "ko" dans la plage
Nb_Oc = Application.CountIf(plage, "ko")
'boucle recherche ligne "ko" dans colonne T
If Nb_Oc > 0 Then
lig = 1
For n = 1 To Nb_Oc
lig = .Columns("T").Find("ko", .Cells(lig, "T"), , xlWhole).Row
.Rows(lig).Delete
Next n
End If
End With
End Sub