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 !
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 !