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

Le
Alfred WALLACE
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é
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #24227451
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é
Alfred WALLACE
Le #24231481
Merci MichD !
José

On 7 fév, 14:18, "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é
Publicité
Poster une réponse
Anonyme