Microsoft 365 problème sur une macro

ric006 · 20 Janvier 2022

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 · 20 Janvier 2022

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 · 20 Janvier 2022

sylvanu à dit:
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 · 20 Janvier 2022

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

ric006 · 20 Janvier 2022

sylvanu à dit:
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 · 20 Janvier 2022

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.

ric006 · 20 Janvier 2022

sylvanu à dit:
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

sylvanu · 20 Janvier 2022

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 · 20 Janvier 2022

sylvanu à dit:
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 · 20 Janvier 2022

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

Microsoft 365 problème sur une macro

ric006

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

ric006

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

ric006

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

ric006

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

ric006

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Discussions similaires