[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

A voir également:

8 réponses

Réponse 1 / 8

blux Messages postés 26730 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 20 mars 2025 3 332
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 ?

Réponse 2 / 8

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

Réponse 3 / 8

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?

Réponse 4 / 8

blux Messages postés 26730 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 20 mars 2025 3 332
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...

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

Posez votre question

Réponse 5 / 8

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 ; ) .

Réponse 6 / 8

Daranc
26 juil. 2007 à 15:32

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

Réponse 7 / 8

Daranc
26 juil. 2007 à 15:34

dans ton cas
UsfNew2.TextBox10.Value = format(Feuil12.Range("C96").Value,"hh:mm:ss AMPM")
Daranc

Réponse 8 / 8

Lorenzozo
2 déc. 2009 à 12:48

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

Discussions similaires

35 GO à l'étranger

Bonjour, Mon offre mobile me permets de bénéficier de 35 GO à l'étranger.
Je voudrais savoir à combien d'heures d'utilisation cela correspond, sachant que je compte surtout utiliser l'application waze ...

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Colissimo

Bonjour j’aimerais savoir si les colissimo sont livré l’après midi s’il vous plaît ?
Sur mon suivie d’envoie sa m’a marque à partir d’aujourd’hui « Votre colis est dans le site de livraison qui dessert votre adresse. Nous le préparons pour le mettre en livraison«

Merci pour vos réponse

Quel est l'équivalent 40 GO d'internet en heures ?

Bonjour,
J'ai l'intention d'achter un portable avec internet compris
J'ai la possiblité d'avoir un forfait à 3.95 €, je crois, 1 heure de tel, SMS et 40 GO d'internet

Comme je n'ai pas l'intention d'utiliser beaucoup internet, juste pour voir les mails, un peu de recherche sur google, je me demande à combien de temps correspond 40 GO.
Internet sur mon portable c'est juste, pour pas faire grand chose.
Sinon on me propose un autre forfait avec 1 MO
Je voudrai savoir si 40 GO ça fait 1/4 d'heure, i/2 heure ou plus
Merçi de vos reponses

Je tiens combien de temps avec 2Go d'internet ?

J'ai une coupure d'internet, le service technique m'a dis que c'est normal, qu'ils font juste des réparations sur ma ligne. Seulement j'ai vraiment besoin d'internet cette semaine pour mes révisions donc j'ai acheté 2Go au bureau de tabac à mettre sur mon téléphone dont je me sert du coup pour un partage de co. La coupure d'internet devrait durer environs 1 jour et 13 heure d'après le service technique. Est-ce que avec 2Go en partage de co sur mon ordi je tiens aussi longtemps ? Si oui, est-ce que c'est suffisant pour par exemple regarder des vidéo ou faire des activités un peu plus gourmande pendant cette durée ?