Calcule dans une textbox

[TITOU73]

Bonjour lr forum,

Je cherche a calculer une valeur issue de 2 textbox :
la premiere issu d'une textbox avec une valeur au format hh:mm
La second issu d'une textbox avec une valeur decimale

Ex :
Textbox A --> 01:30
Textbox B --> 50

Le résultat final doit étre:
Convertion des 01:30 en 90 ( minutes) puis
90*50= 4500
Le résultat que je cherche est 4500 et doit apparaitre dans une textbox C

Merci pour votre aide

 

[Paritec]

Re : Calcule dans une textbox

Bonsoir Titou,le forum
bon alors tu prends l'habitude que l'on te fasse les fichiers !!!! donc là pas bon pour moi
quand tu feras ton userform avec tes textbox et que tu joindras le fichier on va te répondre
a+
papou 🙂

 

[TITOU73]

Re : Calcule dans une textbox

Désolé voici le fichier

Merci pour l'aide

 

[PMO2]

Re : Calcule dans une textbox

Bonjour,

Changez le code du UserForm par le code suivant

Private Sub TextBox1_Change()
If Len(TextBox1) = 2 Then TextBox1 = TextBox1 & ":"
End Sub

Private Sub TextBox1_Enter()
Call Calcul
End Sub

Private Sub TextBox2_Enter()
Call Calcul
End Sub

Private Sub Calcul()
Dim bool As Boolean
Dim heure&
Dim minute&
If TextBox1 = "" Or TextBox2 = "" Then bool = True
If Not IsDate(TextBox1) Then bool = True
If Not IsNumeric(TextBox2) Then bool = True
If bool Then
  TextBox3 = ""
  Exit Sub
End If
heure& = CLng(Mid(TextBox1, 1, InStr(1, TextBox1, ":") - 1))
minute& = CLng(Mid(TextBox1, InStr(1, TextBox1, ":") + 1))
TextBox3 = ((heure& * 60) + minute&) * CDbl(TextBox2)
End Sub

Private Sub UserForm_Initialize()
TextBox3.TabStop = False
End Sub

Cordialement.

PMO
Patrick Morange

 

[laetitia90]

Re : Calcule dans une textbox

bonjour TITOU73 ,PMO2, papou 🙂🙂🙂
dans ce cas bien precis on peut peut être simplifier en utilisant left & Right impasse sur traitement heures l'instruction like oblige ce format

Like "##:##"

code trés brut on peut "affiner"