suppression lignes sans select vba

C

Compte Supprimé 979

Guest

• 21 Avril 2020

• #2

Bonjour,

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

 

Vote positif 0 Vote négatif

P

ptifanou

XLDnaute Junior

• 21 Avril 2020

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Avril 2020

• #4

Bonjour le fil, ptifanou, BrunoM45

Essaie ceci

VB:

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 21 Avril 2020

• #5

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+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Avril 2020

• #6

Re

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

 

Vote positif 0 Vote négatif

P

ptifanou

XLDnaute Junior

• 21 Avril 2020

• #7

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 21 Avril 2020

• #8

Salut Staple1600

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 21 Avril 2020

• #9

ptifanou à dit:

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

Cliquez pour agrandir...

Ptifanou... il fallait prendre le miens

 

Vote positif 0 Vote négatif

P

ptifanou

XLDnaute Junior

• 21 Avril 2020

• #10

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Avril 2020

• #11

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 😉)

 

Vote positif 0 Vote négatif

P

ptifanou

XLDnaute Junior

• 21 Avril 2020

• #12

le

With Sheets("HORSGABARIT")

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Avril 2020

• #13

Re

Fonctionne sur mon PC

VB:

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

 

Vote positif 0 Vote négatif

P

ptifanou

XLDnaute Junior

• 21 Avril 2020

• #14

super merci à vous deux!!!

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 21 Avril 2020

• #15

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

 

Pièces jointes

• Ptifanou_Exemple.xlsm

  15.2 KB · Affichages: 6

Dernière modification par un modérateur: 21 Avril 2020

Vote positif 0 Vote négatif