Modifier couleur des cellules sur plusieurs lignes, valeur comprise entre ..

[Virginie17d]

Bonjour à tous,

Je suis sur le traitement d'un fichier sur lequel avec quelques heures de travail je suis parvenu à effectuer toute ma mise en page et calcul, cependant seul la mise en couleur selon condition je n'y arrive pas. J'ai même testé avec la mise en forme conditionnelle afin d'enregistrer ensuite en Macro mais le résultat n'est pas concluant.

Le besoin est simple

Valeur Inférieur ou égale à 24 - Rouge
Valeur inférieur ou égale à 49 - Orange
Valeur supérieur ou égale à 50 - Vert
Règle à appliquer aux cellules : B12:G12 _ B17:G17 _ B22:G22 _ B27:G27

Je vous met en PJ le fichier

Merci par avance de votre aide.

 

[Compte Supprimé 979]

Bonjour Virginie17d

Si j'ai bien compris, avec une MFC à 3 critères

A+

 

[Virginie17d]

Bonjour Virginie17d

Si j'ai bien compris, avec une MFC à 3 critères

A+

Bonjour BrunoM45,

Merci de ton retour qui solutionne effectivement du coté MFC mais je souhaitais le faire via une Macro car c'est la fin d'un Macro très longue et c'est la seule choses que je n'ai pas su faire.
les MFC ne semble pas s'enregistrer dans la Macro

 

[Compte Supprimé 979]

Re,

Pour qu'une MFC s'enregistre dans les macros, il faut faire "semblant" de modifier la formule et la couleur, puis valider OK

Normalement

 

[Virginie17d]

Ok je vais tester, désolée de ne pas avoir répondu plus tôt j’étais dans un TGV

 

[Compte Supprimé 979]

Re,

Aucun souci, je ne demande pas de réponse immédiate

Mais dites nous

 

[Virginie17d]

Bonjour BrunoM45,

Merci une nouvelle de ton aide, pour information enregistrer une Macro en modifiant la MFC, ne fonctionne pas j'ai du les supprimer et les créer de nouveau pour l'enregistrement, afin d'avoir une réponse claire pour les utilisateur cherchant la formule voici la macro

Sub Color()

Sheets("STATS").Select

Range("B12:G12,B17:G17,B22:G22,B27:G27").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=B12<=0,49"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16727809
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("B12:G12,B17:G17,B22:G22,B27:G27").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=B12>=0,5"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -11489280
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False

Range("B12:G12,B17:G17,B22:G22,B27:G27").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=B12<=0,24"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False


End Sub

Bonne journée