XL 2010 Question syntaxe macro - Suppression ligne

[Elodie195]

Bonjour,

J'ai commencé une macro excel mais je bloque sur la fin.

Ma macro cherche si la valeur "d4" est présente dans la colonne A
Si elle est détectée, je veux supprimer la ligne qui est juste au dessus de celle qui a la valeur "d4"

Voici l'ébauche de macro : (pour l'instant, je supprime la ligne ou il y a "d4" - je souhaiterais supprimer uniquement la ligne juste au dessus)

For r = Range("A1").End(xlDown).Row To 1 Step -1
If Range("A" & r) Like "*d4*" Then Rows(r).Delete
Next r

Merci pour votre aide.

Bon après-midi.

 

[pierrejean]

Bonjour Elodie

A tester:

For r = Range("A1").End(xlDown).Row To 1 Step -1
   If Range("A" & r) Like "*d4*" Then Rows(r-1).Delete
Next r

 

[zebanx]

Bonjour Emilie, Bonjour Pierre-Jean


------
Sub supprime_d4()
Dim j As Integer

derligne = Range("A" & Rows.Count).End(xlUp).Row

For j = 1 To derligne
If Range("A" & j) Like "*d4*" Then
Rows(j - 1).Delete
End If
Rows(j + 1).Select
Next j

End Sub

 

[Elodie195]

Bonjour PierreJean, Bonjour zebanx,

Merci pour votre aide.

PierreJean -> j'avais tester le r-1, et cela supprime tout sauf d4

zebanx -> Merci beaucoup, ca fonctionne très bien !

Bon après midi à vous.