Colorier texte ou cellule si

Bonjour,

J'ai fait un bout de macro me coloriant en Rouge les valeurs superieures= à 1000 dans mon tableau .

Seulement , j'aimerais egalement colorier les valeurs comprises entre 0 et 500 en vert et 501 à 999 en orange.

Je ne sais pas encore comment faire , à l'aide

Peut on faire la même chose mais à la place de colorier les valeurs, colorier les cellules en laissant la valeur dedans en noir ?

Merci d'avance

Bonjour,

Tu peux aussi faire çà sans macro,

avec MFC (mise en forme conditionnelle)

Claude

oui je sais bien mais j'aimerais en macro

re,

si personne ne te répond avant, je regarde dans la soirée

Claude

Bonsoir,

Un essai à tester (avec ton code de départ un peu modifié)

Sub couleurs()
Dim cellule As Range
For Each cellule In Selection.Cells
Select Case cellule.Value
Case Is <= 500: cellule.Font.Color = RGB(0, 255, 0)
Case Is < 1000: cellule.Font.Color = RGB(255, 140, 0)
Case Else
cellule.Font.Color = RGB(255, 0, 0)
End Select
Next
End Sub

Bonsoir à tous,

Peut on faire la même chose mais à la place de colorier les valeurs, colorier les cellules en laissant la valeur dedans en noir ?

Sub Color()
Dim Lg&, i&, c%
    Lg = Range("a" & Rows.Count).End(xlUp).Row
        Range("a1:a" & Lg).Interior.ColorIndex = xlNone
    For i = 1 To Lg
        If Not IsEmpty(Range("a" & i)) And IsNumeric(Range("a" & i)) Then
            Select Case Cells(i, "a")
                Case Is <= 500: c = 4           'vert brillant
                Case Is < 1000: c = 45          'orange clair
                Case Is >= 1000: c = 3          'rouge
                Case Else: c = xlNone
            End Select
            Cells(i, "a").Interior.ColorIndex = c
        End If
    Next i
End Sub

Amicalement

Claude

Bonsoir Cyril10, le forum,

Sur la base de ton code :

Pour l'écriture en couleur :

Sub FortesValeursEnRouge()
Dim cellule As Range
For Each cellule In Selection.Cells
If cellule.Value >= 0 And cellule.Value < 500 Then
cellule.Font.Color = 5287936
ElseIf cellule.Value > 500 And cellule.Value < 1000 Then
cellule.Font.Color = 49407
Else
cellule.Font.Color = 255
End If
Next cellule
End Sub

Pour le remplissage de la cellule en couleur :

Sub InterieurCouleur()
Dim cellule As Range
For Each cellule In Selection.Cells
If cellule.Value >= 0 And cellule.Value < 500 Then
cellule.Interior.Color = 5287936
ElseIf cellule.Value > 500 And cellule.Value < 1000 Then
cellule.Interior.Color = 49407
Else
cellule.Interior.Color = 255
End If
Next cellule
End Sub

Cordialement

Joseph

Bonjour,

Je vous remercie tous pour votre aide , je vais pouvoir avancer

Si tu repasse par là,

n'oublie pas la petite formalité