Couleur de caracteres

[Karine]

Bonjour a tous, :kiss:

Je sollicite votre aide pour mon petit problème,
Voila dans une colonne j’ai des nombres, et je voudrais avec VBA que les nombres de 1 a 100 soit de couleur Bleu, de 101 a 200 de couleur Jaune, et enfin de 201 a 300 de couleur Vert…
Merki d’aider une débutante :unsure:
@+

 

[Bricofire]

Bonjour Karine,

Vas dans Format, Mise en forme conditionelle, mets tes conditions successivement et joue sur format !

bonne journée,

Bfr

Edition, pour les réglages, tu cliques sur le ? en bas à gauche de la boîte de MFC ou dans l'aide intuitive tu tapes direct mise en forme conditionnemme et tu vas sur surlignage de cellulles....

Message édité par: bricofire, à: 25/11/2005 10:34

 

[Brigitte]

Bonjour,


Pour appuyer ce que dit Brico, voici un petit mémo qui peut t'aider.

Bon courage. [file name=EXCEL_MFC_20051125103504.zip size=41839]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EXCEL_MFC_20051125103504.zip[/file]

 

[Karine]

RE bonjour :kiss:

1000 Merki c tout a fait ce qu'il me fallait

 

[anuky]

Bonjour karine, bricofire, brigitte, le forum

Voici une solution avec VBA:

Sub ColoriageSi()

    Dim x As Integer
    Set FeuilleDepart = ActiveWorkbook.Sheets('feuil1')
    
    For x = 1 To Range('A65536').End(xlUp).Row
       
            
    'si la colonne (A) est >0 et <100 alors alors la chiffre en bleu
    If FeuilleDepart.Cells(x, 1) >= 1 And FeuilleDepart.Cells(x, 6) <= 100 Then
    FeuilleDepart.Cells(x, 1).Font.ColorIndex = 41
    End If
                     
                     
    'si la colonne (A) est >=101 et <=200 alors alors la chiffre en jaune
    If FeuilleDepart.Cells(x, 1) >= 101 And FeuilleDepart.Cells(x, 1) <= 200 Then
    FeuilleDepart.Cells(x, 1).Font.ColorIndex = 6
    End If
                     
    'si la colonne(A) est >=201 et <=300 alors la chiffre en vert
    If FeuilleDepart.Cells(x, 1) >= 201 And FeuilleDepart.Cells(x, 1) <= 300 Then
    FeuilleDepart.Cells(x, 1).Font.ColorIndex = 4
    End If
    
    'si la colonne(A) est >300 alors pas de couleur
    If FeuilleDepart.Cells(x, 1) >= 300 Then
    FeuilleDepart.Cells(x, 1).Font.ColorIndex = 0
    End If
    
    Next

End Sub

Si tu as besoin d'aide sur le code demande et tien nous au couran

A+

 

[anuky]

Re bonjour à tous,

Le code ne passe pas bien sous cette forme, je le joindre en pièce jointe.

l'avantage par rapport à la mise en forme conditionnelle c'est que tu n'est pas limité à 3 conditions.

[file name=KarineV1.zip size=8152]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/KarineV1.zip[/file]