Discussion :

[beaujack]

Bonjour

Dans la Feuil1, les cellules A1 à A4 contiennent des heures, la cellule A5 contient le total d’heures
Respectivement 05 :00 – 12 :00 – 17 :30 – 08 :00
Avec le format Personnalisé hh :mm le total en cellule A5 affiche 18 :30
Avec le format Personnalisé [hh] :mm le total en cellule A5 affiche 42 :30
Jusque là rien d’anormal à la lecture sur différents forums
Le problème se pose quand je veux afficher le contenu de la cellule A5 dans l’Userform1
Pour le TextBox1 et pour le TextBox2
Avec le code :

Code :

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

UserForm1.TextBox1 = Worksheets(1).Cells(5, 1).Value

J’obtiens

Code :

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

1.77083333333333

Avec le code :

Code :

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

UserForm1.TextBox2 = Format(Worksheets(1).Cells(5, 1).Value, ("[hh]:mm"))

J’obtiens :

Code :

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

12

(pourquoi 2points et 12 ????)
Après plusieurs essais en changeant le format, en supprimant Value en passant pas une variable intermédiaire rien n’y fait.
Merci d’avance à ceux et celles qui m’apporteront leurs compétences pour résoudre ce problème.
Cordialement votre.

[patricktoulon]

bonjour
test ca

Code :

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

UserForm1.TextBox1 = Worksheets(1).Cells(5, 1).text

[beaujack]

Je tiens à remercier patricktoulon pour la rapidité de réponse et qui fonctionne parfaitement.
A 71 ans mes neurones ne fonctionnent plus comme avant.
Toutefois je ne comprends pas pourquoi mettre .Text alors qu'il est dit sur les forums que c'est une variable décimale Long.
C'est pas très important ...l'essentiel c'est que ça marche
Merci
Informatiquement votre

[patricktoulon]

re
bonsoir

que tu rentre 123546789 ou "toto mange des bannanes " ton textbox recois du texte et sera du texte (STRING)

Code :

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

1
2
3
4
TextBox1 = [A1].Value
MsgBox TypeName(TextBox1.Value)
TextBox1 = [A1].Text
MsgBox TypeName(TextBox1.Value)

maintenant ta cellule peut etre formatée autrement dit sa valeur n'est pas ce qu'elle affiche
donc si tu met .value tu aura sa valeur et si tu met .text tu aura ce que tu vois dans la cellule

en effet on ne peut pas calculer la valeur d'un textbox avec une autre valeur justement parcequ'un textbox te renverra toujours un string
pour palier a ca c'est tout simple tu converti

La_somme= clng(textbox1)+clng(textbox2)

tu peux utiliser Val ou Cdbl
le mieux c'est cdbl au cas ou il y aurait des decimales