Discussion :

[Chicard]

Bonjour,

J'ai un usf dans lequel je fais une division. Je voudrais arrêter le format de ma division à 2 chiffres après la virgule car pour l'instant elle m'en affiche trop.

Voici la formule :

Code :

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

TextBox_Prix_metre = (Val(TextBox_Prix.Value) / (TextBox_Superficie.Value))

Comment faire?

[Fvandermeulen]

Bonjour,

As tu essayé ?

Code :

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

TextBox_Prix_metre = round((Val(TextBox_Prix.Value) / (TextBox_Superficie.Value)),2)

[laetitia]

re,le fil le forum peut etre avec format

Code :

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

1
2
3
Private Sub TextBox_Prix_metre_Change()
TextBox_Prix_metre.Value = Format(TextBox_Prix_metre.Value, "0.00")
End Sub

[Chicard]

La première solution ne fonctionne pas ça me mets une erreur. La seconde me mets 0,00 dans mon résultat.

[laetitia]

re le fil avec tous ces posts succesif comment tu le fais le calcul??? zip ton fichier sans donnees confi.... pour voir autrement on va pas avancer.A l origine c est la facon de calculer que je t avais donner en utilisant val normalement sans simplifier en utilisant format dans la textbox source cela ne pose pas pb...

[Chicard]

Voilà le code avec tous ce qui rentre en compte:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub TextBox_Prix_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox_Prix.Value = "" Then
    Else
    TextBox_Prix_metre = (Val(TextBox_Prix.Value) / (TextBox_Superficie.Value))
    End If
End Sub
 
Private Sub TextBox_Prix_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'ne peut taper que des chiffres a adapter
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
 
Private Sub TextBox_Superficie_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'ne peut taper que des chiffres a adapter
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Je rentre une surface et un prix quand je sort de prix l'opération s'effectue et met le résultat dans prix_metre. Je teste avant si le prix est indiqué.

Il me faudrait tester aussi la valeur de Superficie parce que si elle est nulle ça plante. Le faire avec un opérateur logique serait idéal.

[laetitia]

re dans

Code :

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

1
2
3
4
5
6
Private Sub TextBox_Prix_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox_Prix.Value = "" Then ' manque le code ?????
    Else
    TextBox_Prix_metre = (Val(TextBox_Prix.Value) / (TextBox_Superficie.Value))
    End If
End Sub

essai comme cela

Code :

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

1
2
3
4
Private Sub TextBox_Prix_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox_Prix.Value <> "" Then TextBox_Prix_metre = (Val(TextBox_Prix.Value) / (TextBox_Superficie.Value))
TextBox_Prix_metre.Value = Format(TextBox_Prix_metre.Value, "0.00")
End Sub

[ucfoutu]

Bon soir,

Si et SEULEMENT SI tes deux textboxes ne contiennent que des entiers (comme le donnent à penser tes évènements Keypress) et qu'elles sont bien saisies toutes deux, il n'y a aucune raison pour que ceci ne marche pas :

Code :

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

TextBox_Prix_metre = (Val(TextBox_Prix.Value) / val(TextBox_Superficie.Value), "0.00")

(ne pas oublier - pour des raisons d'étique - le 2ème Val (mis en rouge) )

Si, par contre, l'une ou l'autre des deux textboxes admet finalement des décimales également (contrairement à ce que montrent tes évènements Keypress), il va bien évidemment falloir considérer le séparateur décimal (Val est bon pour le point, mais non pour la virgule, par exemple).

[Chicard]

Le code de laetitia fonctionne par contre ucfoutu le tien me donne une erreur de compil.

Merci.