Probleme de calcul dans une texbox !!

[aziz]

Bonsoir à tous et au forum

Voici mon souci je n'arrive pas faire automatique ce calcul entre 3 texbox

TextBoxtotalprestation1.Value = ((Textboxprix1.Value * TextBoxquantité1.Value) * TextBoxnuitées1.Value)

Merci pour votre aide
bonne soirée

 

[Lone-wolf]

Re : Probleme de calcul dans une texbox !!

Bonsoir aziz

fait comme ceci:
TextBoxtotalprestation1.Value = (Val(Textboxprix1.Value) * Val(TextBoxquantité1.Value)) * Val(TextBoxnuitées1.Value)

Pourquoi ne pas faire: TotPrestation = (Val(Prix.Value) * Val(Qté.Value)) * Val(Nuitées) En plus court?

Sinon comme ceci

Private Sub TextBoxnuitées1_Change()
Dim Tot
Tot = Val(Textboxprix1) * Val(TextBoxquantité1)
TextBoxtotalprestation1 = Tot * Val(TextBoxnuitées1)
End Sub

 

[aziz]

Re : Probleme de calcul dans une texbox !!

Bonsoir, Lone-wolf
j'ai fait comme tu as dit mais malheureusement
cela ne fonctionne pas
j'ai le fichier
MErci

 

[Marc L]

Bonjour !

​

TextBoxtotalprestation1.Value = CDbl(Textboxprix1.Value) * CDbl(TextBoxquantité1.Value) * CDbl(TextBoxnuitées1.Value)

_______________________________________________________________________________
Merci de cliquer sur J'aime ce post en bas à gauche de chaque message ayant aidé …

_______________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …
​

 

[aziz]

Re : Probleme de calcul dans une texbox !!

Bonjour Marc et bonjour au forum
J'ai réussi a faire fonctionner avec le code de Lone Wolf (merci à lui )

Private Sub TextBoxnuitées1_Change()
Dim Tot
Tot = Val(Textboxprix1) * Val(TextBoxquantité1)
TextBoxtotalprestation1 = Tot * Val(TextBoxnuitées1)
End Sub

Par contre avec ton code je n'y arrive pas
et je bloque également au niveau du total général.

Merci pour votre aide
Bonne journée

 

[Marc L]

Aucun souci de mon côté, tu dois mal t'y prendre …
​

 

[aziz]

Re : Probleme de calcul dans une texbox !!

peux tu me joindre le fichier ?
merci

 

[Marc L]

Peux-tu expliquer ce que tu as fait ? Poster le code modifié balisé …
​

 

[aziz]

Re : Probleme de calcul dans une texbox !!

Je l'ai déposer dans
Private Sub UserForm_Initialize()
TextBoxtotalprestation1.Value = CDbl(Textboxprix1.Value) * CDbl(TextBoxquantité1.Value) * CDbl(TextBoxnuitées1.Value)

 

[Marc L]

Cet évènement sert uniquement à l'ouverture de l'UserForm !

Pourtant Lone-Wolf t'as fourni un évènement où l'écrire …

​

 

[aziz]

Re : Probleme de calcul dans une texbox !!

Bonsoir finalement j'ai réussi de cette façon :

Private Sub Textboxprix2_Change()
CalculSomme2
End Sub
Private Sub TextBoxquantité2_Change()
CalculSomme2
End Sub
Private Sub TextBoxnuitées2_Change()
CalculSomme2
End Sub
Sub CalculSomme2() 'ici nous dire à notre textboxtotalprestation3 d'affiche la somme des 3 autres texbox
Me.TextBoxtotalprestation2.Value = (Val(Replace(Me.Textboxprix2, ",", ".")) * Val(Replace(Me.TextBoxquantité2, ",", "."))) * Val(Replace(Me.TextBoxnuitées2, ",", "."))
End Sub
Private Sub TextBoxtotalprestation2_Change()
End Sub

Par contre j'ai une derniere question
quand je saisie ma "quantité" pourquoi le total ne s'affiche pas ? il s'affiche uniquement lorsque je saisie ma derniere
valeur sans la case nuitées.

As tu une idée ? Merci

 

[Lone-wolf]

Re : Probleme de calcul dans une texbox !!

Bonsoir aziz

Tu es entrain de faire n'importe quoi. Pourquoi créer une Sub quand tu peux le faire directement pour chaque textbox??

Private Sub Textboxprix2_Change()
Textboxprix2 = Replace(Me.Textboxprix2, ",", ".")
End Sub

Private Sub TextBoxquantité2_Change()
TextBoxquantité2 = Replace(Me.TextBoxquantité2, ",", ".")
TextBoxtotalprestation2 = Val(Textboxprix2) * Val(TextBoxquantité2)
End Sub

Private Sub TextBoxnuitées2_Change()
Dim Tot
TextBoxnuitées2 = Replace(Me.TextBoxnuitées2, ",", ".")

Tot = Val(Textboxprix2) * Val(TextBoxquantité2)
If TextBoxnuitées2 = "" Then
TextBoxtotalprestation2 = Tot
Else
TextBoxtotalprestation2 = Tot * Val(TextBoxnuitées2)
End If
End Sub

 

[aziz]

Re : Probleme de calcul dans une texbox !!

Bonsoir Lone wolf et forum
Grand merci à toi
et je te remercie enormement du coup main, par contre quand je souhaite laisser vide la case Quantité
l'opération de multiplier ne fonctionne pas entre : le prix et le nombre de nuitées
ça affiche zero ??

merci pour ton aide

 

[Lone-wolf]

Re : Probleme de calcul dans une texbox !!

Bonjour aziz

Change la macro comme ceci

Private Sub TextBoxquantité2_Change()
Dim Tot
If TextBoxquantité2 <> "" Then
Tot = Val(Textboxprix2) * Val(TextBoxquantité2)
TextBoxtotalprestation2 = Tot * Val(TextBoxnuitées2)
End If
End Sub

Private Sub TextBoxnuitées2_Change()
TextBoxnuitées2 = Replace(Me.TextBoxnuitées2, ",", ".")
If TextBoxquantité2 = "" Then TextBoxtotalprestation2 = Val(Textboxprix2) * Val(TextBoxnuitées2)
If TextBoxnuitées2 = "" Then TextBoxtotalprestation2 = Val(Textboxprix2) * Val(TextBoxquantité2)
End Sub

 

[Lone-wolf]

Re : Probleme de calcul dans une texbox !!

Re aziz

J'ai fait un peu de ménage dans le formulaire, et apporté une modification du code #14.

Ton fichier en retour.