XL 2013 Comment convertir des minute en heure dans un USF

Dranreb

XLDnaute Barbatruc

• 21 Janvier 2018

• #2

Bonsoir.
Essayez :

VB:

TextBox2.Text = Format(Textbox1.Text / 1440, "hh:mm")

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Janvier 2018

• #3

Bonjour SSIAP2, Bernard, le forum,

Pour éviter un bug si TextBox1 est vide ou contient une valeur non numérique :

Code:

TextBox2 = Format(Val(Replace(Textbox1, ",", ".")) / 1440, "hh:mm")

Mettre des .Text est tout à fait inutile.

A+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Janvier 2018

• #4

Bonjour.
Du moment que ce n'est pas l'objet lui même dont il est question, je spécifie toujours la propriété que veux traiter. C'est un principe absolu. Enfin presque… Je me tolère sans doute de très rares exceptions, Err pour Err.Number étant la seule qui me vienne à l'esprit pour le moment. Ah oui, il y a aussi keyascii.
Je ne veut pas qu'on décide à ma place que c'est .Value qui sera modifié en non .Text. En plus ça rappele que .Value est quand même toujours au bout du compte un Variant/String, alors autant renseigner ou reprendre directement la String.

 

Vote positif 0 Vote négatif

S

SSIAP2

XLDnaute Occasionnel

• 21 Janvier 2018

• #5

Bonjour Danreb et Job75 merci pour votre aide et votre solution qui est parfaite et ma bien aider un grand merci à vous deux ainsi pour vos explications bon dimanche

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Janvier 2018

• #6

Bonjour le fil, le forum, SSIAP2, Dranreb, job75

J'avais compris que l'affichage en TextBox2 devait être décimal

Exemple: 65 (pour 65mn) je souhaiterais que celui ci s'affiche également en nombre d'heures en textbox2 exemple(1,05)

Cliquez pour agrandir...

Dans ce cas 65 ne donne pas 1,05 en décimal.
Me-trompe-je?

VB:

Private Sub CommandButton1_Click()
TextBox2 = Round((TextBox1 / 1440) * 24, 2)' 65-> 1.08
TextBox3 = Format(TextBox1 / 1440, "hh:mm")'65-> 01:05:00
End Sub

 

Vote positif 0 Vote négatif

kingfadhel

XLDnaute Impliqué

• 21 Janvier 2018

• #7

Bonsoir, le forum, le fil,

Ce que j'ai compris qu'il veut afficher son résultat sous forme "hh,mm"

VB:

Textbox2=Int(textbox1 / 60) & "," & Format(textbox1 Mod 60, "00")

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Janvier 2018

• #8

Sa demande parlait de 1,05 pour 65 minutes. Mais la virgule est à déconseiller très fortement dans ce cas pour éviter toute ambiguïté.

 

Vote positif 0 Vote négatif