suppression lignes sans select vba

[ptifanou]

Bonjour,
je voudrais supprimer toutes lignes en dessous de la ligne 2 sur une feuille qui se nomme "HORSGABARIT", sans passer par la méthode select.
est ce possible?
merci

 

[Compte Supprimé 979]

Bonjour,

Je répond à ta demande, oui c'est possible 😉

 

[ptifanou]

merci bruno!! aurais tu un code vba pour ça?

 

[Staple1600]

Bonjour le fil, ptifanou, BrunoM45

Essaie ceci

Sub SupprimerLignes()
Rows("3:" & Rows.Count).Clear
End Sub

 

[Compte Supprimé 979]

Ah ok, tu voulais le code

Un truc du style

Sub SupLig
With Sheets("HORSGABARIT")
  dLig = .Range("A" & Rows.Count).End(XlUp).Row
 .Rows("2:" & dlig).Delete
End With
End sub

A+

 

[Staple1600]

Re

•>BrunoM45
Plus court dans le message#4, non?
😉

 

[ptifanou]

merci beaucoup staple
comment faire que ce code fonctionne sur ma feuille nommé "HORSGABARIT" même si je ne suis pas dessus?

 

[Compte Supprimé 979]

Salut Staple1600

Oui, mais je n'avais pas ton message quand j'ai posté

 

[Compte Supprimé 979]

merci beaucoup staple
comment faire que ce code fonctionne sur ma feuille nommé "HORSGABARIT" même si je ne suis pas dessus?

Ptifanou... il fallait prendre le miens

 

[ptifanou]

desolais bruno j'ai pas act
ualiser la page, j'avais pas vu ton post😉😉

 

[Staple1600]

Re

•>ptifanou
Comme dit BrunoM45: tu prends son code 😉
Ou tu adaptes le mien en se basant sur le sien 😉
Tu vois comment faire?
Ou tu veux que je le fasse?
(je peux le faire, cela occupera 37 secondes de confinement 😉)

 

[ptifanou]

le

With Sheets("HORSGABARIT")

ne fonctionne pas, si je suis sur une autre feuille la macro supprime les lignes de cette feuille

 

[Staple1600]

Re

Fonctionne sur mon PC

Sub SupprimerLignes_II()
Sheets("HORSGABARIT").Rows("3:" & Rows.Count).Clear
End Sub

 

[ptifanou]

super merci à vous deux!!!

 

[Compte Supprimé 979]

Ptifanou,

Comme je n'aime pas qu'on dise que mes codes ne fonctionnent pas
Voici mon fichier test qui te démontrera le contraire