Excel - liste de choix associant une couleur

Asked By leina-33 on 23-Jul-08 03:34 AM
Bonjour,

Je vais essayer d'etre claire.

Je suis sous excel 2003.
J'ai un tableau de la colonne  A à la colonne J avec une liste de choix en
colonne H.
Cette liste de choix comporte 7 entrées différentes.

Je souhaiterais que suivant le choix effectué en col H, l'ensemble de la ligne
se colore pour chaque choix d'une couleur différente.

Avez vous une solution ?

Merci beaucoup.




JB replied on 26-Jul-08 01:56 AM
Bonjour,

http://boisgontierjacques.free.fr/pages_site/donneesvalidation.htm#Recup

JB
http://boisgontierjacques.free.fr

ix en
a ligne
Modeste replied on 23-Jul-08 03:48 AM
Bonsour=AE leina-33  avec ferveur  ;o))) vous nous disiez :=20
?????
de

Quelle ligne ???
combien y-a-t-il de lignes
chaque ligne peut-elle prendre l'une ou l'autre quelconque des couleurs
y-a-t-il une logique de mise en couleur (sucession, interdiction)

--=20
--=20
@+
;o)))
leina-33 replied on 23-Jul-08 04:33 AM
mon tableau a un nombre de ligne indéfini .
il me sert à avoir un suivi des différents problemes qualité rencontrés.
J'ajoute donc des lignes tout le temps en bas de tableau.

ma liste de choix (située col h) contient les données suivantes :

Réparation
Retour fournisseur
Tri
Pénalité
Refusé/annulé
Réétiquetage
Reconditionnement

je veux que toute la ligne concernée par mon choix en h  change de couleur en
fonction de ce choix.

recondissionement : toute la ligne devient rose
tri : ca devient vert
réétiquetage : ca devient jaune
retour fournisseur : bleu
réparation : violet
pénalité : gris
refusé annulé : orange

merci
Francois L replied on 23-Jul-08 05:13 AM
leina-33 a écrit :

Bonjour,

Code à mettre dans le feuille cocnernée :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns <> "H:H" And Target.Count <> 1 Then Exit Sub
Set cible = Range(Target.Offset(0, -7), Target.Offset(0, 2))
Select Case Target
Case "Réparation"
cible.Interior.ColorIndex = 39
Case "Retour fournisseur"
cible.Interior.ColorIndex = 33
Case "Tri"
cible.Interior.ColorIndex = 43
Case "Pénalité"
cible.Interior.ColorIndex = 15
Case "Refusé/annulé"
cible.Interior.ColorIndex = 44
Case "Réétiquetage"
cible.Interior.ColorIndex = 27
Case "Reconditionnement"
cible.Interior.ColorIndex = 38
Case Else
End Select

End Sub

Exemple :

http://cjoint.com/?hxlotwfOHW


PS en Feuil2 du classeur, les couleurs d'une palette standard et leur index

--
François L
Francois L replied on 23-Jul-08 05:16 AM
Francois L a écrit :
(...) le feuille cocnernée :

Oups, pas taper
la feuille concernée :

--
François L
Mgr Banni replied on 23-Jul-08 05:55 AM
plus beaucoup de gens pour taper, de toutes façons, cher françois...
Mgr T.B.
Francois L replied on 23-Jul-08 06:03 AM
Mgr Banni a écrit :

Bonjour,

Suffit d'un pour faire mal...

Et au fait, comment s'annonce le millésime ?

--
François L
JB replied on 26-Jul-08 01:56 AM
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column =3D 1 And Target.Count =3D 1 Then
On Error Resume Next
Rows(Target.Row).Interior.ColorIndex =3D [liste].Find(Target,
LookAt:=3DxlWhole).Interior.ColorIndex
End If
End Sub

http://cjoint.com/?hxmTww6Y8y

JB



tr=E9s.
uleur en
Mgr Banni replied on 23-Jul-08 08:10 AM
comment ça, comment ça n'annonce le millésime
vous ne savez donc pas, mon fils, que depuis plus de trente ans le
beaujolais est meilleur d'une année sur l'autre? seul, son goût change,
passant de la banane à la cerise, celui de poire restant réservé au
consommateur....
Mgr T.B.
Francois L replied on 23-Jul-08 08:11 AM
Mgr Banni a écrit :

Mon père,

Je croyais qu'il y avait aussi du vrai... sensible à la météo, au
terroir et au vigneron qui le fait.

Pas vrai ?

--
François L
leina-33 replied on 24-Jul-08 02:12 AM
Bonjour Francois.

Merci beaucoup.

c'est exactement ce que je voulais !!!!!

Bonne journée