liste déroulante pour changer la couleur d'une cellule

[dudu133]

Bonjour à tous le forum,

J'ai une liste déroulante et je voudrais en fonction de mon choix les cellules suivantes change de couleurs de a5 à e5.
vide -> blanc
Férié -> orange
R.T.T -> Bleu
C.P -> Jaune
Maladie -> Vert
Repos -> Gris

Je vous joins mon fichier

Merci d'avance

 

[GI_GI]

Re : liste déroulante pour changer la couleur d'une cellule

Bonjour a tous
Un petit essai.
Salutations

 

[dudu133]

Re : liste déroulante pour changer la couleur d'une cellule

Bonjour GI_GI et à tous le forum,

Merci de ton aide, ce me convient parfaitement.

 

[Pajeclo]

Re : liste déroulante pour changer la couleur d'une cellule

Ce planning me plait enormement pourriez vous me dire comment les couleurs changent pour que je puisse personnalisé mon tableau.

Merci d'avance

 

[BOISGONTIER]

Re : liste déroulante pour changer la couleur d'une cellule

Bonjour,

Voir PJ

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

JB

 

[balzou]

Re : liste déroulante pour changer la couleur d'une cellule

Bonjour,

Le code de GI_GI pour changer de couleur me convient parfaitement sauf que j'aimerai modifier les lignes et non pas les colonnes.
J'ai essayé de modifier la ligne : "ActiveCell.Offset(columnoffset:=-1).Interior.ColorIndex = 6" en remplaçant columnoffset par lineoffset mais cela ne marche pas...

Quelqu'un connaît une solution pour affecter les lignes et non pas les colonnes ?

Merci d'avance

balzou

 

[phlaurent55]

Re : liste déroulante pour changer la couleur d'une cellule

Bonjour Bazlzou, et bienvenue sur le forum

il aurait été préférable de créer un nouveau fil de discussio plutôt que de "squatter un autre qui a presque 4 ans d'âge

J'ai essayé de modifier la ligne : "ActiveCell.Offset(columnoffset:=-1).Interior.ColorIndex = 6" en remplaçant columnoffset par lineoffset mais cela ne marche pas...

essaie:
rowOffset au lieu de lineoffset ......... et ça ira mieux

à+
Philippe

 

[balzou]

Re : liste déroulante pour changer la couleur d'une cellule

C'est vrai que le topic à 4 ans mais comme j'utilisais le code GI_GI je voulais pas en créer un autre!

En tout cas merci pour ton aide Philippe ça marche nikel!

A+