Microsoft 365 problème sur une macro

[ric006]

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

 

[sylvanu]

Bonjour Ric, et bienvenu sur XLD,
Une macro commence toujours par Sub et finit par EndSub.
Or vous avez deux EndSub, d'où l'erreur.

 

[ric006]

Bonjour Ric, et bienvenu sur XLD,
Une macro commence toujours par Sub et finit par EndSub.
Or vous avez deux EndSub, d'où l'erreur.

même en supprimant un end sub ça me laisse la même erreur "Erreur compilation End sub attendu"

 

[sylvanu]

Le problème ne vient pas de la macro.
Testez cette PJ qui contient in extenso votre code.

 

[ric006]

Le problème ne vient pas de la macro.
Testez cette PJ qui contient in extenso votre code.

je sais pas d'où vient le bug quand j'essaye ton fichier ça marche nikel , mais si j'essaye de mettre la macro sur mon fichier ou même d'en créer un nouveau l'erreur reviens

 

[sylvanu]

Votre macro doit être stricteent :

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.

 

[ric006]

Votre macro doit être stricteent :

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

 

[sylvanu]

😂😂😂 je ne vois pas pourquoi ça ne marcherait pas.

( je pense que vous aviez deux sub et/ou deux EndSub )
Je ne l'ai fait que pour Janvier.

 

[ric006]

😂😂😂 je ne vois pas pourquoi ça ne marcherait pas.

( je pense que vous aviez deux sub et/ou deux EndSub )
Je ne l'ai fait que pour Janvier.

alors ca dois venir de mon excel , c'est parfait ça fonctionne , mais je ne vois pas la macro quand je fait afficher macro , il n'y a rien

 

[sylvanu]

??? Votre macro est une événementielle, donc elle se trouve dans la feuille Janvier.