supprimer toutes les lignes au dessus d'une cellule vba

Staple1600

XLDnaute Barbatruc

• 22 Février 2020

• #2

Bonsoir le fil

Une possibilité (brute de décoffrage 😉)

VB:

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

 

Vote positif 0 Vote négatif

P

ptifanou

Guest

• 23 Février 2020

• #3

super merci staple ça fonctionne!!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Février 2020

• #4

Bonjour le fil, ptifanou

Juste pour le plaisir de varier l'écriture

VB:

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 23 Février 2020

• #5

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 😵😕😛

 

Vote positif 0 Vote négatif

P

ptifanou

Guest

• 23 Février 2020

• #6

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Février 2020

• #7

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?

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 23 Février 2020

• #8

Bonjour @ptifanou,

ptifanou à dit:

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

Cliquez pour agrandir...

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: 23 Février 2020

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Février 2020

• #9

Re

Un possibilité (toujours brute de décoffrage)

VB:

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

 

Vote positif 0 Vote négatif

P

ptifanou

Guest

• 23 Février 2020

• #10

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Février 2020

• #11

Re,

Préférez le coffrage aromatisé à la pomme*
😉
(il est plus sécure)

*: cf message#8)

 

Vote positif 0 Vote négatif