des couleurs et des cases

polik

XLDnaute Junior
Bon journée a tous j'espere que vous allez bien !

J'ai un problème dans ma macro:
J'aimerais que ces 5 conditions s'applique a l'ensemble des cellules (c3:f38) pour l'instant les conditions s'applique qu'à la case sélectionnée du moment


Private Sub macro1()



With Range("c3:f38")

Select Case Selection.Value
Case Is <= 1
Selection.Interior.ColorIndex = 4 ' vert foncé
Case Is <= 2
Selection.Interior.ColorIndex = 10 ' vert foncé
Case Is <= 3
Selection.Interior.ColorIndex = 6 ' jaune
Case Is <= 4
Selection.Interior.ColorIndex = 46 ' orange
Case Is <= 5
Selection.Interior.ColorIndex = 3 ' rouge
Case Else
Selection.Interior.ColorIndex = xlNone ' blanc
End Select

Selection.Offset(1, 0).Select

End With

End Sub


----Merci de votre aide !
 

Pierrot93

XLDnaute Barbatruc
Re : des couleurs et des cases

Bonjour Polik

essaye peut être comme ci dessous, si j'ai bien compris :

Code:
Private Sub macro1()
Dim c As Range
For Each c In Range("c3:f38")
    Select Case c.Value
    Case Is <= 1
        c.Interior.ColorIndex = 4 ' vert foncé
    Case Is <= 2
        c.Interior.ColorIndex = 10 ' vert foncé
    Case Is <= 3
        c.Interior.ColorIndex = 6 ' jaune
    Case Is <= 4
        c.Interior.ColorIndex = 46 ' orange
    Case Is <= 5
        c.Interior.ColorIndex = 3 ' rouge
    Case Else
        c.Interior.ColorIndex = xlNone ' blanc
    End Select
Next c
End Sub

bonne fin d'après midi
@+
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 721
Membres
110 551
dernier inscrit
Khyolyanna