Résolu suppression lignes sans select vba

ptifanou

XLDnaute Nouveau
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
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil, ptifanou, BrunoM45

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

BrunoM45

XLDnaute Barbatruc
Ah ok, tu voulais le code


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

ptifanou

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

Staple1600

XLDnaute Barbatruc
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

XLDnaute Nouveau
le

With Sheets("HORSGABARIT")

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

Staple1600

XLDnaute Barbatruc
Re

Fonctionne sur mon PC
VB:
Sub SupprimerLignes_II()
Sheets("HORSGABARIT").Rows("3:" & Rows.Count).Clear
End Sub
 

BrunoM45

XLDnaute Barbatruc
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
 

Fichiers joints

Dernière édition:

Staple1600

XLDnaute Barbatruc
Re

BrunoM45
Moi, j'ai pas dit cela ;)
J'ai juste usé mes 37 secondes de confinement pour modifier mon petit bout de code ;)
(comme précisé dans le message# 11)
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas