motif de cellules

[marc]

bonjours à tous
Je souhaiterais pouvoir colorier des cellules selon le caractères ecrit dans cette dernière :

Ex : si j'écris "ca" dans une cellule, je voudrai que celle ci se color en bleu.
J'aimerais pouvoir utliser une palette d'une dizaine de couleurs differentes selon les caractères.(ca , jtl , repos, maladie etc....)

Je suis novice, et si vous pouviez me détailler la réponse, je serais plus qu'heureux.
Le but est d'utiliser cette fonction dans un planning annuel

Je vous remercie tous de l'aide que vous pouvez m'apporter.
Merci
Marco

 

[schmail]

Bonjour Marc

Il faut que tu utilises la mise en forme conditionnelle.
Tu cliques ds la cellule A1 puis Format et mise en forme conditionnelle
Ensuite, la valeur de la cellule est égale à ="ca" puis tu cliques sur le bouton Format et...@+

 

[marc]

Merci de me repondre aussi rapidement.
Je viens d'essayer et je suis
limité à trois couleurs maxi.
Y-a-t-il une manip ou formule complémentaire pour augmenter l'utilisation de plus de couleurs ?
Encore merci de cette aide, et de cette réponse si rapide, qui me met sur lla bonne voix.
Marc

 

[schmail]

Alors la ??? je cale

Il te faudra attendre l'intervention d'un ou d'une spécialiste des fonctions et formules.Bonne fin de week end et @+

 

[Vériland]

Bonsoir Marc, Schmail et le forum,

Je pense que pour l'instant l'idéal sera d'adapter une macro événementielle.

Or pour cette solution Ti a joint un exemple Lien supprimé, je suis sûr que tu peux t'en inspirer et ainsi avoir la possibilité d'augmenter très simplement le nombre de conditions couleur...le fichier c'est : (couleursTi.zip)

...et si tu cherches également à connaitre le code couleur à inscrire dans la macro tu vas Lien supprimé où Ti (il est partout...hi hi hi) donne également la liste des codes couleur correspondants...

Avec ça tu seras tranquille je pense...mais si tu as un problème supplémentaire n'hésite pas...

Bonne programmation

 

[twingo rouge]

Salut Marc

Avec l'evenement Change de la feuille

Sub Feuil1_Change (...Target ...)

ligne = Target.row
colonne = Target.column
contenu = Cells(ligne,colonne)

Select case contenu
case "un"
Cells(ligne,colonne).Interior.ColorIndex = 2
case "deux"
Cells(ligne,colonne).Interior.ColorIndex = 3
......
End Select

End Sub

 

[marc]

SUPER et merci

t'as solution a parfaitement fonctionnée, avec autant de couleurs que je voulais.

Merci à tous, pour voutre aide, et encoure un grand merci à twingo.

Marc