2 chiffres après la virgule vba

Bonjour,
je n'arrive pas à trouver le bon format en codage pour qu'il me donne le résultat du calcul avec uniquement deux chiffres après la virgule...

Code:

---

TextBox150.Value = ((TextBox126 - TextBox114) / TextBox114) * 100

---

Et si possible aussi, avoir le "%" après le nombre ?

quelqu'un peut il m'aider ?

Merci

bonjour
essayer avec

Code:

---

TextBox150.Value = Format(TextBox150, "#,##0.00")

---

pour le pourcentage

Code:

---

TextBox150.Value = Format(TextBox150, "0.00%")

---

petite précision : pour éviter tous surprise il est recommandé d'ajouter CdBl :

Code:

---

TextBox150.Value = cdbl(TextBox10.Value)- cdbl(TextBox12.Value)

---

Bonjour,

Comme son nom l'indique, un TextBox contient du texte (String), pour éviter les mauvaises interprétations, il faut donc utiliser les fonctions de conversion du texte en nombre et inversement.
Par exemple :

Code:

---

TextBox150.Value = Format((CDbl(TextBox126.Value) - CDbl(TextBox114.Value)) / CDbl(TextBox114), "0.00%")

---

Bonjour patrice
mon message est croisé avec le votre, désolé
ma proposition reste toujours celle d'un débutant et autodidacte
Bonne journée

Merci à vous cela fonctionne à merveille :D

J'ai essayer que sa soit en rouge si négatif et en vert si positif mais sa ne fonctionne pas il affiche les nbrs en vert pour tous...

Code:

---

1 2 3

If TextBox126.Value = "0" Then Exit Sub TextBox138.Value = TextBox126.Value - TextBox114.Value TextBox150.Value = Format((CDbl(TextBox126.Value) - CDbl(TextBox114.Value)) / CDbl(TextBox114), "0.00 %")

---

j'ai essayer ceci :

Code:

---

1 2 3 4 5 6 7 8

If TextBox126.Value = "0" Then Exit Sub TextBox138.Value = TextBox126.Value - TextBox114.Value TextBox150.Value = Format((CDbl(TextBox126.Value) - CDbl(TextBox114.Value)) / CDbl(TextBox114), "0.00 %") If TextBox150.Value < 0 Then TextBox150.BackColor = &HFF00& Else TextBox150.BackColor = &HFF& End If

---

Citation:

---

Envoyé par Patrice740

Comme son nom l'indique, un TextBox contient du texte (String), pour éviter les mauvaises interprétations, il faut donc utiliser les fonctions de conversion du texte en nombre et inversement.

---

Citation:

---

Envoyé par dgeo10

Merci à vous cela fonctionne à merveille :D
J'ai essayer que sa soit en rouge si négatif et en vert si positif mais sa ne fonctionne pas il affiche les nbrs en vert pour tous...

---

A quoi bon te donner des conseils si tu ne les appliques pas !!!

Code:

---

1 2 3 4 5 6 7 8

If Val(TextBox126.Value) = 0 Or Val(TextBox114.Value) = 0 Then Exit Sub TextBox138.Value = Format(CDbl(TextBox126.Value) - CDbl(TextBox114.Value), "Standard") TextBox150.Value = Format((CDbl(TextBox126.Value) - CDbl(TextBox114.Value)) / CDbl(TextBox114), "0.00%") If Val(TextBox150.Value) < 0 Then TextBox150.BackColor = &HFF& Else TextBox150.BackColor = &HFF00& End If

---