Correction macro pour passer d'une feuille à tout le fichier

Bonjour le Forum,

J'ai la macro suivante pour avoir avec un double clic la date du jour de saisie.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Target = Date

Target.Value = Target.Value

Cancel = True

End Sub

Cette macro est actuellement dans une feuille et elle ne s'applique qu'à cette feuille.

Comment corriger cette macro pour la mettre dans un module pour qu'elle puisse s'appliquer à toutes les feuilles du fichier ?

Merci pour votre coopération

Cordialement

Fat

Bonjour

(feuil2) avec un bouton que l'on peut supprimer

fonctionne avec ou sans bouton sur toutes les feuilles par double clic ! :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Call godate
End Sub

et le module :

Sub godate()
Target = Date
ActiveCell.Value = Date
Cancel = True
End Sub

à tester

crdlt,

André