supprimer plusieur lignes à partir du contenue d'une cellule variable

[ninajams]

Bonjour,

Je souhaite supprimer toute les lignes à partir de la cellule contenant "60".

Le code ci-dessous supprimer la ligne à 60 mais pas celle d'en dessous.

Merci pour votre aide.

Micka


' Macro1 Macro
'
For n = 2 To Range("A65536").End(xlUp).Row
If Range("A" & n) = 60 Then
Rows(n).Delete
End If
Next n

'
End Sub

 

[Mytå]

Re : supprimer plusieur lignes à partir du contenue d'une cellule variable

Salut le forum

Boucle en partant de la fin

For n = Range("A65536").End(xlUp).Row To 2 step -1

Mytå