Changer la couleur des polices

Paf

XLDnaute Barbatruc

• 2 Mai 2015

• #2

Re : Changer la couleur des polices

Bonjour

une solution possible:

Code:

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+

 

Vote positif 0 Vote négatif

B

bobafric

XLDnaute Occasionnel

• 2 Mai 2015

• #3

Re : Changer la couleur des polices

Merci Paf c'est nickel
A plus Bob

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 2 Mai 2015

• #4

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 😕

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 2 Mai 2015

• #5

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".

 

Pièces jointes

• bobafric-couleur police-v1.xlsm

  42.4 KB · Affichages: 40

Dernière édition: 2 Mai 2015

Vote positif 0 Vote négatif