Discussion :

[zeldanat28]

Bonsoir,

J'ai créé un tableau avec des listes de choix et des MFC.
Dans une cellule où j'ai une liste de choix, je souhaite, une fois le choix effectué (initiales), colorier les caractères de la ligne en fonction de la couleur de la cellule contenant les mêmes initiales.
En fonction du fichier ci-joint :
- onglet 2009
- en cellule H9, je choisis les initiales NBL
- je souhaite que la ligne entière soit de la même couleur que la cellule C18
et ainsi de suite ...

Pour info, j'ai déjà mis une MFC pour colorier une ligne entière en gris si le choix en colonne F est "GPA"
Je pourrais faire de même pour ma nouvelle demande, mais çà impliquerait d'additionner tout un tas de MFC !

[casefayere]

D'après ton fichier, tout se passe en col G et non en col H, donc j'ai modifié ton code en ce sens

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 Not Application.Intersect(Target, Range("G3:G10")) Is Nothing And Target.Count = 1 Then CouleurLigne
End Sub
 
Sub CouleurLigne()
Dim xInitial As Range, xCell As Range
    For Each xCell In Range("G3:G10")
        Set xInitial = Range("C16:C23").Find(what:=xCell, LookIn:=xlValues, lookat:=xlWhole)
        If Not xInitial Is Nothing Then
            Range("A" & xCell.Row & ":K" & xCell.Row).Font.Color = xInitial.Font.Color
        Else
            Range("A" & xCell.Row & ":K" & xCell.Row).Font.Color = RGB(0, 0, 0)
        End If
    Next xCell
Set xInitial = Nothing
End Sub

[BlueMonkey]

Bonsoir,

Dans la même idée avec un peu quelques simplification (surtout pour éviter la variable globale,
qui représente toujours un risque de problème) :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    If (Not Intersect(Target, Range("G3:G10")) Is Nothing) Then
        Dim model As Range
        Set model = Range("C16:C23").Find(Target)
        Range("A" & Target.Row & ":J" & Target.Row).Font.Color = IIf(model Is Nothing, _ 
        ColorConstants.vbBlack, model.Font.Color)
    End If
End Sub

[casefayere]

Entièrement d'accord avec toi BlueMonkey, j'ai répondu trop vite en modifiant le code qui existait

[zeldanat28]

merci pour vos réponses, elles m'ont permis de résoudre mon problème.