XL 2010 colorer une cellule en fonction d'une autre deja colorée

[loicdig]

bonjour,
tous simplement je souhaiterais que lorsque je choisi ds le menu déroulant
s'affiche la couleur et le mot correspondant
sachant que les couleurs et la liste peut évoluer souvent
donc il me faudrait une formule qui fasse sa tout seul
merci

 

[Jacky67]

Bonsoir,
Essaye ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Not Intersect(Target, [plage]) Is Nothing Then
Target.Interior.ColorIndex = Cells(Application.Match(Target.Value, [liste], 0) + 2, "N").Interior.ColorIndex
Target.Font.ColorIndex = Cells(Application.Match(Target.Value, [liste], 0) + 2, "N").Font.ColorIndex
End If
End Sub

 

[loicdig]

bonjour, merci pour votre réponse le fichier test fonctionne, mais je ne comprend pas comment je ne vois aucune formule nul part!!!

 

[Jacky67]

....je ne vois aucune formule nul part!!!

RE..
Parce qu'il n'y en a pas...
C'est l'exécution du code vba qui fait le boulot dans ce cas.
C'est un code évènementiel , qui s'exécute quand il y a un changement dans la feuille concernée et particulièrement dans la plage nommée "plage"
Pour visualiser le code
Clique droit sur l'onglet de la feuille concernée ==>visualiser le code
ou encore
Alt+F11

 

[loicdig]

je ne maitrise absolument pas le code vba.
dans mon exemple les cases ne correspondent pas a mon fichier originel je suis incapable de refaire la manipulation pour mon fichier.
n'existerait-il pas une simple formule

 

[Jacky67]

je ne maitrise absolument pas le code vba.
dans mon exemple les cases ne correspondent pas a mon fichier originel je suis incapable de refaire la manipulation pour mon fichier.iste
n'existerait-il pas une simple formule

RE...
....n'existerait-il pas une simple formule
A ceci je répondrai NON

Dans le fichier originel,
-Sélectionner toutes les cellules qui doivent contenir cette liste de validation
-Nommer cette sélection "Plage"
-Copier le code #2 (plus haut dans ce fil)
-Clique droit sur l'onglet de la feuille concernée ==>visualiser le code
-Coller le code
-Tester..........

 

[loicdig]

Je pense avoir compris le truc je vais essayer demain.
Merci pour les explications.