Couleur dans un menu deroulant

[purrix]

Bonjour,

je souhaiterai sur mon planning quand je suis sur une cellule que je puisse en cliquant sur une autre cellule lui attribuer le fond de celle-ci. (Je ne sais pas si c'est bien claire..°😀 Une sorte de lien.

Auriez vous la solution ?

Je vous ai mis le fichier en pièce jointe.

Merci d'avance pour vos réponse.

A bientot

 

[hoerwind]

Re : Couleur dans un menu deroulant

Bonjour et bienvenu sur le forum,

Il n'y a pas moyen de gérer des formats (couleurs ou autres) par formule ou liste de validation.
Mais c'est faisable par une MFC (mise en forme conditionnelle), avec comme inconvénient majeur que, si tu n'es pas sur XL2007, tu seras limité à trois couleurs.
Au-delà il faut passer par une macro.

Peux-tu préciser ta version d'Excel et le nombre de couleurs que tu souhaites gérer ?

 

[purrix]

Re : Couleur dans un menu deroulant

J'ai la version 2003, le nombre de couleur serait environ de 5 je pense

 

[hoerwind]

Re : Couleur dans un menu deroulant

Re,

XL2003 et plus de 3 couleurs, c'est nécessairement une macro.

Fais une recherche sous les anciens messages avec MFC ou mise en forme Conditionnelle comme mot clef, tu y trouveras de nombreux exemples.

 

[Lii]

Re : Couleur dans un menu deroulant

Bonsoir,

un exemple avec une nouvelle fonction incluse dans le menu du "bouton droit" utilisable dans n'importe quelle feuille (1 ici, poids oblige).

 

[JCGL]

Re : Couleur dans un menu deroulant

Bonjour à tous,

Un essai avec :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Number As Long
Number = ActiveCell

Select Case Number
Case 1
 ActiveCell.Interior.ColorIndex = 34
 ActiveCell.Font.ColorIndex = 34
 Case 2
 ActiveCell.Interior.ColorIndex = 45
 ActiveCell.Font.ColorIndex = 45
 Case 3
 ActiveCell.Interior.ColorIndex = 36
 ActiveCell.Font.ColorIndex = 36
 Case 4
 ActiveCell.Interior.ColorIndex = 39
 ActiveCell.Font.ColorIndex = 39
 Case Else
 ActiveCell.Interior.ColorIndex = xlNone
 End Select
End Sub

A placer dans le code la feuille

A+ à tous