Discussion :

[vandewinkel]

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

[Fvandermeulen]

Bonjour et bienvenue,

Voici le code adapté:

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 = sheets("Param").range("G7")
Case Is = "F"
.Interior.ColorIndex = sheets("Param").range("G8")
Case Is = "C"
.Interior.ColorIndex = sheets("Param").range("G9")
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
 
End Sub

A+

[vandewinkel]

Super merci ca marche bien !!!

Je peux encore te demander une petite chose?

j'ai voulu faire la même chose pour => Case Is = "R"
changer le "R" par une cellule pour ne pas chque fois editer le code, mais ca n'a pas marché ?

Bonjour et bienvenue,

Voici le code adapté:

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 = sheets("Param").range("G7")
Case Is = "F"
.Interior.ColorIndex = sheets("Param").range("G8")
Case Is = "C"
.Interior.ColorIndex = sheets("Param").range("G9")
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
 
End Sub

A+

[Fvandermeulen]

Re,
Etrange, théoriquement ça fonctionne de la même manière, donc pour le premier cas:

Code :

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

1
2
3
4
...
Select Case Target.Value
Case Is = sheets("Param").range("H7") 'H7 contitent alors l'équivalent du R
...

La seule remarque est que je pars du principe qu'il y a trois et seulement trois cas.

A+

[vandewinkel]

c'est vrai que dans l'exemple je n'ai cité que 3 exemples, mais j'en ai au total 40

Re,
Etrange, théoriquement ça fonctionne de la même manière, donc pour le premier cas:

Code :

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

1
2
3
4
...
Select Case Target.Value
Case Is = sheets("Param").range("H7") 'H7 contitent alors l'équivalent du R
...

La seule remarque est que je pars du principe qu'il y a trois et seulement trois cas.

A+

[Fvandermeulen]

Dans ce cas, le select case n'est peut-être pas le plus adéquoi...
Je pars du principe que sur ta feuille Param tu as à partir de la ligne 7 tu es les différentes info pour les couleurs.
J'imagine le code couleur dans la colonne G et la "lettre" dans la colonne F
=> la plage ira de F7 à G46

On va utiliser le principe du .Find, voici un exemple:

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
17
18
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MaPlage As Range, MaRech As Range
Dim MaCol As Long
 
Set MaPlage = Sheets("Param").Range("F7:F46") 'Plage qui contient la référence liée à la couleur
 
If Intersect(Target, Range("A1:B8")) Is Nothing Then: Exit Sub
 
With MaPlage
    Set MaRech = .Find(Target.Value, LookIn:=xlValues) 'Recherche dans la plage la valeur de la cellule modifiée
    If Not MaRech Is Nothing Then 'Si n'est pas rien, donc si trouvé...
        Target.Interior.ColorIndex = MaRech.Offset(0, 1).Value 'Applique le code couleur contenu dans la cellule à droite de celle qui correspond à la recherche
    Else 'Sinon, donc pas trouvé
        Target.Interior.ColorIndex = xlNone 'Pas de couleur de fond.
    End If
End With
 
End Sub

[vandewinkel]

BIG SUPER EXTRA MERCI. C'est tip top ce dont j'avais besoin.
Merci

Dans ce cas, le select case n'est peut-être pas le plus adéquoi...
Je pars du principe que sur ta feuille Param tu as à partir de la ligne 7 tu es les différentes info pour les couleurs.
J'imagine le code couleur dans la colonne G et la "lettre" dans la colonne F
=> la plage ira de F7 à G46

On va utiliser le principe du .Find, voici un exemple:

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
17
18
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MaPlage As Range, MaRech As Range
Dim MaCol As Long
 
Set MaPlage = Sheets("Param").Range("F7:F46") 'Plage qui contient la référence liée à la couleur
 
If Intersect(Target, Range("A1:B8")) Is Nothing Then: Exit Sub
 
With MaPlage
    Set MaRech = .Find(Target.Value, LookIn:=xlValues) 'Recherche dans la plage la valeur de la cellule modifiée
    If Not MaRech Is Nothing Then 'Si n'est pas rien, donc si trouvé...
        Target.Interior.ColorIndex = MaRech.Offset(0, 1).Value 'Applique le code couleur contenu dans la cellule à droite de celle qui correspond à la recherche
    Else 'Sinon, donc pas trouvé
        Target.Interior.ColorIndex = xlNone 'Pas de couleur de fond.
    End If
End With
 
End Sub