Calcul heure prix VBA excel ??

[Lxl]

Bonjour a tous

Je suis en train de me faire une application avec excel 2007 et vba.
Cette application comprend une saisie pour des factures.

Dans un userform j'ai :
un textbox : heure (hh:mm)
un textbox : taux horaire (# ##0.00 €)
un textbox : montant (# ##0.00 €)

Mon probléme est de faire le calcul pour le texbox montant
montant = heure X taux horaire

Pour ma deuxieme partie de facture quantité , prix, montant j'utilise cette formule qui fonctionne trés bien :
Controls("Montant" & D) = Format(CDbl(Controls("TextBox" & B)) * CDbl(Controls("TextBox" & C)), "## ##0.00 €")

Mon probléme se pose avec les heures !!!

Merci de votre aide.

Laurent

 

[jeanpierre]

Re : Calcul heure prix VBA excel ??

Bonsoir Lxl,

Si tu ajoutes * 24 à la fin de ta formulation ....

A te lire.

Jean-Pierre

 

[Lxl]

Re : Calcul heure prix VBA excel ??

Bonsoir Jean Pierre

En ajoutant *24 : erreur incompatibilité de type


Merci pour l'aide rapide

 

[Lxl]

Re : Calcul heure prix VBA excel ??

Bonsoir

Je joint un fichier pour que ce soit plus pratique


Merci d'avance

 

[Bruce68]

Re : Calcul heure prix VBA excel ??

Bonsoir Lxl et le Forum
mettre ceci à la place

Dim Heure, Minut, temps
Private Sub TextBox1_AfterUpdate()
Heure = Hour(TextBox1) ' Récupere les heures
Minut = Minute(TextBox1) 'recupere les mn
temps = (Heure * 60) + Minut 'Transforme tout en mn
End Sub

Private Sub TextBox2_AfterUpdate()
TextBox2 = Format(TextBox2, "0.00 €")
If Not IsNumeric(TextBox2) Then
TextBox2 = ""
End If
TextBox3 = (TextBox2 * temps) / 60 ' Divise par 60 pour ramener en Heure
End Sub