colorier texte ou cellule si ....

[cyr.il10]

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

[dubois]

Bonjour,

Tu peux aussi faire çà sans macro,
avec MFC (mise en forme conditionnelle)

Claude

[cyr.il10]

oui je sais bien mais j'aimerais en macro

[dubois]

re,

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

Claude

[ketamacanna]

Bonsoir,

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

Code: Tout sélectionner

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
 

[dubois]

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 ?

Code: Tout sélectionner

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

[Joseph67]

Bonsoir Cyril10, le forum,

Sur la base de ton code :

Pour l'écriture en couleur :

Code: Tout sélectionner

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 :

Code: Tout sélectionner

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

[cyr.il10]

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

[dubois]

Si tu repasse par là,
n'oublie pas la petite formalité

A_Résolu3.JPG (14.61 Kio) Vu 49 fois