Shape et Format de cette Shape

Bonjour,

j'ai un petit problème que je ne sais pas résoudre.

J'ai un chrono qui défile et qui s'affiche en "A25"

Pour un meilleure visibilité et pour ne pas à avoir à toucher ma feuille, je voudrais afficher ce chrono dans une shape rectangle.

Ainsi je pourrai mettre ce chrono n'importe où dans ma feuille et l'avoir tout le temps sous les yeux.

Problème : lorsque je récupère le contenu de la cellule "A25" et que je l'inscrit dans la shape, ça m'affiche bien le chrono mais en format standard et non format heure.

Sub majo()
 majour = Range("A25")
Shapes("chronometre").TextFrame.Characters.Text = majour
End Sub

Logique. Alors comment faire pour avoir un "texte" en format Date dans un Shape. C'est possible ?

Bonsoir et bienvenu(e)

A tester

Sub majo()
    majour = Range("A25")
  ActiveSheet.Shapes("chronometre").TextFrame.Characters.Text = Format(majour, "hh:mm:ss")
End Sub

Bonjour,

ça marche du tonnerre.

Merci

J'avais essayé avec Shapes("chronometre") mais sans le ActiveSheet et ça ne marchait pas. C'était l'élément qui me manquait.

Un grand MERCI !