Cellule couleur

ROGER2327

XLDnaute Barbatruc

• 22 Décembre 2009

• #2

Re : Cellule couleur

Bonjour à tous

Code:

[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

 

Dernière édition: 22 Décembre 2009

Vote positif 0 Vote négatif

lamho27

XLDnaute Occasionnel

• 22 Décembre 2009

• #3

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

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 22 Décembre 2009

• #4

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

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 22 Décembre 2009

• #5

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 😎

 

Vote positif 0 Vote négatif

T

tweety

XLDnaute Nouveau

• 22 Décembre 2009

• #6

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

 

Pièces jointes

• Couleurs.xls

  36 KB · Affichages: 68
• Couleurs.xls

  36 KB · Affichages: 61
• Couleurs.xls

  36 KB · Affichages: 66

Vote positif 0 Vote négatif

lamho27

XLDnaute Occasionnel

• 23 Décembre 2009

• #7

Re : Cellule couleur

Merci pour tous, bonne fete de fin annee

 

Vote positif 0 Vote négatif