Problèmes comparaisons positifs/négatifs macro

Bonjour à tous,

J'ai un problem dans ma macro, bien que la comparaison "MargeInj > MargePAC And MargeInj > MargeMeth" soit vraie, puisque MargeInj est un nombre positif alors que les deux autres non, rien n'est écrit dans la cellule voulue, comme si la coniditon n'était pas realise... Je vous mets le bout de code:

Sub bout()

Cells(45, 12).Value = Cells(31, 12).Value
Dim MargeMeth As Currency
' Prise en compte de la chaleur
If Cells(140, 4).Value Like "*Oui*" And Cells(118, 12).Value > 0 Then
    MargeMeth = (Cells(117, 12).Value + Cells(118, 12).Value) / Cells(45, 12).Value
Else
    MargeMeth = Cells(117, 12).Value / Cells(45, 12).Value
End If

Cells(76, 12).Value = Cells(31, 12).Value
Dim MargeInj As Long
MargeInj = Cells(112, 12).Value / Cells(76, 12).Value

Cells(90, 12).Value = Cells(31, 12).Value
Dim MargePAC As Long
MargePAC = Cells(121, 12).Value / Cells(90, 12).Value
If Cells(138, 4).Value Like "*Oui*" Then
    If MargeInj > MargePAC And MargeInj > MargeMeth Then
        Cells(138, 12).Value = 0.02    
    Else
        Cells(138, 12).Value = 0
    End If

Else
    Cells(138, 12).Value = "-"
End If

End Sub

Est-ce que vous verriez le problème ?

Merci d'avance

bonjour,

avec ces instructions-ci

If Cells(138, 4).Value Like "*Oui*" Then
    If MargeInj > MargePAC And MargeInj > MargeMeth Then
        Cells(138, 12).Value = 0.02    
    Else
        Cells(138, 12).Value = 0
    End If

Else
    Cells(138, 12).Value = "-"
End If

tu devrais avoir 0.02, 0 ou - dans la cellule 138,12

si tu n'as rien, c'est que ce code n'est pas exécuté ou que le résultat est écrit dans sur une autre feuille.

mets-nous ton fichier si tu veux plus d'aide

Bonjour,

bien que la comparaison "MargeInj > MargePAC And MargeInj > MargeMeth" soit vraie, puisque MargeInj est un nombre positif alors que les deux autres non

Si vba te dis non c'est que pour lui le test n'est pas réalisé.

Met un point d'arrêt à cet endroit et contrôle les valeurs de tes variables.

Si ça ne suffit pas tu fais glisser les expressions MargeInj > MargePAC et MargeInj > MargeMeth (individuellement) dans la fenêtre espion pour voir laquelle est fausse.

eric