Salut ts le monde,

j'ai un code qui marche bien maius que je voudrais personaliser:

je voudrais mettre à la place du "10 ; 2; 3 ..." que la valeur se trouve dans
ma feuille "Param!G7" pour la 10
ma feuille "Param!G8" pour la 2
ma feuille "Param!G9" pour la 3
...

Un grand merci

-----------------
Code : 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
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:B8")) Is Nothing Then: Exit Sub
With Target
Select Case Target.Value
Case Is = "R"
.Interior.ColorIndex = 10
Case Is = "F"
.Interior.ColorIndex = 2
Case Is = "C"
.Interior.ColorIndex = 3
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
 
End Sub