menu déroulant Fermé

Question

Bonjour,
J'ai ouvert un menu déroulant sur Excel, avec une liste par ligne de commentaires.
J'aimerai associer à chaque ligne créé une couleur de texte différente.
Comment faire ??
Merci à vous

via55 · Answer

Bonjour

Tu peux soit le faire par des mises en forme conditionnelles, une par texte différent, un peu fastidieux si beaucoup de textes différents ou par macro (le principe la liste des textes utilisée dans le menu déroulant a un fond de couleur différents pour chaque cellule, au choix dans le menu déroulant la macro colore du fond adéquat; avantage : le changement de couleurs est simple, pas besoin d'aller modifier plusieurs MFC)

Pour une aide efficace poste un exemple de ton fichier sur mon-partage.fr, copie le lien créé et reviens le coller ici

Cdlmnt
Via

via55 · Answer

Bonjour

Ton fichier est en ods je ne peux l'ouvrir avec mon Excel
Renvoie moi ton fichier en xls

tocderonce · Answer

Fichier en xls
Merci
https://mon-partage.fr/f/YDC86MCQ/

via55 · Answer

https://mon-partage.fr/f/3vQddeDN/
La liste des choix avec leurs couleur en feuille DATA
Dans le worksheet de chaque feuille mensuelle macro déclenchée par changement en colonne C

Cdlmnt
Via

tocderonce · Answer

C'est super sympa de ta part. C'est exactement le résultat que j’attendais.
Je pense que l'explication est trop difficile à développer ?
Parce que de mon côté les macros je n'y connais rien.
Amicalement

via55 · Answer

Le code de la macro avec des explications
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C5:C35")) Is Nothing Then 'verificaton que la cellule modifiée est dans la plage C5:C35
ligne = Sheets("DATA").Columns(1).Find(Target.Value, , , , xlByColumns, xlPrevious).Row 'n° de la ligne dans DATA correspondant à la valeur trouvée avec la fonction FIND (trouve)
coul = Sheets("DATA").Range("A" & ligne).Interior.Color ' récupère la couleur de cette cellule
If Target.Value = "" Then coul = Sheets("DATA").Range("A14").Interior.Color ' si la cellule modifiée est vide (effacement de la donnée) on prend la couleur de A14 soit blanc
Cells(Target.Row, Target.Column).Interior.Color = coul 'Colore la cellule modifiée  (target.row donne la ligne, target.column la colonne)
End If
End Sub

S'il y a encore quelque chose d'obscur n'hésite pas à me redemander

tocderonce · Answer

Je te remercie, je regarderai ça à tête reposée. 
Merci bien
Bon weekend

tocderonce · Answer

Bonjour,
Peux-tu me retransmettre ton message concernant les explications pour les macros en date du 15 août à 17h23.
Merci

via55 · Answer

Bonjour

Le message est toujours présent ci dessus, je t'ai remis le code de ta macro mais avec des commentaires

Menu déroulant

9 réponses

Discussions similaires

Newsletters