Resultat bizarre !

[Nicko]

Bonjour à tous,

Voila mon soucis du jour !
J'ai dans une cellule (B4) une valeur >> 590

Dans un userform j'ai 3 labels

Lblprix1 - Lblprix2 - Lblprix3

et j'effectue le calcul suivant :

LblPrix1.Caption = Round((Range("B4").Value / 3), 0)
LblPrix2.Caption = Round(((Range("B4").Value - LblPrix1.Caption) / 2), 0)
LblPrix3.Caption = Range("B4").Value - (LblPrix1.Caption + LblPrix2.Caption)

Le truc bizarre, c'est le resultat obtenu :
prix1 > 197
prix2 > 196
prix3 > -196606 ????

La je vois pas ! si jamais quelqu'un peut me rencarder

 

[PascalXLD]

Re : Resultat bizarre !

Bonjour

essaies en ajourtant dans tes calculs

soit val(LblPrix1.Caption) val(LblPrix2.Caption)

soit cdbl(LblPrix1.Caption) cdbl(LblPrix2.Caption)

 

[Nicko]

Re : Resultat bizarre !

impec pascal !

il fallait mettre val() à chacun des elements

Merci