Pb de calcule de somme dans un label Fermé

Question

Bonjour, 

Je suis tréso d'une association et je souhaite faire un formulaire de saisie de ligne comptable ou cette dernière comprend des sous catégories (ventilation budgétaire).

J'aimerais faire un formulaire de saisies  ou on saisie les montants des sous lignes et le calcule du total se fait en automatique dans un label.

voici mon code pour ce point :

Private Sub TxbD1_AfterUpdate()
    TxbD1 = Format(Val(TxbD1.Value), "# ##0.00€")
    LblTotal.Caption = Format(Val(TxbD1.Value) + Val(TxbD2.Value) + Val(TxbD3.Value), "# ##0.00€")
End Sub

Private Sub TxbD2_AfterUpdate()
    TxbD2 = Format(Val(TxbD2.Value), "# ##0.00€")
    LblTotal.Caption = Format(Val(TxbD1.Value) + Val(TxbD2.Value) + Val(TxbD3.Value), "# ##0.00€")
End Sub

Private Sub TxbD3_AfterUpdate()
    TxbD3 = Format(Val(TxbD3.Value), "# ##0.00€")
    LblTotal.Caption = Format(Val(TxbD1.Value) + Val(TxbD2.Value) + Val(TxbD3.Value), "# ##0.00€")
End Sub


Le pb c'est que : 
- le calcul ne prend pas en compte les chiffre apres la virgule.
- Qd je re-sélectionne une textbox et que je fais [Enter],sans rien changer, il me zappe les chiffre après la virgule

Je pens eque ca vient d'un confli dans les format de décimal entre "." et ",".
je ne vois pas comment régler ce pb ! merci

Configuration: Windows / Firefox 57.0

Utilisateur anonyme · Answer

Bonsoir

même raison qu'ici
https://codes-sources.commentcamarche.net/forum/affich-10080770-calcul-de-l-age-grace-a-un-textbox-et-a-la-date-d-aujourd-hui#4

 lui c'était une date, toi c'est un nombre.

Sahmy021 · Answer

Salut,

Je te demande un peu d’indulgence pour ce qui va suivre, mais j'ai zéro base en prog.

Donc si je comprend bien le pb viens du fait que qd j'utilise format, ce qui apparais dans la TXB est une chaine de caractère. c'est bien ca ?

Et du coup il n'arrive pas a additionner ? Pourtant je pensais que la fonction Val convertissait cette chaine de caractère en en valeur....

franchement je suis perdu ! 

je vois pas comment faire même après la lecture de : 
https://docs.microsoft.com/fr-FR/office/vba/Language/Reference/User-Interface-Help/format-function-visual-basic-for-applications

merci

f894009 · Answer

Bonjour,

une facon de faire:

Private Sub TxbD1_AfterUpdate()
    TxbD1 = Format(Val(TxbD1.Value), "# ##0.00€")
        Call Totaltxt
End Sub

Private Sub TxbD2_AfterUpdate()
    TxbD2 = Format(Val(TxbD2.Value), "# ##0.00€")
        Call Totaltxt
End Sub

Private Sub TxbD3_AfterUpdate()
    TxbD3 = Format(Val(TxbD3.Value), "# ##0.00€")
        Call Totaltxt
End Sub

Sub Totaltxt()
    If IsNumeric(TxbD1) Then Total = CDbl(TxbD1.Value)
    If IsNumeric(TxbD2) Then Total = Total + CDbl(TxbD2.Value)
    If IsNumeric(TxbD3) Then Total = Total + CDbl(TxbD3.Value)
    LblTotal.Caption = Format(Total, "# ##0.00€")
End Sub

Utilisateur anonyme · Answer

Bonjour 

Salut, 
Je te demande un peu d’indulgence pour ce qui va suivre, mais j'ai zéro base en prog. 
 
C’est le problème quand on débute en autodidacte, on part direct sur un projet et ce faisant on brule des étapes. J’ai fait pareil y’a longtemps....


Donc si je comprend bien le pb viens du fait que qd j'utilise format, ce qui apparais dans la TXB est une chaine de caractère. c'est bien ca ? 

Et du coup il n'arrive pas a additionner ? Pourtant je pensais que la fonction Val convertissait cette chaine de caractère en en valeur...
Ce qui est écrit dans le textbox est toujours du texte. Val convertit bien ce texte en nombre, mais Format reconvertit le nombre en texte, et en plus y ajoute une unité.

Là tu te retrouve avec par exemple "1 234.12€" + "1 234.12€" + "1 234.12€" et Val qui doit se démerder avec un espace, un € et peut-être même le point si ton PC est configuré avec la virgule comme symbole décimal.

