Test qui ne fonctionn pas en VBA

Bonjour,
Je m'agace depuis un moment sur un bout de code hyper simple,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim total_taux As Double Style = vbCritical titre = "--ALERTE--"     total_taux = CDbl(Me.SF_jalons_factus.Controls("Total").Value) If total_taux = 1 Then msg = "OK" Else msg = "Merci de corriger pour avoir un total de 100%" End If retour = MsgBox(msg, Style, titre)

---

Je vérifie que au moment ou j’arrive sur le If, total_taux vaut bien 1, c'est bon, mais il va quand même dans le else.
Impossible de comprendre pourquoi ?
Je suis preneur de la résolution de ce mystère.
J'ai mis un CDbl car mon total est déclaré de la façons suivante :
Pièce jointe 635565
Mille Mercis

Bonjour.

Probablement que Total_Taux ne vaut pas exactement 1.

Ajoute l'instruction

Code:

---

debug.print Total_Taux-1

---

Pour voir si tu n'as pas une différence sur les décimales, du genre ta valeur vaut 1.0000001.

A+

Hello,
C’est bien ça le problème.
Je viens de modifier dans ma table et j'ai déclaré les taux ( dont je fais le total) en réel simple au lieu de réel double et tout est OK
Merci.

Cela peut se reproduire, c'est un problème intrinsèque à la façon dont les ordinateurs stockent les nombres décimaux. Ce sont TOUJOURS des approximations plus ou moins précises.

Une solution plus sécuritaire est de faire soit un arrondi, soit un test du genre

Code:

---

1 2 3 4 5

if (abs(TaValeur - 1))<=0.001 then 'OK c'et suffisamment proche de 1 else 'Pas OK end if

---

A+

Super, merci pour l'idée
@+