Bonjour,
Voila je cherche un moyen de supprimer toutes les lignes au dessus d'une ligne qui contient une valeur.
Ma valeur se nomme "Asp" et se trouve dans une cellule de la colonne A.
cdlt,
Sub Suppr_Sous()
Dim n&
n = Application.IfError(Application.Match("asp", Columns(1), 0), Rows.Count)
If n < Rows.Count Then Range(Cells(n + 1, 1), Cells(Rows.Count, 1)).EntireRow.Delete
End Sub
j'imagine que sa ce joue au niveau de cette ligne de code
Rows("1:" & p.Row - 1).EntireRow.Delete
je suis vraiment nul en vba peut etre:
Rows(p.Row & "6500").EntireRow.Delete