Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème sur le type de nombre utilisé

benode

XLDnaute Nouveau
Bonjour,
j'explique mon problème, je souhaite vérifier que la somme du contenu des cellules (défini comme des fractions de 2 chiffres) est bien égale à 1. Pour cela, j'utilise un petit code tout simple :
Private Sub CommandButton1_Click()
verif = 0
Set plage = Range("A1:A20")
For Each cel In plage
verif = verif + cel.Value
Next cel

If verif = 1 Then
Else: MsgBox ("Fail ! Le total vaut : " & verif)
End If
End Sub


Le code marche pour 1, 1/2, 1/3, 1/4, 1/5 mais pas pour 1/6, 1/7, 1/9 par exemple...
Ce qui est surprenant c'est que la valeur de verif est toujours 1, même quand ça ne marche pas.
Pour moi il y a un truc dans la définition du type des nombres (fraction de deux chiffres, type de la variable verif) mais je ne m'y connais pas assez. Si une âme charitable pouvait me donner un petit indice...

Merci !
 

Pièces jointes

  • test.xlsm
    21.6 KB · Affichages: 40
  • test.xlsm
    21.6 KB · Affichages: 43
  • test.xlsm
    21.6 KB · Affichages: 44

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…