Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
872
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…