Bonjour à tous,

Voici mon problème : J'ai une colonne qui contient des dates de visites auquelles je voudrais ajouter une mise en forme conditionnelle qui fait que dix jours avant la date, celle-ci se colore en rouge.
Voici la formule :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 "=$A$1-AUJOURDHUI() <10"
Le problème, c'est que lorsque l'on passe par la mise en forme conditionnelle (du menu format), celle-ci ne peut être appliquée qu'à une cellule et pas à la colonne entière.

J'ai donc penser à deux moyens pour contourner le problème:
-soit faire une macro que l'on peut exécuter sur toute la colonne,
-soit sélectioner la colonne directement dans le code

J'ai trouver un code qui permet sélectionner une suite de cellules et d'y appliquer une mise en forme conditionnelle mais je ne sais pas comment y intégrer ma formule.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Excel.Range) 
  If Not Intersect(Target, Range("E4:E23" )) Is Nothing Then 
    With Target 
      Select Case Target.Value 
        Case Is < 0.5 
          .Interior.ColorIndex = 3 
        Case 0.5 To 0.79 
          .Interior.ColorIndex = 44 
        Case 0.8 To 0.99 
          .Interior.ColorIndex = 6 
      End Select 
    End With 
  End If 
End Sub
Quelqu'un aurait-il la solution?

Merci d'avance.

Wizou44