[VBA] Heure dans une textBox

Résolu
Noodlesnood Messages postés 33 Statut Membre -  
 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
Configuration: Windows XP
Firefox 2.0.0.1

8 réponses

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

    Donc c'est en anglais : hour, minute, second...
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Noodlesnood Messages postés 33 Statut Membre 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
  7. 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
  8. Daranc
     
    dans ton cas
    UsfNew2.TextBox10.Value = format(Feuil12.Range("C96").Value,"hh:mm:ss AMPM")
    Daranc
    0
  9. 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