Discussion :

[titemireille]

Bonsoir à tous,
je désire remplir la textbox d'un userform avec le contenu d'une cellule excel.
Le contenu de la cellule excel est 70:00:00 heures. Il s'agit d'un cumul d'heures.
En mettant "TextBox.Value = Format(TextBox.Value, "hh:mm:ss"), cela ne fonctionne pas. J'ai aussi essayé [h] mais cela donne un message d'erreur.
Quelqu'un peut-il m'aider?

[Qwazerty]

SAlut
Si ta cellule est formatée, tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox.Value = CelluleExcel.Text

Et en tapant ça je me rend compte que tu devais vouloir dire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox.Value = Format(CelluleExcel.Value, "hh:mm:ss")

A++Qwaz

[ouskel'n'or]

Une autre solution tout droit sortie de la FAQ, au chapitre "http://excel.developpez.com/faq/index.php?page=Formats#SymbolesFormat"

par exemple, [hh]:mm est utilisé pour que les fonctions puissent renvoyer des formats d'heures supérieures à 24 heures

Intéressant, la FAQ

[AlainTech]

Sauf que Format (dans VBA) n'accepte pas [h] comme paramètre.
La solution est donc là:
http://www.developpez.net/forums/sho...05#post2965805

A moins que quelqu'un ne trouve plus simple...

[titemireille]

Bonjour,

merci pour vos réponses!
Mais si je mets textbox.value = celluleexcel, comment je définis la cellule excel? Et ca veut dire qu'il va falloir que je définisse toutes les cellules excel que je vais utiliser?
Et [hh] que j'ai déja essayé parceque je l'ai mis dans mon message me retourne :06:00!
C'est pas vraiment 70:00:00!
Dès que je mets des crochets, ca supprime la partie entre crochets.
Si je mets que [hh], ca me donne incompatibilté de type.
J'ai essayé de me réferer au format personnalisé de cellule excel. Mais cela ne fonctionne pas.
J'ai mis aussi text mais cela me donne 6,5. Jai pensé à mettre valeur absolue mais je ne sais pas comment faire.
Alors avez vous d'autres idées? ou bien un moyen détourné d'arriver au même résultat?
merci

[titemireille]

bonjour Alaintech,

ta réponse est venue pendant que je répondais aux deux premières.
Je suis allée sur la discussion que tu m'as indiqué. Je te prie de m'excuser mais je n'y comprends rien!
Aurais-tu l'obligeance de m'éclairer?

[fring]

Bonjour tlm,

Je me trompe sans doute, mais perso je ne vois pas le problème d'écrire (en supposant que la cellule A1 contient 70:00:00)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm1.TextBox1.Text = Cells(1, 1).Text

Dans le TextBox on obtiendra 70:00:00

[ouskel'n'or]

Teste ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
Dim Heure As Date, tps As Integer, Ajouter as double
Heure = "12:00:00"
tps = 15 'ajouter 15h à Heure
Ajouter  = tps / 24
Result = (Ajouter  + CDbl(Heure)) * 24
End Sub

L'idée ? Dans une journée il y a 24h de 60mn
Si on convertit le temps à ajouter en N° de série, on obtient bien le total des heures en N° de série
cdbl convertit l'heure de départ en N° de série
et
Tps / 24 convertit le temps à ajouter en N° de série
Result ajoute les N° de série et convertit le total en heures.
Reste plus qu'à faire pareil avec les minutes si nécessaire.
Il existe certainement d'autres solutions mais j'aime bien celle-ci qui m'a forcé à comprendre comment sont fabriqués les N° de série et me libère de tout format d'heures ou de dates.
Mais ça reste une idée parmi les autres

[titemireille]

merci fring, ca marche!!!!!
je vais pouvoir continuer.
Je vous remercie pour la rapidité de vos réponses et je vous laisse en attendant que je me heurte à un autre pb!
Enfin pas trop tôt , j'espère.
Bye