existe-t-il une formule pour colorer le fond d'une cellule
2 réponses
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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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.
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 :
da7e4bf8-623e-466b-b511-23ffaa215841@db5g2000vbb.googlegroups.com...
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.
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.
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.
On 7 fév, 14:18, "MichD" <michde...@hotmail.com> 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 :
da7e4bf8-623e-466b-b511-23ffaa215...@db5g2000vbb.googlegroups.com...
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.
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.
