Couleur If, Case?

Bonsoir,

J'aimerai mettre des cellules VBA en couleurs suivant certaines conditions(par rapport au tableau ci-dessous): si le total Investi >7 couleur jaune, si le total investi est compris entre 7 et 12 couleur bleu ect.. des idées? étante débutante je ne m'en sors pas...

nomClient prénomClient Total investi

Bens Alexandre 11995

Gilbert Philippe 2900

Gomez Adam 9575

Mae Halsey 10000

Milan Ralf 2200

Mohammed Aicha 23490

Perrin François 6735

Merciii

Salut titietdidi,

A vue de nez, ton tableau sera tout jaune!

A+

Voila le screenshot, merci pour ta rapidité!

>7000= JAUNE

<12000=ROUGE

ENTRE 7 ET 12 BLEU

Bonsoir,

>7000= JAUNE

<12000=ROUGE

ENTRE 7 ET 12 BLEU

Pas plutôt <7000 et >12000 ?

Il faut jeter un œil du côté des mises en forme conditionnelles. Ça ne concerne pas VBA (Enfin, on peut faire sans).

Joins un fichier plutôt qu'une copie écran, ça évite de tout refaire.

@Curulis57 : Tout à fait

Salut Titietdidi,

tu devrais lorgner du côté des MFC, non?

Mais bon, VBA, j'adore, alors...

Private Sub Worksheet_Change(ByVal Target As Range)
'
iRow = Range("C" & Rows.Count).End(xlUp).Row
'
If Not Application.Intersect(Target, Range("C2:C" & iRow)) Is Nothing Then
    Select Case Target.Value
        Case Is < 7000
            Target.Interior.Color = RGB(255, 255, 0)
        Case 7000 To 12000
            Target.Interior.Color = RGB(0, 0, 255)
        Case Is > 12000
            Target.Interior.Color = RGB(255, 0, 0)
    End Select
End If
'
End Sub

A+

Bonsoir oyobrans, nos post se sont croisés semble-t-il...

A+

Merci beaucoup