Récupérer la couleur avec liste déroulante

[midoparis]

Bonjour à tous !

J'ai une liste de noms et chaque cellule a une couleur différente.
A coté, j'ai une liste déroulante qui pointe sur cette liste de noms.

Comment récupérer la couleur de la cellule initiale automatiquement ?

Merci de votre aide !!

 

[ILoveZadig]

Re : Récupérer la couleur avec liste déroulante

Bonjour,

Une méthode, qui peut être fastidieuse en fonction du nombre de noms que tu as, consiste à appliquer une mise en forme conditionnelle.

Tu mets tes conditions, la valeur de la cellule égale à "tel nom" tu cliques sur le bouton format et tu choisis la couleur désirée.

C'est valable uniquement si la liste de noms n'est pas trop conséquente.. 🙂

 

[BOISGONTIER]

Re : Récupérer la couleur avec liste déroulante

Bonjour,

La liste est nommée Couleurs

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([planning], Target) Is Nothing Then
    On Error Resume Next
    Target.Interior.ColorIndex = [couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
  End If
End Sub

Données/Validation

JB