Changer la couleur des polices

[bobafric]

Bonjour,
Dans une liste de nombres à l'origine couleur standard, je veux changer la couleur de plusieurs listes de nombres.
Pour des explications plus claires je joins un fichier excel.
Merci d'avance pour votre aide.
Bob

 

[Paf]

Re : Changer la couleur des polices

Bonjour

une solution possible:

Sub ChangeCouleur()
 For Each MaCell In Worksheets("Feuil1").Range("A2").CurrentRegion
    Select Case MaCell.Value

    Case 1, 5, 12 'nombres rouges
        MaCell.Font.ColorIndex = 3
    
    Case 3, 4, 34 'nombres vert
        MaCell.Font.ColorIndex = 4
    
    Case 7, 14, 28 ' nombres jaunes
        MaCell.Font.ColorIndex = 6

    End Select
 Next
End Sub

à adapter

A+

 

[bobafric]

Re : Changer la couleur des polices

Merci Paf c'est nickel
A plus Bob

 

[Modeste]

Re : Changer la couleur des polices

Bonjour bobafric,
Salut Paf 🙂

😕 Il y a quelque chose qui m'échappe et qui empêcherait d'utiliser des Mises en Formes Conditionnelles 😕

 

[mapomme]

Re : Changer la couleur des polices

Bonjour à tous,

Avec un exemple de mise en forme conditionnelle au cas où la réponse à la question de modeste 🙂 est "NON".