Microsoft 365 Problème calcul avec VBA

Angus HEYERDAHL

XLDnaute Nouveau
Bonjour,

Voilà j'ai un souci avec un code VBA

Private Sub textbox5_afterupdate()
recalcul1
End Sub

Sub recalcul1()
TotalTCantine = TextBox4 + TextBox5
Label8.Caption = TotalTCantine
TotalMCantine = TotalTCantine * 5.35
Label10.Caption = TotalMCantine & " €"
End Sub

ce calcul me permet en renseignant 2 textbox de pouvoir avoir le résultat dans un label une fois sortie de la 2ème textbox.

seulement lorsque je renseigne les 2 textbox, le résultat lorsque le signe entre textbox4 et textbox5 est + le résultat est incorrecte et je ne comprends pas pourquoi, par exemple 8+1=81 si j'inverse le calcul, cela donne 1+8=18, on dirait qu'il cumule les 2 chiffres, mais avec les autres signe -,/ et * cela fonctionne correctement.

En espérant que vous pourrez m'aider.

Merci
 

M12

XLDnaute Accro
Bonjour,les Textbox comme le nom indique c'est du texte

Test comme ceci
VB:
TotalTCantine = Val(TextBox1) + Val(TextBox2)

ou aussi
Code:
TotalTCantine = TextBox1*1 + TextBox2*1
 

Angus HEYERDAHL

XLDnaute Nouveau
Bonjour Angus,
Tout simplement le retour est une chaine de caractères donc il concatène la chaine "8" à la chaine"1" et il trouve 81.
Tentez : TotalTCantine = Val(TextBox4) + Val(TextBox5 )
( https://docs.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/val-function )
Bonjour, Sylvanu
Pardon j'avais pas vu ta réponse,
Effectivement maintenant que me me le dis, ça fait bien un concatener.

En vous remerciant tous pour vos réponses
 
Haut Bas