Supprimer les 4 dernières lignes

[julien712]

Bonjour

Je souhaite faire une macro me permettant de supprimer les 4 dernières lignes de ma feuille.
Je sais que ma première cellule de ma feuille remplie est A1 par contre je ne connais pas le numéro de la dernière ligne remplie.

Dans l'exemple en PJ, il faut donc que je supprimer les lignes 19 à 22 (qui contiennent les chiffres 1 à 4)

Avez vous une idée pour faire cette macro ?

Merci

Cdlt

 

[Pierrot93]

Re : Supprimer les 4 dernières lignes

Bonjour,

essaye ceci :

Range("A65536").End(xlUp).Offset(-3).Resize(4).EntireRow.Delete

bonne journée
@+

 

[Robert]

Re : Supprimer les 4 dernières lignes

Bonjour Julien, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim dl As Integer 'déclare la variable dl (Dernière Ligne
dl = Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne de la colonne A (1)
Rows(dl - 3 & ":" & dl).Delete 'efface les 4 dernìeres lignes
End Sub

[Édition]
Arf Pierrot ! Mieux en plus vite. Je te hais...

 

[julien712]

Re : Supprimer les 4 dernières lignes

Merci à vous.
Juste pour que je comprenne :
@Pierrot93 : à quoi correspond le "offset" et le "resize" ?
@Robert : cela semble similaire à Pierrot93 non ?
Merci encore

 

[Pierrot93]

Re : Supprimer les 4 dernières lignes

Re, salut Robert

"Range("A65536").End(xlUp)" détermine la dernière cellule de la colonne A
"Offset" remonte de 3 lignes
"Resize" redimensionne la plage sur 4 lignes...

 

[kjin]

Re : Supprimer les 4 dernières lignes

Bonjour à tous,
Testes quand même qu'il y a au moins 4 lignes !

If ActiveSheet.UsedRange.Rows.Count < 4 Then Exit Sub

A+
kjin

 

[Robert]

Re : Supprimer les 4 dernières lignes

Bonjour Julien, Pierrot, bonjour le forum,

Oui c'est assez similaire mais pierrot fait ça d'un seul coup... Je décortique son code
il repère la dernière ligne éditée de la colonne A avec :

Range("A65536").End(xlUp)

puis il remonte de trois cellules vers le haut

.Offset(-3)

et il redimensionne le selection pour quelle contienne 4 lignes

.Resize(4)

après il sélectionne les lignes entière (et non plus les cellules de la colonne A)

.EntireRow

que finalement il efface

.Delete

C'est tellement simple que ça m'énerve...

 

[Pierrot93]

Re : Supprimer les 4 dernières lignes

Re,

C'est tellement simple que ça m'énerve...

reste calme Robert... tu t'es vengé sur l'explication qui est bien meilleure que la mienne....

 

[julien712]

Re : Supprimer les 4 dernières lignes

Merci à vous pour les explications