Je te conseille d’enlever l’€ dans le Format et de regarder si ça marche.
Si oui, alors pose un label à côté de chaque textBox dans lequel tu écris €.
Si non, enlève l’espase puis si besoin vérifie ton symbole décimal.

 
Quand j'étais petit, la mer Morte n'était que malade.
George Burns

f894009 · Answer

Re,

il me semble ? 
C'est bon ou pas bon mais pas il me semble !!!!

Sahmy021 · Answer

re-salut à tous,
Bon je crois que j'ai compris.... (j'ai bien dit je crois)
EN fait "If IsNumeric" vient tester la chaine de caractère de ma TxtBox. cela me permet de savoir si je dois utiliser "CDbl" ou "Val" pour convertir en nombre.
Du coup j'ai fait le code suivant qui marche :
Private Sub TxbD1_AfterUpdate()
    If IsNumeric(TxbD1) Then
        TxbD1 = Format(CDbl(TxbD1.Value), "# ##0.00€")
    Else
        TxbD1 = Format(Val(TxbD1.Value), "# ##0.00€")
    End If
        Call Totaltxt
End Sub

Private Sub TxbD2_AfterUpdate()
    If IsNumeric(TxbD2) Then
        TxbD2 = Format(CDbl(TxbD2.Value), "# ##0.00€")
    Else
        TxbD2 = Format(Val(TxbD2.Value), "# ##0.00€")
    End If
        Call Totaltxt
End Sub

Private Sub TxbD3_AfterUpdate()
    If IsNumeric(TxbD3) Then
        TxbD3 = Format(CDbl(TxbD3.Value), "# ##0.00€")
    Else
        TxbD3 = Format(Val(TxbD3.Value), "# ##0.00€")
    End If
    Call Totaltxt
End Sub

Sub Totaltxt()
    If IsNumeric(TxbD1) Then Total = CDbl(TxbD1.Value)
    If IsNumeric(TxbD2) Then Total = Total + CDbl(TxbD2.Value)
    If IsNumeric(TxbD3) Then Total = Total + CDbl(TxbD3.Value)
    LblTotal.Caption = Format(Total, "# ##0.00€")
End Sub

Dans mon fichier définitif j'ai 15 TxtBox à additionner. Donc pour la "sub Totaltxt()" je devrais m'en sortir avec des "Controls()" et une boucle "For i=1 to 15"
Par contre est-il possible de faire une boucle pour les "Private Sub" ?
si pas possible je bourrinnerai ...^^

Encore merci pour votre patience et la disponibilité.

f894009 · Answer

Re,

Comprends pas votre histoire de val ou cdbl, chez moi pas besoin de ca

Par contre est-il possible de faire une boucle pour les "Private Sub" ? 
Quelle boucle???

Utilisateur anonyme · Answer

Bonsoir,

je viens de tester de mon coté.
En effet, quand le pc est configuré avec la virgule comme symbole décimal, 

si je tape 1,5 dans un textbox avec Cdbl j'obtiens bien la conversion, et avec Val ça retourne 1
si je tape 1.5 avec Cdbl, j'ai "incompatibilité de type" et avec Val j'ai la bonne conversion.
Y'a une subtilité qui m'échappe.

Cependant ceci TextBox1.Text = Format(CDbl(Replace(TextBox1.Text, ".", ",")), "# ##0.00") résout le problème, attention ça ne marchera pas avec un PC dont le symbole décimal est le point.

Par contre est-il possible de faire une boucle pour les "Private Sub" ? 
non ça n'est pas possible, pas plus qu'il n'est possible de dire, tous mes AfterUpdate pointent vers la même sub (en VB.net c'est possible).
Par contre, rien ne t'empêche de faire faire le boulot à Totaltxt (ou une autre sub)

Private Sub TextBox1_AfterUpdate()
   Totaltxt TextBox1
End Sub

Private Sub TextBox2_AfterUpdate()
   Call Totaltxt(TextBox2)
End Sub

Sub Totaltxt(monTextBox)
    monTextBox.Text = Format(CDbl(Replace(monTextBox.Text, ".", ",")), "# ##0.00")

If IsNumeric(TextBox1.Text) Then Total = CDbl(TextBox1.Value)
    If IsNumeric(TextBox2.Text) Then Total = Total + CDbl(TextBox2.Value)

Label1.Caption = Format(Total, "# ##0.00€")
End Sub

Ça marche avec ou sans le Call.

Pb de calcule de somme dans un label

8 réponses

Discussions similaires