Supprimer lignes sous condition et nombre de lignes aléatoire
Elo2109
Messages postés
9
Date d'inscription
Statut
Membre
Dernière intervention
-
Elo2109 Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
Elo2109 Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaiterais savoir comment supprimer une ligne entière si la cellule de la colonne 76 contient "t".
Sachant que la feuille excel contient entre 40 000 et 60 000 lignes, le nombre de ligne varie de manière aléatoire.
J'ai essayé cette macro mais, forcément, ça ne fonctionne pas...
Sub Macro5()
' 14) Suppression lignes hors scope
Dim DernLigne As Long, DernColonne As Integer, i As Integer
'Dernière ligne colonne A
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
For i = Cells(1, 76) To DernLigne
If Cells(i, 76).Value = "t" Then Cells(i, 76).EntireRow.Delete
Next
End Sub
Je vous remercie pour votre aide !!
Je souhaiterais savoir comment supprimer une ligne entière si la cellule de la colonne 76 contient "t".
Sachant que la feuille excel contient entre 40 000 et 60 000 lignes, le nombre de ligne varie de manière aléatoire.
J'ai essayé cette macro mais, forcément, ça ne fonctionne pas...
Sub Macro5()
' 14) Suppression lignes hors scope
Dim DernLigne As Long, DernColonne As Integer, i As Integer
'Dernière ligne colonne A
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
For i = Cells(1, 76) To DernLigne
If Cells(i, 76).Value = "t" Then Cells(i, 76).EntireRow.Delete
Next
End Sub
Je vous remercie pour votre aide !!
A voir également:
- Supprimer lignes sous condition et nombre de lignes aléatoire
- Supprimer rond bleu whatsapp - Guide
- Partage de photos en ligne - Guide
- Impossible de supprimer une page word - Guide
- Excel cellule couleur si condition texte - Guide
- Impossible de supprimer un fichier - Guide
2 réponses
Bonjour
Modifies les valeurs des constantes selon ta configuration
Cdlmnt
Const cotest = 76 ' colonne a tester
Const vatest = "t" ' valeur test
Const lideb = 2 ' premiere ligne
Sub SuppLignes()
Dim li As Long, lifin As Long
Application.ScreenUpdating = False
lifin = Cells.Find("*", , , , xlByRows, xlPrevious).Row
For li = lifin To lideb Step -1
If Cells(li, cotest).Value = "t" Then Rows(li).Delete
Next li
Application.ScreenUpdating = True
End Sub
Modifies les valeurs des constantes selon ta configuration
Cdlmnt
1. On a des gros paquets de lignes contiguës à supprimer
2. La feuille n'est pas trop grosse, on peut faire une copie nettoyée en mémoire puis copier en bloc dans la feuille
Cdlmnt
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Cordialement,
lifin = Cells.Find("*", , , , xlByRows, xlPrevious).Row