Bonjour,

J'ai un problème avec ma macro (ci-dessous), si la facture est egale à 11 remplissage de la cellule en VERT pour les autres pas de remplissage mais je ne sais pas comment faire.(erreur 13) incompatibilité de type.

Pouvez-vous me venir en aide ?

Merci d'avance.


Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub VERT()
'
' VERT Macro
'
Dim ws_jde As Worksheet
Dim lstrw As Long
Dim rwnum As Long
Dim facture As String
 
Set ws_jde = Worksheets("JDE")
 
lstrw = ws_jde.Cells(Rows.Count, "C").End(xlUp).Row
 
For rwnum = 14 To lstrw
 
    facture = ws_jde.Cells(rwnum, "L").Value
 
    If facture = 11 Then
        ws_jde.Cells(rwnum, "L").Interior.Color = RGB(0, 160, 128)
    Else
        ws_jde.Cells(rwnum, "L").Interior.Color = xlColorIndexNone
 
    End If
 
Next
 
End Sub