Supprimer une ligne qui vient après une ligne contenant mot

Bonjour,

J'ai une longue liste de donnée pouvant aller jusqu'à 1000 lignes et je voudrais dire à Excel de supprimer une ligne qui vient juste après une cellule contenant un mot.

J'ai essayé des codes que j'ai cherché sur le Forum mais je ne trouve pas.

Je joins un fichier à titre d'exemple.

Voici le code que j'ai écrit:

Sub Supprimerligne()

Dim I As Integer

For I = [A65000].End(xlUp).Row To 1 Step -1

If Not Cells(I, 1).Find("Enchère") Is Nothing Then range(I).offset(1,0).delete

Next I

End sub

Merci!

12exemple-1.xlsx (47.64 Ko)

Bonjour

Code à tester

Sub Supprimerligne1()
Dim I As Integer
For I = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(I, 1) Like "*" & "Enchère" & "*" And I <> 1 Then Range("A" & I - 1).EntireRow.Delete: I = I - 1
Next I
End Sub

Si ok et terminé merci de cloturer le fil en cliquant sur le V vert à coté du bouton Editer lors de votre réponse

Cordialement

Bonjour Dan

Merci de ton aide mais ça ne marche pas.

Bonjour RSG, Dan,

Bonjour le forum,

Dan devait certainement avoir du lait sur le feu...

Il voulait dire ceci, sans doute.

Dim I As Integer
'
For I = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Cells(I, 1) Like "*" & "Enchère" & "*" Then Range("A" & I + 1).EntireRow.Delete shift:=xlUp
Next I

A+

Bonjour curulis57

Génial, ça marche.

Merci à vous deux et bonne continuation!

Rechercher des sujets similaires à "supprimer ligne qui vient contenant mot"