[VBA] Heure dans une textBox
Résolu
Bonjour,
Voici mon problème : J'aimerais transposer dans une textBox mon nombre d'heures issu de ma cellule C96, mais ça me donne un nombre à virgules avec cette partie de code :
UsfNew2.TextBox10.Value = Feuil12.Range("C96").Value
Dois-je faire une conversion en chaine de caractères? De quelle manière?
Nood
Voici mon problème : J'aimerais transposer dans une textBox mon nombre d'heures issu de ma cellule C96, mais ça me donne un nombre à virgules avec cette partie de code :
UsfNew2.TextBox10.Value = Feuil12.Range("C96").Value
Dois-je faire une conversion en chaine de caractères? De quelle manière?
Nood
Configuration: Windows XP Firefox 2.0.0.1
8 réponses
-
Bonjour,
Je tente d'utiliser les codes ci-dessous mais où dois-je positionner cette séquence de code ? Dans la procédure principale qui utilise cette textbox ou dans la procédure qui gère l'ouverture de la boîte de dialogue où se trouve la textbox ????? Help please.
Merci d'avance
Lorenzozo -
dans ton cas
UsfNew2.TextBox10.Value = format(Feuil12.Range("C96").Value,"hh:mm:ss AMPM")
Daranc -
l'instruction suivante:
TextBox1.Value = Format(Range("a1").Value, "hh:mm:ss AMPM")
renvoie la valeur de la cellule A1 en format heure minute secondes PM ou AM
Daranc -
J'aurais dû y penser : D ... En tout cas merci blux tu m'es d'une grande aide pour moi qui suis débutant ; ) .
-
ModérateurPardon, j'avais pas fait attention que c'était du VBA...
Donc c'est en anglais : hour, minute, second...
-
Up
Je n'arrive toujours pas à transposer l'heure dans la TextBox. Dois-je déclarer les fonctions HEURE, MINUTE et SECONDE avant de les utiliser? Comment? -
Salut blux,
J'ai essayé ta méthode et j'ai un msg d'erreur 'Sub ou Function non définie' (curseur sur HEURE). Merci de ton aide ; )
Nood -
ModérateurSalut,
c'est normal, EXCEL enregistre les heures comme des multiples de jours :
12:00 ->0,5
01:00 ->0,041666667
24:00 ->1
Il te faut donc passer par les fonctions qui renvoient l'heure, les minutes et secondes à partir d'un numéro de série :UsfNew2.TextBox10.Value = HEURE(Feuil12.Range("C96").Value) & ":" & MINUTE(Feuil12.Range("C96").Value) & ":" & SECONDE(Feuil12.Range("C96").Value)
Ca irait comme ça ?
