supprimer toutes les lignes au dessus d'une cellule vba

[ptifanou]

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,

 

[Staple1600]

Bonsoir le fil

Une possibilité (brute de décoffrage )

Sub Suppr()
Dim p As Range
On Error Resume Next
Set p = Columns(1).Cells.Find("asp")
Rows("1:" & p.Row - 1).EntireRow.Delete
End Sub

 

[ptifanou]

super merci staple ça fonctionne!!

 

[Staple1600]

Bonjour le fil, ptifanou

Juste pour le plaisir de varier l'écriture

Sub Suppr_v2()
On Error Resume Next
Cells(1).Resize(Columns(1).Cells.Find("asp").Row - 1).EntireRow.Delete
End Sub

 

[mapomme]

Bonjour @Staple1600 ,

Comme je souhaitais te transmette mon salut dominical, républicain, clérical et agricole , j'ai cherché une raison spécieuse et je l'ai trouvée:

• vider la colonne A
• mettre le terme "asp" en A1 et aussi en A2

Jouer de la macro. La ligne 1 disparait

 

[ptifanou]

Sans vouloir abuser, comment pourrais je faire la même chose mais en dessous d'une cellule contenant une valeur?

 

[Staple1600]

Bonjour mapomme

Dois-faire je pénitence?
Dois-je prendre la sortie?
Une des seules que je connaisse? Exit To Chatagoune Goune


ptifanou
Tu vois pas comment adapter la chose?

 

[mapomme]

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:

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

 

[Staple1600]

Re

Un possibilité (toujours brute de décoffrage)

Sub Suppr_v3()
On Error Resume Next
Range(Cells(Rows.Count, 1), Columns(1).Cells.Find("asp").Offset(1)).EntireRow.Delete
End Sub

 

[ptifanou]

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

 

[Staple1600]

Re,

Préférez le coffrage aromatisé à la pomme*

(il est plus sécure)

*: cf message#8)