BESOIN BOUTON "EFFACEZ TOUT"

[Fidmo]

Bonjour Cher(e)s Amis,
Ayant besoin de votre aide précieuse je joins mon Fichier qui comporte 2 feuilles où j'ai besoin de création d'un bouton qui permet d'effacer tout le contenu de chaque feuille.
Dans l'attente d'une aimable aide bonne journée et Merci d'avance.
Fidmo

 

[don_pets]

'llo,

petite solution rapide

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

See ya

 

[Lone-wolf]

Bonjour Fidmo, le Forum 🙂

@Fidmo

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

EDIT: bonjour don_pets

 

[Fidmo]

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

 

[Fidmo]

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

 

[Lone-wolf]

Re Fidmo

@Fidmo : ton fichier en retour.

 

[don_pets]

Pour faire simple, regarde la PJ

 

[Lone-wolf]

permet d'effacer tout le contenu de chaque feuille.

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

 

[don_pets]

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

 

[Fidmo]

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.

 

[Lone-wolf]

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?

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

 

[Fidmo]

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

 

[Lone-wolf]

Re Fidmo

@Fidmo : le classeur est au Post #6

 

[Fidmo]

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