Forme conditionnel
Bonjour
Je cherche à faire une comparaison suite au regroupement de deux feuilles dans une feuille "synthèse"
5 situation se présente :
Dossier 1 : Présence d'une date dans "Nouvelle date"alors qu'il y avais rien dans "ancienne date" = Le résultat devra être en gras sur fond vert
Dossier 2 : Rien dans les deux cases = le résultat doit rester vide
Dossier 3 : La date n'a pas changer = Le résultat devra rester identique
Dossier 4 : la nouvelle date est r'avancer = Le résultat devra être en gras sur fond vert
Dossier 5 : la nouvelle date est inférieur à la date du jour : le résultat dans nouvelle date devra être en gras sur fond rouge.
Bien sur ces formes conditionnel devront être appliquer a l'ensemble du tableau via l'activation d'une macro.
merci d'avance de votre aide sur le sujet. dans lequel j'ai aucune idée de comment faire.
Bonjour
Merci de cette réponse qui répond à mon besoin.
J'ai essayer d'inclure les conditions à partir du fichier fournit.
Alors ca fonctionne très bien avec le fichier fournit hors lorsque je l'inclus à la maccro ca me colorie la cellule supérieur à la date mise.
' Macro10 Macro
'
'
Columns("G:G").Select
Cells.FormatConditions.Delete
Columns("G:G").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(ET($F2>0;$G2>0;$G2>$F2);ET($F2="""";$G2>0))"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = 0
.Color = 5287936
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
Columns("G:G").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET($F2>0;$G2>0;$G2<$F2)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = 0
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
End Sub
je ne l'explique pas je ne vois pas ce qui provoque cette écart
Bonjour
Columns("G:G").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(ET($F2>0;$G2>0;$G2>$F2);ET($F2="""";$G2>0))"
Normal, puisque tu mets en ligne 1 une formule faisant référence à la ligne 2
Soit tu modifies la formule, soit, plus logique tu démarres ta macro aec un Range("G2...
Cordialement
oula je suis crever moi
En effet c'est corriger et ca marche nickel
j'ai mal fais ma sélection quand j'ai jouer avec l'enregistreur, donc le résultat ne pouvais pas être bon.
Merci encore de ton aide
humm il y a une des conditions de mon énoncer initial qui ne se fait pas
Dossier 5 : la nouvelle date est inférieur à la date du jour : le résultat dans nouvelle date devra être en gras sur fond rouge.
Bonjour
Le sujet avait été marqué résolu cependant un point n'avait pas été traiter
je me suis donc permis de décocher la case
rappel : Dossier 5 : la nouvelle date est inférieur à la date du jour : le résultat dans nouvelle date devra être en gras sur fond rouge.
En parlant de date du jour j'entend la date systeme du PC
j'ai essayer avec <aujourd'hui () mais soit ca ne fait rien soit ca colore tout la colonne.
Bonjour
avec le point 5, il a fallu inverser les Conditions de la MFC.
Regarde si cela convient
Cordialement
Re bonjour
Merci beaucoup ça colle parfaitement à ce que je voulais. ^^
je repasse le post en résolu