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

[Icedarts]

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.

 

[job75]

Bonjour,

Exécutez cette macro :

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+

 

[Icedarts]

Bonjour,

Exécutez cette macro :

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.

 

[job75]

Faut tout vous mâcher ?

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

 

[job75]

Plus simplement :

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 Rows(i).Resize(15).Delete
Next
End Sub

 

[Icedarts]

Plus simplement :

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 Rows(i).Resize(15).Delete
Next
End Sub

Parfait,

Merci beaucoup