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

loicdig

XLDnaute Nouveau
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
 

Pièces jointes

  • test excel.xlsx
    10.2 KB · Affichages: 54

Jacky67

XLDnaute Barbatruc
Bonsoir,
Essaye ceci
Code:
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
 

Pièces jointes

  • loic test excel.xlsm
    16.5 KB · Affichages: 62

Jacky67

XLDnaute Barbatruc
....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
 

Jacky67

XLDnaute Barbatruc
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..........
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 727
Membres
110 552
dernier inscrit
jasson