Microsoft 365 Incompatibilité de type lors d'une somme textbox

[Louloulou4]

Hello le forum !
Bon encore un petit problème : j'ai un souci avec ma Userform : lorsque je clique sur le bouton PRIX TOTAL j'ai un message d'erreur lié au calcul de mes valeurs
J'avais en effet écrits dans mon code :
Bilan = val(Pt1) + val(Pt2) + val(Pt3) + val(Pt4) + val(Pt5) + val(Pt6) + val(Pt7) + val(Pt8) et ça fonctionnait (sauf que ça ne me donnait pas la valeur au 10ème mais arrondie a la valeur inférieure...)

Du coup je suis parti sur un dim Bilan As double avec :
Bilan = CDbl(Pt1) + CDbl(Pt2) + CDbl(Pt3) + CDbl(Pt4) + CDbl(Pt5) + CDbl(Pt6) + CDbl(Pt7) + CDbl(Pt8)

et la ça bug...

Un petit coup de main serai le bienvenue si possible !

Je voudrais que le résultat soit de style 12,45 et si on peut rajouter le signe € (car le & "" €" ne fonctionne pas...)

D'avance merci !

 

[job75]

Bonsoir,

Au lieu de CDbl(Pt1) utilisez Val(Replace(Pt1, ",", "."))

Et ajoutez l'instruction Bilan = Format(Bilan, "#,##0.00 €")

A+

 

[Louloulou4]

Bonsoir,

Au lieu de CDbl(Pt1) utilisez Val(Replace(Pt1, ",", "."))

Et ajoutez l'instruction Bilan = Format(Bilan, "#,##0.00 €")

A+

Good Job, Job75 au top ! En plus j'avais déjà le Val(Replace) ! Au top chef ! Merci !