Chiffres En Couleurs

[bingo57]

Bonjour à tous,

J'ai un tableau de chiffre sur excel et j'aimerais qu'en fonction du chiffre dans la case, celle ci soit colorée dans une couleur bien spécifique.

La mise en forme conditionnelle ne permet de gérer que 3 conditions donc 3 couleurs. Or, il me faut une couleur pour chaque chiffre de 1 à 10

Quelqu'un sait comment je peux faire??

JE vous remercie par avance

 

[jeanpierre]

Re : Chiffres En Couleurs

Bonjour bingo57, re à tous,

Essaies ce lien, en bas, MeFC de notre ami Didier mDF, c'est super et devrait te convenir.

Ce lien n'existe plus

A te lire.

Jean-Pierre

 

[BOISGONTIER]

Re : Chiffres En Couleurs

Bonsoir,

Voir PJ

Colorie à la saisie:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([B2:D30], Target) Is Nothing And Target.Count = 1 Then
    Application.EnableEvents = False
    For c = 1 To [CouleursNb].Count
      If Target.Value = Sheets("couleurs").Range("CouleursNb")(c) Then
          Sheets("couleurs").Range("CouleursNb")(c).Copy
          Target.PasteSpecial Paste:=xlPasteFormats
      End If
   Next c
   Application.EnableEvents = True
  End If
End Sub

Colorie après:

Sub colorieAprès()
 For Each s In Selection
   For c = 1 To [CouleursNb].Count
      If s.Value = Sheets("Couleurs").Range("CouleursNb")(c) Then
          Sheets("Couleurs").Range("CouleursNB")(c).Copy
            s.PasteSpecial Paste:=xlPasteFormats
      End If
   Next c
 Next s
End Sub

JB
Formation Excel VBA JB