problème de couleur

[alosi]

Bonjour à tous,

qui pourra me solutionner ce petit problème

que le béotien que je suis n'arrive pas a résoudre

je dois sur une feuille de calcul faire varier la couleur de fond d'une
cellule en fonction de la valeur d'une autre cellule, sur la même ligne mais située dans une autre colonne

par exemple :

la couleur de la cellule A1 doit-etre rouge si la valeur de la cellule
D1 est 3, jaune si la valeur est 2, verte si elle est égale à 1
et ainsi de suite pour toute les cellules de la colonne A, s'il y a un chiffre dans la colonne D

Merci de votre aide

 

[BOBBY]

Hello Alosi

Alors s'il n'y a que 3 condition pour ton calcul je te conseille la mise en forme conditionnelle

Tu selectionne ta cellule A1
Format > Mise en forme conditionnelle

Tu selectionne 'La formule est' (à la place de la valeur de la cellule..)
a droite tu marques :

=D1=3

Ensuite tu clique sur 'FORMAT' tu choisi la couleur rouge ('motif')

'OK'

Puis 'Ajouter'

Tu selectionne 'La formule est' (à la place de la valeur de la cellule..)
a droite tu marques :

=D1=2

Ensuite tu clique sur 'FORMAT' tu choisi la couleur vert ('motif')

'OK'

Puis 'Ajouter'

Tu selectionne 'La formule est' (à la place de la valeur de la cellule..)
a droite tu marques :

=D1=1

Ensuite tu clique sur 'FORMAT' tu choisi la couleur jaune ('motif')

'OK'

Puis 'OK'

Ensuite tu selectionnes toute la colonne 'A' pour lesquels tu souhaites les changements
Format > Mise en forme conditionelle
Clique 'OK'
Ca copie la formule pour toutes les cellules selectionnées...

Bon courage

 

[ALOSI]

Merci Bobby,

la mise en forme conditionnelle, je connais, malheureusement j'ai plus de trois variable et donc elle ne me sert pas à grand chose.

Merci quand même de ton aide et j'espère qu'une 'pointure' de l'utilisation d'Excel pourra me dépanner

Amitiés à tous

 

[Hervé]

Bonsoir

une proposition en pièce jointe.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim couleur As Byte

If Target.Column <> 4 Then Exit Sub
Select Case Target
&nbsp; &nbsp; Case 1: couleur = 10
&nbsp; &nbsp; Case 2: couleur = 11
&nbsp; &nbsp; Case 3: couleur = 12
&nbsp; &nbsp; Case 4: couleur = 13
&nbsp; &nbsp; Case 5: couleur = 14
&nbsp; &nbsp; Case 6: couleur = 15
&nbsp; &nbsp; Case 7: couleur = 16
&nbsp; &nbsp; Case 8: couleur = 17
&nbsp; &nbsp; Case 9: couleur = 18
&nbsp; &nbsp; Case 10: couleur = 19
End Select

Cells(Target.Row, 1).Interior.ColorIndex = couleur

End Sub

Salut
[file name=Classeur3_20050529215124.zip size=7284]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur3_20050529215124.zip[/file]

 

[Ours]

merci, je pense que celà répond a mon problème