Suppression lignes sous condition
Résolu/Fermé
A voir également:
- Suppression lignes sous condition
- Forcer suppression fichier - Guide
- Excel cellule couleur si condition texte - Guide
- Suppression page word - Guide
- Suppression cookies - Guide
- Excel trier par ordre alphabétique en gardant les lignes - Guide
3 réponses
Theo.R
Messages postés
575
Date d'inscription
vendredi 11 juillet 2014
Statut
Membre
Dernière intervention
30 mars 2016
31
18 févr. 2016 à 12:52
18 févr. 2016 à 12:52
Bjr,
Sub test()
For i = 7000 to 3 step -1 'on initie la boucle de manière décroissante car on va supprimer des lignes
If Cells(i,3).value Like "*TOTO*" Then 'Condition : "si Ci contient TOTO alors"
Else
Rows(i & ":" & i).Delete Shift:=xlUp 'on supprime la ligne i, cela s'applique lorsque Ci ne contient pas TOTO
End If
Next i 'on termine la boulce
End Sub
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
Modifié par michel_m le 18/02/2016 à 15:16
Modifié par michel_m le 18/02/2016 à 15:16
Bonjour
On ne boucle que sur la condition (adapter la condition "toto" )
si le nombre de toto est important (>env 500), on pourra tenter un code + rapide mais + compliqué. Tu dis si cela t'intéresse ;o)
Michel
On ne boucle que sur la condition (adapter la condition "toto" )
Option Explicit
Const Nom As String = "toto"
'-------------------------
Sub sanstoto()
Dim Nbre As Integer, Lig As Integer, Cptr As Integer
Application.ScreenUpdating = False
Nbre = Application.CountIf(Columns("C"), "*" & Nom & "*")
For Cptr = 1 To Nbre
Lig = Columns("C").Find(Nom, Range("C2"), xlValues).Row
Rows(Lig).Delete
Next
End Sub
si le nombre de toto est important (>env 500), on pourra tenter un code + rapide mais + compliqué. Tu dis si cela t'intéresse ;o)
Michel