Problème Macro Mise en page conditionnelle

Bonjour à tous,

Je suis confronté au problème suivant:

J'ai une procédure répétitive de mise en page à faire sur un type de tableau. J'ai donc décidé "d'automatiser" le tout avec une macro, tout naturellement.

Ma mise en page fonctionne pour tout sauf pour de la mise en page conditionnelle sur deux colonnes.

Colonne A: Date souhaitée => Avec en dessous toutes mes dates au format xx/xx/xx

Colonne B: Date confirmée => Avec en dessous toutes mes dates au format xx/xx/xx

Première condition: Si dates sélectionnées dans les deux colonnes sont INF ou = telle date, la colorier en vert.

Deuxième condition: Si dates sélectionnées dans les deux colonnes sont comprises entre une date X et Y, la colorier en orange.

Jusqu'ici, ma macro ne prend en charge que la première, c'est à dire que je n'ai que les dates en vert qui apparaissent et la macro ignore la deuxième condition...

Je vous la joint.

Merci d'avance !

Sub MiseEnFormeDates()

'

' MiseEnFormeDates Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+D
'
    Range("N5:O5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=$E$2"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
    End With
    Range("N5:O5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="=$E$2", Formula2:="=$E$3"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub 

Bonjour,

avec une copie du fichier c'est mieux

P.

Mille excuses

Bonjour,

essaies ceci

Attention le tableau commence (a été descendu) en ligne 5 pour un tri éventuel

' MiseEnFormeDates Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+D
Sub Coul()
Range("M5:N5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$M6<=$D$2" ' en ligne 6 
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
   .PatternColorIndex = xlAutomatic
   .Color = 5296274
   .TintAndShade = 0
End With
Range("M5:N5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=ET($M6>$D$2; $M6<=$D$3)" ' ligne 6
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
   .PatternColorIndex = xlAutomatic
   .Color = 49407
   .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub

Merci beaucoup !