BESOIN BOUTON "EFFACEZ TOUT"

don_pets

XLDnaute Occasionnel

• 24 Août 2018

• #2

'llo,

petite solution rapide

Code:

Sheets(1).Select 
Range("a50000").End(xlUp).CurrentRegion.Offset(1).ClearContents

See ya

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 24 Août 2018

• #3

Bonjour Fidmo, le Forum

@Fidmo

Tu veux effacer seulement les données ou aussi la mise en forme?

EDIT: bonjour don_pets

 

Dernière édition: 24 Août 2018

Vote positif 0 Vote négatif

F

Fidmo

XLDnaute Occasionnel

• 24 Août 2018

• #4

Bonjour Cher Lone-wolf,
Merci pour votre aide et je veux effacer seulement les données.
Fidmo

 

Vote positif 0 Vote négatif

F

Fidmo

XLDnaute Occasionnel

• 24 Août 2018

• #5

Bonjour cher don_pets,
Je n'ai rien compris à votre (petite solution rapide) car je suis nul en Excel. Merci pour la réponse.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 24 Août 2018

• #6

Re Fidmo

@Fidmo : ton fichier en retour.

 

Pièces jointes

• FIDMO-31.xlsm

  48.8 KB · Affichages: 31

Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

• 24 Août 2018

• #7

Pour faire simple, regarde la PJ

 

Pièces jointes

• FIDMO-31.xlsm

  52.6 KB · Affichages: 45

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 24 Août 2018

• #8

permet d'effacer tout le contenu de chaque feuille.

Cliquez pour agrandir...

@don_pets : c'est toutes les feuilles du classeur qui doivent être prises en compte.

 

Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

• 24 Août 2018

• #9

@lone, tu as parfaitement raison, j'ai lu bien trop rapidement la demande

 

Vote positif 0 Vote négatif

F

Fidmo

XLDnaute Occasionnel

• 24 Août 2018

• #10

Re Bonjour Cher don_pets,
C'est super pour le feuille1
Est ce que vous pouvez faire la même chose pour la Feuil2 avec son propre bouton ? Mil Mercis.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 24 Août 2018

• #11

Re

@Fidmo : dans le cas où les colonnes dans chaque feuille seraient différentes.
Est-ce que par hasard tu as vu que j'ai mis ton classeur en retour?

VB:

Sub Efface_Tout()
Dim Ws As Worksheet, x&

    Application.ScreenUpdating = False

    For Each Ws In ThisWorkbook.Sheets
        With Ws
            x = .Range("a" & Rows.Count).End(xlUp).Row
            .Range("a" & x).End(xlUp).CurrentRegion.Offset(1).ClearContents
        End With
    Next Ws
End Sub

 

Dernière édition: 24 Août 2018

Vote positif 0 Vote négatif

F

Fidmo

XLDnaute Occasionnel

• 24 Août 2018

• #12

Re Cher Lone-wolf,
Oui les colonnes dans chaque feuille sont différentes.
"Est-ce que par hasard tu as vu que j'ai mis ton classeur en retour?" Non, je ne vois pas votre classeur en retour! Ou peut-être je ne sais pas comment le trouver? Merci pour votre temps.
Cependant, je vous précise que la proposition de "don_pets" me va bien pour la Feuil1. Il reste la feuil2 qui n'a pas de bouton "Effacez Tout" s'il le fait Tout sera résolu pour moi.
Merci à vous deux Chers Amis.
Fidmo

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 24 Août 2018

• #13

Re Fidmo

@Fidmo : le classeur est au Post #6

 

Vote positif 0 Vote négatif

F

Fidmo

XLDnaute Occasionnel

• 24 Août 2018

• #14

Re-Cher Lone-wolf,
Merveilleux, Mille mercis. C'est très très beau pour moi.
Cordialement. Bonne fin de journée.
Fidmo

 

Vote positif 0 Vote négatif