Discussion :

[cobra38]

Bonjour à tous ,

J'ai un petit problème lié à l'utilisation de couleur dans une liste déroulante
J'explique :

J'ai une liste déroulante "Liste" comportant des 10 infos différentes de couleurs différentes
Je souhaite rapporter dans une autre feuille à la fois le contenu de la cellule choisie et surtout la couleur associée
comment faire , sachant que le format conditionnel ne comporte que 3 conditions et là j'en ai 10 !

merci mille fois
A+

[Michel_M]

Salut Cobra 38

macro à copier dans le module "feuilX" (où se trouve ta liste à validation)
ici la liste est située en E4

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E4")) Is Nothing Then: Exit Sub
choix = Target.Value
Select Case choix
    Case Is = "machin"
    Target.Interior.ColorIndex = XX
     Case Is = "truc"
     Target.Interior.ColorIndex = YY
 '....continue avec les autres intitulés
    Case Is = ""
    Target.Interior.ColorIndex = xlNone
 End Select
 
End Sub

[Micky58]

Bonjour Michel_M,
comment peux-t-ton mettre des différentes couleurs sur les infos qui se trouvent sur une liste déroulente?
Merci àtoi et bonne journée @+

[Michel_M]

Salut Micky,

Dans le cas de Cobra le silencieux j'ai considéré qu'il s'agissait d'une liste à validation de données puisqu'il me parle de MFC...

Dans les listes déroulantes, barre controle ou barre formulaire, je ne crois pas que cela soit possible...

Bonne soirée

[cobra38]

Salut Cobra 38

macro à copier dans le module "feuilX" (où se trouve ta liste à validation)
ici la liste est située en E4

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E4")) Is Nothing Then: Exit Sub
choix = Target.Value
Select Case choix
    Case Is = "machin"
    Target.Interior.ColorIndex = XX
     Case Is = "truc"
     Target.Interior.ColorIndex = YY
 '....continue avec les autres intitulés
    Case Is = ""
    Target.Interior.ColorIndex = xlNone
 End Select
 
End Sub

Tout d'abord , merci Michel_M pour ta reponse
Etant nul en Excel ,j'aurais si tu le permets besoin quelques précisions
lorsque tu precises " ...où se trouve ta liste à validation " c'est la feuille dans laquelle j'applique mes choix issus de la liste de validation c'est cela ?
ex : dans A1 j'y mets le choix issu de la liste puis alors A1 prend la couleur et le texte de la liste
et dans ce cas peux-tu me preciser comment faire la liaison avec "Private Sub" .... pour le Range serait alors : Range ("C4:AG8") ...
J'avoue ne pas comprendre tellement la manip
Merci par avance
A+

[Michel_M]

Bonjour,

suite à ton MP, peux-tu répondre à ces questions, STP:

Quand tu parles de liste déroulante, comment as tu fait pour la construire:
données-validation, barre outils formulaire, barre outils controle ?

où est située la liste des données que tu veux sélectionner ?

si j'ai pigé ta demande:
Après avoir séletionner un nom de la liste, celui se met dans une couleur unique à ce nom dans la plage C4:AG8 ?

Au besoin ajoute une pièce jointe-testée vierge de virus- de ton classeur: c'est possible avec les options supplémentaires de ce forum (en bas)

Quelqu'un du forum, peut-être moi si je suis rentré, pourra alors t'aider efficacement

Bon appétit

[cobra38]

Bonjour à tous ,

Pour expliquer au mieux mon petit problème j'ai rajouté un exemple
composé d'une "feuil2"

1) la liste déroulante avec 10 choix possibles de couleurs diférentes
2) en F5 et F6 , 2 cellules test avec validation de la liste

le but étant tout simplement de remplir ces cellules à partir de la liste de choix (1) puis après appui sur le bouton d'obtenir la couleur associée

dans le module on peut voir le code affecté aux cellules F et F neanmoins cela devient vite fastidieux lorsque l'on beaucoup de celleules à modifier
l'emploi d'une boucle auto me serait très utile mais mes connaissances en excel sont très limitées
il faut noter aussi l'emploi du bouton n'est pas très judicieux mais je n'ai pas trouvé malgrè toutes mes recherches sur le forum de code me permettant de faire cela dès l'ouverture de la feuil

merci par avance pour le coup de main
A+

[Michel_M]

Re,

Regarde si la pj te convient: action sans bouton de commande

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
'délimite l'action de coloriage par exemple F5:F18
If Intersect(Target, Range("F5:F18")) Is Nothing Then: Exit Sub
 
lig = Range("B4:B14").Find(Target, Range("B4")).Row
 
Target.Interior.ColorIndex = Cells(lig, 2).Interior.ColorIndex
 
End Sub