[VBA] Heure dans une textBox

Résolu/Fermé
Noodlesnood Messages postés 33 Date d'inscription mercredi 17 janvier 2007 Statut Membre Dernière intervention 10 octobre 2008 - 30 janv. 2007 à 14:30
 Lorenzozo - 2 déc. 2009 à 12:48
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 25976 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 17 avril 2024 3 286
30 janv. 2007 à 16:19
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 mercredi 17 janvier 2007 Statut Membre Dernière intervention 10 octobre 2008 2
30 janv. 2007 à 16:53
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 mercredi 17 janvier 2007 Statut Membre Dernière intervention 10 octobre 2008 2
5 févr. 2007 à 11:49
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 25976 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 17 avril 2024 3 286
5 févr. 2007 à 13:00
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 mercredi 17 janvier 2007 Statut Membre Dernière intervention 10 octobre 2008 2
5 févr. 2007 à 14:16
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
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
dans ton cas
UsfNew2.TextBox10.Value = format(Feuil12.Range("C96").Value,"hh:mm:ss AMPM")
Daranc
0
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