mettre des couleurs

[philou23]

bonjour a tous et toutes

vous trouverez ci joint un fichier avec ce que jaimerais obtenir

chaque personne recois une note et je voudrais que sur la partie graphique suivante , la ligne soit coloriéé uniquement avec une seule couleur
exemple si note 1 => couleur 1 case vert clair
si note=>9 9 case d e couleur orange etc



jai traite avec les mise en formes conditionelle mais si note =9 jai 1case vert clair 1 case vert plus fonce 1case vert sombre etc jusqua 1case orange

si qq veut bien se pencher sur mon probleme je lui en serait extrement reconniassant et en plus cela pourrait servir a dautres

amities a tous les lecteurs de ce messages
philou

 

[omicron]

Bonjour Philippe,

Tu trouveras en pièce jointe un exemple permettant de répondre à ton problème.

Principe :

1. Tu ajoutes une Feuille appelée par exemple "Palette"

2.Dans une colonne de cette feuille par exemple en "B1:B10" tu colories les cellules avec la couleur correspondant à chaque valeur B1=Couleur 0, B2=Couleur1, ....B10=Couleur9.

3. Tu règles les valeurs de la Plage Nommée "Indices_Couleur" pour dire ou se trouvent dans la Feuille à colorier les valeurs à prendre en considération pour colorier les lignes exemple : en "E2:E33"

Tu codes l'évènement "Worksheet_Change" de la feuille à colorier
exemple "Tableau" :

=====================================================
Private Sub Worksheet_Change(ByVal Target As Range)
Set Palette_Couleurs = Sheets("Palette").Range("B1:B10")
Set Indices_Couleurs = Range("E2:E33")
If Not Intersect(Target, Indices_Couleurs) Is Nothing Then
If IsNumeric(Target) Then
i = CInt(Target)
If i <= 10 Then Target.EntireRow.Interior.ColorIndex = Palette_Couleurs.Cells(i + 1).Interior.ColorIndex
End If
End If
End Sub
=====================================================

Ensuite les lignes doivent se colorier automatiquement, chaque fois que tu changes une valeur dans la Plage "Indices_Couleurs".

NB :

- Une fois la palette définie, il est bien sur possible de cacher la feuille
- Cela marche avec une palette à 10 entrées
- Les valeurs peuvent être décimales (elles sont alor arrondies + ou -)

En te souhaitant bon courage pour la suite ...

Omicron

 

[Monique]

Bonjour,

Avec une mise en forme conditionnelle.
Dans la mise en forme conditionnelle, tu mets 2 conditions.

Pour la colonne F à partir de F2 :
Condition 1 :
La formule est =$E2=9
Condition 2 :
La valeur de la cellule est égale à 1

La condition l'emportera sur la condition 2.

 

[philou23]

MERCI 999 fois

la 1000 eme serait si (cest possible ) de ne colorier QUE LA CELLULE où est inscrit la note sur le mm principe

ou bien

comme je le montrais dans mon exemple
de colorier autant de cellules que la note
note 1= 1 cellules avec code 1
note 9= 9 cellules avec code 9

note3 =3ceulles avec codes 3


merci encore

 

[philou23]

Monique


merci


ca marche bien a une condition prés
je ne peux gerer que deux couleurs sur chaque ligne
rouge si note =9 ou bien vert de 0 a 8

en fait

mon souhait aurais ete de =
en fonction de la note avoir un e couleur et un coloriage dautant de cellule que la valeur de la note


mais je vais etudier ta formule
merci

 

[Monique]

Re,

Ce n'était pas ça que tu voulais !
Si tu veux 1 couleur par point, il faut une macro.
Sinon, mais c'est moins bien, on peut "faire des tranches"
En reportant la note dans la cellule :
> = 8 brun
> = 6 rose
> = 4 vert
pour les autres, la couleur d'origine

 

[philou23]

alors merci merci
et encore merci


avec tous ces exemples je vais apprendre bcp

et je mets en pieces joints ce a quoi je suis arrivé avec le post de Monique que je fais etudier ce soir


merci et que cela puisse servir a tous


bonne soireee

 

[JB]

- Salut Philou23,

voici un petit fichier avec des macros qui semble correspondre à ta demande.

Je te préviens, mon niveau VBA n'est pas terrible et il s'agit souvent de bricolage.

J'espère t'aider quand même.

JB

 

[philou23]

alors la ;si avec tout ca je narrive pas a faire un joli arc en ciel


cest quand mm un outil formidable cet excel



merci a tous
a bientot