Suppression lignes sous condition
Résolu
Carolo
-
Carolo -
Carolo -
A voir également:
- Suppression lignes sous condition
- Forcer suppression fichier - Guide
- Excel cellule couleur si condition texte - Guide
- Suppression compte gmail - Guide
- Suppression page word - Guide
- Excel trier par ordre alphabétique en gardant les lignes - Guide
3 réponses
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
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
