Copie d'une cellule contenant Time dans un UserForm

Question

Bonjour

Débutant en Excel et en VBA je butte sur un problème de copie de cellule entre une feuille et un UserForm .
Je m'explique :
Deux cellules contiennent l'heure au format xx:xx:xx (ex:13:25:32 et 15:32:11).
Une autre cellule calcule la différence de temps (= cellule2 - cellule 1)
Le résultat est bon et au format xx:xx:xx

Dans une macro j'essaie de copier le contenu de ce résultat dans un TextBox d'un UserForm par le code suivant
TextBox1.Value = Sheets("Feuil1").Range("A1").Value

La est mon problème : Dans le TextBox le format est modifié après transfert et se trouve sous la forme décimale , par exemple 0,4353125...
en lieu et place du format initial de la forme xx:xx:xx pour respectivement H:Mn:Sec

Je suppose qu'il s'agit d'une incompatibilité de format entre la cellule
contenant le résultat (format Time) et le format du TextBox mais je ne sais pas comment le résoudre .

Une suggestion ?
Avec mes remerciementsz

AlKatou · Answer

Salut,

il faut que tu mets ceci : 

TextBox1.Value = FormatDateTime(Sheets("Feuil1").Range("A1").Value)


bonne continuation, AlKa

jiafu · Answer

Un grand merci pour votre réactivité et participation
Problème résolu

NHenry · Answer

Bonjour,

Sinon, à la place d'utiliser Value, utilises Text, ça te retourne le texte tel qu'affiché.

Mon site

Copie d'une cellule contenant Time dans un UserForm

3 réponses

Votre réponse

Discussions similaires