Microsoft 365 [RESOLU] Supprimer un nombre de lignes donné dès qu'on trouve un mot

  • Initiateur de la discussion Initiateur de la discussion Icedarts
  • 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 !

Icedarts

XLDnaute Occasionnel
Bonjour à tous,

J'ai un énorme fichier avec énormément de ligne inutiles.
En colonne A dès qu'on retrouve le mot rang il faudrait supprimer les 14 lignes suivantes plus la ligne ou il est ecrit "rang" donc 15 lignes au total.

Est-ce faisable?

Cordialement.
 

Pièces jointes

Bonjour,

Exécutez cette macro :
VB:
Sub Suppr()
Dim i&
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If LCase(Cells(i, 1)) Like "*rang*" Then Cells(i, 1).Resize(15).Delete xlUp
Next
End Sub
A+
 
Bonjour,

Exécutez cette macro :
VB:
Sub Suppr()
Dim i&
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If LCase(Cells(i, 1)) Like "*rang*" Then Cells(i, 1).Resize(15).Delete xlUp
Next
End Sub
A+
Ça ne fonctionne pas car j'ai des données sur plusieurs colonnes contrairement au fichier d'exemple que j'ai donné et avec lequel ça fonctionne parfaitement du coup.
 
Faut tout vous mâcher ?
VB:
Sub Suppr()
Dim i&
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If LCase(Cells(i, 1)) Like "*rang*" Then Cells(i, 1).Resize(15).EntireRow.Delete
Next
End Sub
 
- 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
5
Affichages
495
Retour