Microsoft 365 problème sur une macro

ric006

XLDnaute Nouveau
Bonjour je souhaiterai faire une macro pour afficher l'heure dans une cellule lors du double clic , j'ai trouver une formule mais je n'arrive pas a la transposer sur mon excel , ça me met une erreur end sub attendue des la première ligne. la voici :

Sub heure()
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target = Format(Now, "hh:mm:ss")
End Sub
End Sub

quelqu'un saurait me dire ce que je dois corriger ?

Merci
 

ric006

XLDnaute Nouveau
Votre macro doit être stricteent :
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target = Format(Now, "hh:mm:ss")
End Sub
Sans Sub heure() et avec un seul End Sub.
Ca devrait marcher, c'est le B A BA du VBA.
pourrais tu essayer de me mettre la formule sur mon fichier voir si avec toi ça ne bug pas , s'il te plait
 

Pièces jointes

  • Suivi Engins Sable + Lave Vitre + MAL .xlsm
    582.3 KB · Affichages: 2

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T