existe-t-il une formule pour colorer le fond d'une cellule

2 réponses
Avatar
Alfred WALLACE
Booonjour , j'esp=E8re que votre froid ressenti est pas trop
douloureux....

Ici (dr=F4me proven=E7ale) il fait -5, mais avec un
vent de 70Km/h on dirait qu'il fait -40 ...

bref, je m'=E9gare !

dans une ligne (ex 20) j'ai
en C20 une valeur d'objectir.

Entre D20 et O20 j'ai d'autres valeurs (en fait
pour les 12 mois de l'ann=E9e).

J'aimerai, que en P20 avoir une formule qui puise me calculer
quelque chose qui me permette de coloriser P20

par exemple
Si la somme de [D:O] est inf=E9rieure =E0 C20 alors couleur VERT.
Si la somme est 1/3 sup=E9rieure couleur jaune
Si la somme est 2/3 sup=E9rieure couleur rouge
Si la somme est 3/3 sup=E9rieure couleur noire

est-ce r=E9alisable ? ou dois-je utiliser le format conditionnel ?
par contre, je n'aimerai PAS avoir dans la cellule P20, le r=E9sultat
du calcul necessaire pour appliquer un format conditionnel.


j'avais =E9cris =E7=E0 comme formule :

=3D
SI(SOMME($D$20:$O$20)>=3D$C$20+($C$20*3/3);4;
SI(SOMME($D$20:$O$20)>=3D$C$20+($C$20*2/3);3;
SI(SOMME($D$20:$O$20)>=3D$C$20+($C$20*1/3);2;
SI(SOMME($D$20:$O$20)<=3D$C$20+($C$20*0/3);1;0))))


but , =E7=E0 ne semble pas marcher

Merci pour votre aide

Jos=E9

2 réponses

Avatar
MichD
Bonjour,


Insère dans la feuille module de la feuille où l'action se déroule ce bout de code :

'------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("c20:o20"))
If Not Rg Is Nothing Then
S = Application.Sum(Range("D20:O20"))
If S > Range("C20") Then
Range("P20").Interior.Color = vbBlack
ElseIf S > Range("C20") * 2 / 3 Then
Range("P20").Interior.Color = vbRed
ElseIf S > Range("C20") / 3 Then
Range("P20").Interior.Color = vbYellow
End If
End If
End Sub
'------------------------------------


MichD
------------------------------------------
"Alfred WALLACE" a écrit dans le message de groupe de discussion :


Booonjour , j'espère que votre froid ressenti est pas trop
douloureux....

Ici (drôme provençale) il fait -5, mais avec un
vent de 70Km/h on dirait qu'il fait -40 ...

bref, je m'égare !

dans une ligne (ex 20) j'ai
en C20 une valeur d'objectir.

Entre D20 et O20 j'ai d'autres valeurs (en fait
pour les 12 mois de l'année).

J'aimerai, que en P20 avoir une formule qui puise me calculer
quelque chose qui me permette de coloriser P20

par exemple
Si la somme de [D:O] est inférieure à C20 alors couleur VERT.
Si la somme est 1/3 supérieure couleur jaune
Si la somme est 2/3 supérieure couleur rouge
Si la somme est 3/3 supérieure couleur noire

est-ce réalisable ? ou dois-je utiliser le format conditionnel ?
par contre, je n'aimerai PAS avoir dans la cellule P20, le résultat
du calcul necessaire pour appliquer un format conditionnel.


j'avais écris çà comme formule :

SI(SOMME($D$20:$O$20)>=$C$20+($C$20*3/3);4;
SI(SOMME($D$20:$O$20)>=$C$20+($C$20*2/3);3;
SI(SOMME($D$20:$O$20)>=$C$20+($C$20*1/3);2;
SI(SOMME($D$20:$O$20)<=$C$20+($C$20*0/3);1;0))))


but , çà ne semble pas marcher

Merci pour votre aide

José
Avatar
Alfred WALLACE
Merci MichD !
José

On 7 fév, 14:18, "MichD" wrote:
Bonjour,

Insère dans la feuille module de la feuille où l'action se déroule ce bout de code :

'------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("c20:o20"))
If Not Rg Is Nothing Then
    S = Application.Sum(Range("D20:O20"))
    If S > Range("C20") Then
        Range("P20").Interior.Color = vbBlack
    ElseIf S > Range("C20") * 2 / 3 Then
        Range("P20").Interior.Color = vbRed
    ElseIf S > Range("C20") / 3 Then
        Range("P20").Interior.Color = vbYellow
    End If
End If
End Sub
'------------------------------------

MichD
------------------------------------------
"Alfred WALLACE"  a écrit dans le message de groupe de discussion :


Booonjour , j'espère que votre froid ressenti est pas trop
douloureux....

Ici (drôme provençale) il fait -5, mais avec un
vent de 70Km/h on dirait qu'il fait -40 ...

bref, je m'égare !

dans une ligne (ex 20) j'ai
en C20 une valeur d'objectir.

Entre D20 et O20 j'ai d'autres valeurs (en fait
pour les 12 mois de l'année).

J'aimerai, que en P20 avoir une formule qui puise me calculer
quelque chose qui me permette de coloriser P20

par exemple
Si la somme de [D:O] est inférieure à C20 alors couleur VERT.
Si la somme est 1/3 supérieure couleur jaune
Si la somme est 2/3 supérieure couleur rouge
Si la somme est 3/3 supérieure couleur noire

est-ce réalisable ? ou dois-je utiliser le format conditionnel ?
par contre, je n'aimerai PAS avoir dans la cellule  P20, le résultat
du calcul necessaire pour appliquer un format conditionnel.

j'avais écris çà comme formule :

=
SI(SOMME($D$20:$O$20)>=$C$20+($C$20*3/3);4;
SI(SOMME($D$20:$O$20)>=$C$20+($C$20*2/3);3;
SI(SOMME($D$20:$O$20)>=$C$20+($C$20*1/3);2;
SI(SOMME($D$20:$O$20)<=$C$20+($C$20*0/3);1;0))))

but , çà ne semble pas marcher

Merci pour votre aide

José