Erreur 13 incompatibilité de type

Bonjour,

J'ai une erreur dans cette boucle

For i = 6 To Cells(Rows.Count, "B").End(xlUp).Row
    If Cells(i, "J").Value > 0 Then Cells(i, "J").Interior.Color = RGB(0, 176, 80)
    If Cells(i, "K").Value > 0 Then Cells(i, "K").Interior.Color = RGB(0, 176, 80)
    If Cells(i, "K").Value <= 0 Then
    Cells(i, "I").Interior.Pattern = xlNone
    Cells(i, "I").ClearContents
    End If
    Next i

Colonnes K et J sont en format monétaire

Merci

Bonjour,

A priori l'erreur ne vient pas du code lui-même (ou pas de cet extrait).

Merci de joindre un fichier (et la macro complète) et d'indiquer précisément le contexte de l'erreur :

• Ligne surlignée dans le code
• Valeur de i au moment de l'erreur

Il se peut que l'erreur soit due à une valeur non numérique sur une ligne (un texte par exemple) de ton fichier...

Bon, j'ai compris mon erreur

For i = 6 To Cells(Rows.Count, "B").End(xlUp).Row
    If Not WorksheetFunction.IsNA(Cells(i, "J")) = True Then
    If Cells(i, "J").Value > 0 Then Cells(i, "J").Interior.Color = RGB(0, 176, 80)
    If Cells(i, "K").Value > 0 Then Cells(i, "K").Interior.Color = RGB(0, 176, 80)
    ElseIf Cells(i, "K").Value <= 0 Then
    Cells(i, "I").Interior.Pattern = xlNone
    Cells(i, "I").ClearContents
    End If
    Next i

Si K n'est pas supérieur à 0, c'est donc qu'il est inférieur ou égal (donc inutile de le tester)...

Dans le même genre, la fonction Excel IsNA renvoie VRAI ou FAUX, donc inutile de tester si IsNA = VRAI.

Si j'ai bien compris la logique, le code pourrait être :

For i = 6 To Cells(Rows.Count, "B").End(xlUp).Row
    If Not IsError(Cells(i, "J")) Then
        If Cells(i, "J").Value > 0 Then Cells(i, "J").Interior.Color = RGB(0, 176, 80)
        If Cells(i, "K").Value > 0 Then 
            Cells(i, "K").Interior.Color = RGB(0, 176, 80)
        Else
            Cells(i, "I").Interior.Pattern = xlNone
            Cells(i, "I").ClearContents
        End If
    End If
Next i

PS : ce code m'a tout l'air d'une MFC, pourquoi passer par VBA plutôt que de faire une MFC ?