macro garder la derniere ligne

[maj92]

Bonjour,

Voilà, j'ai un fichier avec un nombre de lignes variable ;
cependant, il y a toujours une entête de B1 à B7 et un pied de page qui fait 3 lignes.

J'aimerais écrire une macro pour garder l'entête et le pieds de page (donc supprimer toutes les lignes entre)...

Pouvez-vous m'aider?

Merci d'avance pour vos réponses...

Maj92

 

[laetitia90]

Re : macro garder la derniere ligne

bonjour maj92

mettre un fichier exemple avec quelques lignes tu parles d'entêtes met en col b1.b7 bizarre comme presentation
non???

apres on verra tout cela🙂

 

[Staple1600]

Re : macro garder la derniere ligne

Bonsoir à tous

maj92 [Bienvenue sur le forum]
Sans plus d’éléments
(notamment un fichier exemple joint pourtant conseillé par la charte du forum...)

Une proposition qui fonctionne sur mon fichier de test à a maison.

Sub RAZ_FeuilleActive()
Dim PPage As Range
Set PPage = Cells(Rows.Count, "B").End(3).Offset(-3)
Rows("8:" & PPage.Row).Clear
End Sub

EDITION: Bonsoir leti 😉 (désolé pour la collision 😉 )

 

[laetitia90]

Re : macro garder la derniere ligne

re , salut Jean marie 🙂🙂🙂🙂 contente de te croiser pas clean son truc non ???
je te laisse le boulot😀😀😀😀

 

[maj92]

Re : macro garder la derniere ligne

Regarde la pièce jointe 0copie vide TA - Copie.xlsx

Bonjour, voici le fichier,
alors voilà, je souhaiterai garder les premières ligne (article, N100, N200...)

et les 3 dernières lignes

merci pour votre aide

Maj92

 

[Staple1600]

Re : macro garder la derniere ligne

Bonsoir à tous

maj92
As-tu au moins essayé la macro que je proposais dans le message #3 ?
L’extension de ton fichier joint laisse fortement pensé que tu ne l'as pas testé.

Car elle fait ce que tu souhaites, non ?

NB: A quoi bon demander de l'aide si c'est pour ne pas tester les propositions qu'on te soumet ?

 

[Si...]

Re : macro garder la derniere ligne

salut

Bonsoir à tous
NB: A quoi bon demander de l'aide si c'est pour ne pas tester les propositions qu'on te soumet ?

toi aussi tu en es victime ? 😛😀

Laetitia😀, si... ce n'est Clear, c'est peut-être Delete ? 😉

Sub RAZ_FeuilleActive()
  Dim L As Long
  L = [B65000].End(xlUp).Row - 3
  Rows("8:" & L).Delete
End Sub