Bonjour,

SVP si quelqu'un pourra m'aider :
je veux colorer des cases à partir d'un résultat d'une case mais je ne sais pas pourquoi la macro color_case ne veut pas s'exécuter est ce à cause de la macro Private Sub Worksheet_Change ???

Le code est réalisé sur la même feuille excel:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$4" Then 'F4 est la liste
      For i = 2 To Worksheets("Responsable").Range("C" & Rows.Count).End(xlUp).Row
        If Range("F4").Value = Worksheets("Responsable").Cells(i, 3).Value Then
            Range("F5").Value = Worksheets("Responsable").Range("D" & i).MergeArea.Cells(1, 1).Value 'récupère la valeur de la cellule fusionnée
            Exit For
        End If
      Next
Else
    If Target.Address = "$F$5" Then
    Else
 
    Dim txt As String
       If Target.Row > 1 Then
          For i = 2 To 4
             txt = txt & Trim("" & Cells(Target.Row, 1).Offset(0, i))
         Next
 
       End If
 
       If Len(txt) > 1 Then MsgBox "Erreur, veuillez remplir une seule case par ligne !"
    End If
 
 
End If
 
End Sub
 
 
Private Sub color_case()
Select Case Range("C51").Value
Case 0 To 0.4
Range("F56").Interior.ColorIndex = 3
Case 0, 41 To 0.6
Range("F57").Interior.ColorIndex = 44
Case 0.61 To 0.8
Range("F58").Interior.ColorIndex = 28
Case 0.81 To 1
Range("F59").Interior.ColorIndex = 4
End Select
End Sub