Discussion :

[DOLCE59]

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

[Gado2600]

Bonjour,

Mets ton 11 entre guillemets ("11").

ça devrait mieux fonctionner.

Cordialement,

[Rino702]

Bonjour,

Tu as défini la variable facture comme étant un texte, remplace les lignes suivantes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
facture = ws_jde.Cells(rwnum, "L").Value
If facture = 11 Then

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
facture = ws_jde.Cells(rwnum, "L").Text
If facture = "11" Then

Bonne journée,