Résultat illogique d'une opération

[Angelo7891]

Bonjour le forum ;
alors voila dans un tableau j'ai plusieur valeur numérique et je fais certaines opérations et je comprend pas le résultat 8O

voici mon code :

   For colonne2 = 2 To NbColonne - 2 Step 2
        If Cells(8, colonne2 + 1).Value = 0 Then
            MsgBox ('C8: ' & Cells(8, colonne2 + 1).Value)
            MsgBox ('B8: ' & Cells(8, colonne2).Value)
            qualité = 1
        Else
        MsgBox ('C8 : ' & Cells(8, colonne2 + 1).Value)
        MsgBox ('B8 : ' & Cells(8, colonne2).Value)
            qualité = Cells(8, colonne2 + 1).Value / Cells(8, colonne2).Value
            MsgBox ('qualité=' & qualité)
        End If
        Cells(9, colonne2).Value = qualité
    Next colonne2

par exemple au premier tour de boucle:
les 2 premiers msgbox ne sont pas pris en compte car dans la case C8 ne contient pas la valeur 0
le 3ieme msgbox affiche bien la valeur qu'il y a dans la case C8 (2 en l'occurence)
le 4ieme msgbox affiche bien la valeur qu'il y a dans la case B8 (3 en l'occurence)

or le 5 ieme msgbox(qualité) me renvois 1 et c'est ca que je comprend pas


de plus j'ai insérer cette macro dans un autre classeur et j'obtient bien une qualité de 0,6677(2/3) pour le premier tour de boucle donc la je comprend vraiment pas

 

[Angelo7891]

alors va savoir pourquoi en fesait simplement un remplacement du nom de la variable ca marche comme il le faut

et dire que j'ai mis plus d'une heure pour comprendre :angry: