[VBA] Heure dans une textBox

Résolu
Noodlesnood Messages postés 33 Date d'inscription   Statut Membre Dernière intervention   -  
 Lorenzozo -
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

8 réponses

blux Messages postés 27117 Date d'inscription   Statut Modérateur Dernière intervention   3 359
 
Salut,

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 ?
0
Noodlesnood Messages postés 33 Date d'inscription   Statut Membre Dernière intervention   2
 
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
0
Noodlesnood Messages postés 33 Date d'inscription   Statut Membre Dernière intervention   2
 
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?
0
blux Messages postés 27117 Date d'inscription   Statut Modérateur Dernière intervention   3 359
 
Pardon, j'avais pas fait attention que c'était du VBA...

Donc c'est en anglais : hour, minute, second...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Noodlesnood Messages postés 33 Date d'inscription   Statut Membre Dernière intervention   2
 
J'aurais dû y penser : D ... En tout cas merci blux tu m'es d'une grande aide pour moi qui suis débutant ; ) .
0
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
0
Daranc
 
dans ton cas
UsfNew2.TextBox10.Value = format(Feuil12.Range("C96").Value,"hh:mm:ss AMPM")
Daranc
0
Lorenzozo
 
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
0