Attribuer une couleur à un chiffre

Forme contditionnelle

Bonjour Tibools, LsL et le forum,

places la macro suivante dans le module de feuille. Dés qu'un changement interviendra dans la plage ('A1:B20'), la couleur changera.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range('A1:B20')) Is Nothing Then
For Each cell In Target
If cell.Value = '' Then
cell.Interior.ColorIndex = xlNone
ElseIf cell.Value = 0 Then
cell.Interior.ColorIndex = 2
ElseIf cell.Value = 1 Then
cell.Interior.ColorIndex = 15
ElseIf cell.Value = 2 Then
cell.Interior.ColorIndex = 48
ElseIf cell.Value = 3 Then
cell.Interior.ColorIndex = 16
ElseIf cell.Value = 4 Then
cell.Interior.ColorIndex = 56
ElseIf cell.Value = 5 Then
cell.Interior.ColorIndex = 1
End If
Next
End If

End Sub

Cordialement

Bernard

Bonjour Lsl, Tibools, le forum

Tu peux essayer çà:

Private Sub Worksheet_Change(ByVal Target As Range)
ligne = Target.Row
colonne = Target.Column
If Target.Value = 0 Then Target.Interior.ColorIndex = 2
If Target.Value = 1 Then Target.Interior.Color = RGB(221, 221, 221)
If Target.Value = 2 Then Target.Interior.Color = RGB(178, 178, 178)
If Target.Value = 3 Then Target.Interior.Color = RGB(128, 128, 128)
If Target.Value = 4 Then Target.Interior.Color = RGB(80, 80, 80)
If Target.Value = 5 Then Target.Interior.ColorIndex = 1
End Sub

Puis modifie les valeurs dans RGB pour obtenir tes niveaux de gris.
Cette macro est ta mettre dans le module de ta feuille.

Bonsoir,

Voici un exemple qui j'espère pourra t'aider.

Slts

Oups désolé pas de fichier joint [file name=MetEnCouleursV1.zip size=11228]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MetEnCouleursV1.zip[/file]

Bonjour Tibools, LsL, CBernardT, globinours, Danix,

Parmi toutes ces possibilités, j'en ajoute une issue du fil de discussion Lien supprimé (voir le fichier joint à mon post du - 26/09/2005 11:36).
Cette macro permet de gérer plus de 3 formats conditionnels et à l'avantage de laisser l'utilisateur adapter facilement ses formats prédéfinis sans avoir à intervenir dans le code VBA...

Cordialement,

Bonjour à tous, Lsl, le forum

Je vous remercie tous pour votre aide.
Au final j'utilise le fichier de MyDeaurFriend! car je suis trop nul en excel pour copier coller correctement les lignes de code que vous m'avez fourni (merci quand même).

Ah ! Si tous les hommes de cette planète étaient aussi altruistes que vous chers membres de ce forum, it would be even...

Thibaud 😉