BOUTON EFFACER FEUILLE

Fidmo · 26 Août 2018

Bonjour Cher(e)s Amis,
Encore une fois ayant besoin de votre aide précieuse je joins mon Fichier qui comporte 24 feuilles où j'ai besoin de création d'un bouton qui permet d'effacer tout le contenu de chaque feuille uniquement.
En cliquant sur le bouton que j'ai eu grasse à la collaboration de notre Cher Lone-wolf vous remarquerez qu'il efface toutes les 24 feuilles du classeur chose qui me fait perdre les données précédentes.
Je souhaite avoir un bouton qui efface le contenu de sa propre feuille seulement, est-ce possible?
Dans l'attente d'une aimable aide bonne journée et Merci d'avance.
Fidmo

M12 · 26 Août 2018

Bonjour,
Tu remplaces la macro du module existant par ceci

Code:

Sub Efface_Tout()
Dim Ws As Worksheet, x&

    Application.ScreenUpdating = False

   
        With ActiveSheet
            x = .Range("a" & Rows.Count).End(xlUp).Row
            .Range("a" & x).End(xlUp).CurrentRegion.Offset(1).ClearContents
        End With
   
End Sub

Fidmo · 26 Août 2018

Bonjour Cher M12,
Un Grand Merci pour votre réponse si rapide. C'est parfait. Mon problème est résolu.
Bien cordialement et bonne fin de journée Cher Ami.
Fidmo

BOUTON EFFACER FEUILLE

Fidmo

XLDnaute Occasionnel

Pièces jointes

M12

XLDnaute Accro

Fidmo

XLDnaute Occasionnel

Discussions similaires

BOUTON EFFACER FEUILLE

Fidmo

XLDnaute Occasionnel

Pièces jointes

M12

XLDnaute Accro

Fidmo

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency