mettre en couleur des cellules

[Laurent50]

Bonjour tout le monde,

j'ai dans ma feuille excel après avoir cliqué sur un bouton des valeurs qui apparaissent dans les cellules A1 à H1. Quelques fois, les dernieres cellules ne contiennent aucunes valeurs.

donc par exemple ça peut donner ça:
A1: 20
B1: 55
C1: 112
D1: 150
E1: 221
F1: 312
G1: 401
H1: 462

et la fois suivante ça peut être :
A1: 22
B1: 59
C1: 101
D1: 142
E1: 152
F1: 215
G1: aucune valeur
H1: aucune valeur


il faudait que excel me mette le fond de la cellule d'une certaine couleur uniquement pour les cellules contenant une valeur.

La derniere cellule devrait avoir une couleur de fond rouge.
L'avant derniere cellule une couleur de fond orange.
et le cellules de début de couleur verte.

dans les exemples ci dessus ça donnerait :

A1: 20 (fond Vert)
B1: 55 (fond Vert)
C1: 112 (fond vert)
D1: 150 (fond vert)
E1: 221 (fond vert)
F1: 312 (fond vert)
G1: 401 (fond orange)
H1: 462 (fond rouge)

et pour l'autre:

A1: 22 (fond Vert)
B1: 59 (fond Vert)
C1: 101 (fond vert)
D1: 142 (fond vert)
E1: 152 (fond Orange)
F1: 215 (fond Rouge)
G1: aucune valeur (reste blanc)
H1: aucune valeur (reste blanc)

quelle macro faudrait il ajouté à mon bouton pour que ceci puisse eventuellement se faire?

Merci.

Laurent50

 

[PascalXLD]

Bonjour

un exemple

Sub toto()

Dim macol As Byte, x As Byte

Range('A1:H1').Interior.ColorIndex = xlNone

macol = Range('A1').End(xlToRight).Column
Cells(1, macol).Interior.ColorIndex = 3
Cells(1, macol - 1).Interior.ColorIndex = 45
For x = 1 To macol - 2
    Cells(1, x).Interior.ColorIndex = 4
Next
End Sub

 

[Tibo]

Salut Laurent,

A essayer, sans macro, avec une mise en forme conditionnelle :

regardes le fichier


Bonne soirée

@+ [file name=plage_couleur.zip size=1986]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/plage_couleur.zip[/file]

 

[FREDASTER]

Bonjour,


Tu peux utiliser tout simplement le format conditionnel dans FORMAT et MISE EN FORME CONDITIONNELLE.

Je t'ai mis un fichier joint si c'est ce que tu cherches. [file name=couleur_20051212190943.zip size=1593]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/couleur_20051212190943.zip[/file]

 

[Laurent50]

Merci à tous pour vos réponses.

Le pb c'est que la MFC n'etait pas adaptée pour ça.

c'est Pascal qui remporte le point car ça marche impec! ;-)

Mais merci à tous.

Laurent.