Menu déroulant
tocderonce
Messages postés
6
Statut
Membre
-
via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention -
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
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
9 réponses
-
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
-
Bonjour,
Je te remercie pour ces infos. Je vais t'envoyer mon fichier.
Merci
https://www.cjoint.com/doc/20_08/JHoizVxqgVM_PLANNING-2020.ods
La colonne corespndante est celle juste après les jours de semaine, dans le menu déroulant:
Ex: CA d'une couleur
RTT, dune autre couleur etc,...
Merci
-
-
Bonjour
Ton fichier est en ods je ne peux l'ouvrir avec mon Excel
Renvoie moi ton fichier en xls
-
-
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
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 -
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
-
Je te remercie, je regarderai ça à tête reposée.
Merci bien
Bon weekend -
Bonjour,
Peux-tu me retransmettre ton message concernant les explications pour les macros en date du 15 août à 17h23.
Merci -
Bonjour
Le message est toujours présent ci dessus, je t'ai remis le code de ta macro mais avec des commentaires