XL 2019 Supprimer les dernières lignes d'une feuille

[netparty]

Bonjour le forum

J'ai besoin de votre aide car mon code bug.

Je voudrai supprimer les 32 dernières ligne de mon tableau mais je n'y arrive pas.


Merci d'avance pour votre aide

 

[Phil69970]

Bonjour @netparty

En clair dans ton fichier tu veux supprimer de la ligne 48 à la ligne 79 ?

@Phil69970

 

[netparty]

Bonjour @netparty

En clair dans ton fichier tu veux supprimer de la ligne 48 à la ligne 79 ?

@Phil69970

Bonjour Phil69970

Oui mais en sachant que si je copie colle mon tableau ( j’appelle tableau la partie encadrée en gras),
alors mes dernières 32 lignes ne sont plus de 48 à 79 mais 80 à 112

Bonne journée

 

[Phil69970]

@netparty

Donc les lignes à supprimer sont de 80 à 112 ?

Un exemple serait le bienvenu avec quelle ligne à supprimer....

@Phil69970

 

[netparty]

@netparty

Donc les lignes à supprimer sont de 80 à 112 ?

Un exemple serait le bienvenu avec quelle ligne à supprimer....

@Phil69970

Re Phil69970

Merci pour ton intervention, mais en cherchant j(ai trouvé une solution à mon problème.

Je joint le code si cela peut aider quelqu'un.

Sub Supprimer_Feuille()

    '   *** Recherche derniere cellule vide en A et remonte de 1
    Set ch1 = Range("A" & Rows.Count).End(xlUp).Offset(-1, 0)
    '   *** Plage de selection du tableau
    Set ch2 = Range("A" & Rows.Count).End(xlUp).Offset(-31, 16)
    '   *** Selectionne la plage
    Range(ch1.Cells(1, 1).Offset(1, 0), ch2.Cells(1, ch2.Columns.Count).Offset(-1, 0)).EntireRow.Select
    '   *** Supprime la selection
    Selection.Delete Shift:=xlUp
    

End Sub

Bonne fin de journée