Cellule couleur

[lamho27]

bonsoir le forum,
je voudrais faire cellule en couleurs si on tape 1 lettre ( sans utiliser mef conditionnelle parce que plus de 3 couleus )
Ex: si on tape lettre A= couleur rouge
b= vert.....
merci d'avance

 

[ROGER2327]

Re : Cellule couleur

Bonjour à tous

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
   Range("A1").Interior.ColorIndex = Array(xlNone, 3, 6, 4, 22, 36)(Abs(CInt(Range("A1").Value) * (Abs(CInt(Range("A1").Value)) < 6)))
End Subb[/B][/COLOR]

cellule A1 0 couleur aucune 1 3 2 6 3 4 4 22 5 26​

ROGER2327
#2456

 

[lamho27]

Re : Cellule couleur

Merci bien Jean Marcel et Roger2327 , mais un petit question , vous me donnez la liste de couleurs avec numéroter pour choisir

 

[ROGER2327]

Re : Cellule couleur

Re...

Si vous mettez 0 dans la cellule A1, la couleur est supprimée.
Si vous mettez 1 dans la cellule A1, vous avez la couleur dont l'index est 3 (rouge avec la palette standard).
Si vous mettez 2 dans la cellule A1, vous avez la couleur dont l'index est 6 (jaune avec la palette standard).
Si vous mettez 3 dans la cellule A1, vous avez la couleur dont l'index est 4 (vert avec la palette standard).
Si vous mettez 4 dans la cellule A1, vous avez la couleur dont l'index est 22 (rose avec la palette standard).
Si vous mettez 5 dans la cellule A1, vous avez la couleur dont l'index est 36 (jaune clair avec la palette standard).​

ROGER2327
#2458

 

[JNP]

Re : Cellule couleur

Bonsoir le fil 🙂,
Sans vouloir me faire de publicité 🙄, tu trouveras des fichiers sur ce fil qui t'aideront à déterminer tes couleurs 😛...
Bonne soirée 😎

 

[tweety]

Re : Cellule couleur

Bonsoir
Je pense que celà correspondra à tes désirs
PS :je n'en suis pas l'auteur
A toutes et tous de bonnes fêtes de fin d'année: joies santé et bulles!!
A+ sur le forum

 

[lamho27]

Re : Cellule couleur

Merci pour tous, bonne fete de fin annee