Discussion :

[dgeo10]

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 :

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

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

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

quelqu'un peut il m'aider ?

Merci

[BENNASR]

bonjour
essayer avec

Code :

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

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

[BENNASR]

pour le pourcentage

Code :

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

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

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

Code :

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

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

[Patrice740]

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 :

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

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

[BENNASR]

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

[dgeo10]

Merci à vous cela fonctionne à merveille

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 :

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

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 :

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

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

[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.

Merci à vous cela fonctionne à merveille
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 VBA :

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

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