supprimer toutes les lignes au dessus d'une cellule vba

ptifanou

XLDnaute Junior
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,
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour @ptifanou,
Sans vouloir abuser, comment pourrais je faire la même chose mais en dessous d'une cellule contenant une valeur?
Abusons, abusons...

Testez:
VB:
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
 
Dernière édition:

Discussions similaires

Réponses
22
Affichages
690
Réponses
6
Affichages
99