Changer la couleur de police auto suivant le chiffre excel Résolu/Fermé

Question

Bonjour,

Dans une cellule J2, je saisis un chiffre.

Je souhaite que la couleur de police de caractères se change automatiquement.

Par mise en forme conditionnelle liée à la table des couleurs ?

Exemple :

Je saisis 3 = couleur rouge

Je saisis 6 = couleur jaune

Il existe 56 couleurs

56 couleurs qui sont listés de A5 à B60

Sub CouleursDeBaseEnVBA()

For i = 1 To 56
   Cells(i, 1).Value = i
   Cells(i, 2).Interior.ColorIndex = i
Next i
End Sub

Ensuite avec une fonction, j'additionne les chiffres de même couleur que J2

en

I2 =SommeCouleurTexte($C$2:$H$3;J2)

Function SommeCouleurTexte(champ As Range, couleurTexte)
    Application.Volatile
    Dim c, temp
    temp = 0
    For Each c In champ
      If c.Font.ColorIndex = couleurTexte Then
         If IsNumeric(c.Value) Then temp = temp + c.Value
      End If
    Next c
    SommeCouleurTexte = temp
End Function

J'ai bien 3 chiffres en rouge, qui en les additionnant font 8 (1+2+5)

Merci d'avance,

Cordialement,

cs_Le Pivert · Answer

Bonjour,

a mettre dans le module de la feuille concernée

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.ColorIndex = Target.Value
End Sub