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