couleur celluleRésolu

Question

Bonjour, j'ai une cellule excel que je veux donner une coleur a son contenu, je veux le faire sur la barre de formule excel mais je ne sais pas comment le faire.

sur VBA je l'ai fais comme suit :

    Dim Res As Integer
    If Range("K" & Res) < 0 Then
        Range("G" & Res).Select
        Selection.Font.ColorIndex = 3

et ça marche, le probleme c'est que j'ai plusieurs cellule où je veux attribuer les couleurs et je ne peux le faire en boucle parce que c'est un peu désordonné, par exemple je veux colorer la cellule F6, F9, F12, F15, F18, J6 ... J18, N6, ..., N18, R6, ..., R18, V6, ... V18.

si quelqu'un peut m'aider je serai très reconnaissant

merci

benlac_o · Accepted Answer

Re salut, j'ai trouvé la solution je la poste si par hasard quelqu'un a rencontré le même problème.

For Res = 6 To 18
        If Range("J" & Res) = "LL" Then
            Range("J" & Res).Select
            Selection.Font.ColorIndex = 3
        Else
        If Range("J" & Res) = "LL" Then
            Range("J" & Res).Select
            Selection.Font.ColorIndex = 3
        Else
        If Range("J" & Res) = "K" Then
            Range("J" & Res).Select
            Selection.Font.ColorIndex = 46
        Else
        If Range("J" & Res) = "JJ" Then
            Range("J" & Res).Select
            Selection.Font.ColorIndex = 5
        Else
        If Range("J" & Res) = "J" Then
            Range("J" & Res).Select
            Selection.Font.ColorIndex = 5
        End If
        End If
        End If
        End If
        End If
    Next Res
c'est un peu littéraire comme code mais c'est pas mal pour un debutant ... en plus j'y suis arrivé tout seul  ... je copie ce code pour chaque colonne ce qui m'a fait 5 fois la même chose

cs_JMO · Answer

Bonjour à tous,

Bonjour [auteurdetail.aspx?ID=920811 benlac_o],
Une autre façon:

For i=6 To 22 Step 4
    For j=6 To 18 Step 3
        objExcel.Cells(j, i).Select
        objExcel.Selection.Interior.ColorIndex = 3
    Next
Next

jean-marc

cs_MPi · Answer

Si j'ai bien compris... et comme tu n'as que 3 couleurs à gérer, tu pourrais utiliser la "Mise en forme conditionnelle"
Il s'agit d'inscrire la bonne formule avec un OU dans un des cas. À noter que les 2 premières conditions sont identiques...

MPi

Couleur cellule

3 réponses

Votre réponse

Discussions similaires