[Code] Arrondi incorrect

[Laurente]

Bonjour à tous,

Voici le petit programme me posant problème :

Option Explicit

Dim Lambdaz as double
Dim Lambday as double
Dim LambdaMax 
Dim KSI as double 

Sub KSICALCUL 

Lambdaz=Inputbox("Entrez la valeur Lambdaz")
Lambday=Inputbox("Entrez la valeur Lambday") 

  LambdaMax = Lambdaz / Lambday
  LambdaMax = format(LambdaMax,"0.0")
  
If LambdaMax=1.0 Then
KSI=0.5525
End If 

If LambdaMax=0.8 Then
KSI=0.4444
End If 

MsgBox(KSI) 

END SUB

Mon problème est que quand Lambdamax = 0.8, la msgbox m'affiche bien 0.4444 mais quand LambdaMax=1.0, la msgbox m'affiche 0 (au lieu de 0.5525).
Je ne comprend vraiment pas, surtout que si je fais msgbox(LambdaMax), il m'affiche bien 1.0 !!!

D'ou vient le problème ?
Une semaine que je retourne le problème dans tout les sens, rien à faire ...
Il me semble que la ligne LambdaMax = format(LambdaMax,"0.0") fonctionne bien puisqu'elle m'arrondi les valeurs au dixième.
Si quelqu'un peut me donner un coup de main, ce serait vraiment sympa...

Merci d'avance !

[mario52]

Bonjour

Je ne comprend vraiment pas, surtout que si je fais msgbox(LambdaMax), il m'affiche bien 1.0 !!!

tu es sur que c'est 1.0 et pas 1,0 (avec virgule)[/color]

essaye une fois comme une chaine de caractere

If LambdaMax="1,0" Then
KSI=0.5525
End If