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