effacer ligne du dessus

[eddy13t]

Bonjour, j'aimerai dire en vba que pour chaque cellule ou il y a écrit "Doublons" alors effacer la ligne du dessus....

Merci de votre aide

 

[Efgé]

Re : effacer ligne du dessus

Bonjour eddy13t,
Si la cellule "Doublon" est en colonne A essaye:

Sub cacher_ligne()
For i = Range("A65536").End(xlUp).Row To 2 Step -1
    If Cells(i, 1).Value = "Doublon" Then
        Cells(i, 1).Offset(-1, 0).EntireRow.Delete
    End If
Next i
End Sub

ATTENTION à tester sur une copie. Code destructif.
PS: c'est le 1 de

 If Cells(i, [B][COLOR=red]1[/COLOR][/B]).Value = "Doublon" Then

qui donne le numéro de la colonne à tester
Cordialement

 

[eddy13t]

Re : effacer ligne du dessus

Merci de votre aide je vais essayer

 

[Efgé]

Re : effacer ligne du dessus

Alors

Sub cacher_ligne()
For i = Range("[B][COLOR=red]J[/COLOR][/B]65536").End(xlUp).Row To 2 Step -1
    If Cells(i, [B][COLOR=red]10[/COLOR][/B]).Value = "Doublon" Then
        Cells(i, [B][COLOR=red]10[/COLOR][/B]).Offset(-1, 0).EntireRow.Delete
    End If
Next i
End Sub

Cordialement