Bonjour à tous,
Ce que je veux faire en théorie est "simple". Je souhaite sur deux colonnes indiqué par un commentaire la date de modification (ça j'arrive à faire) ET ENSUITE comparer ce commentaire de date de modification à la date actuelle
--> en cas de DateModif < DateActuelle - 7 : cellule en rouge --> sinon pas de remplissage
Du coup je veux utiliser la variable "commentaire" que j'ai créée et la comparer à une variable "MyDate" = DateActuelle - 7 jours

Je vous présente ce que j'ai fais. Je m'excuse, mon niveau est très faible en VBA et mon code s'en ressent d'autant. c'est très brouillon.
La partie "Commentaire" fonctionne, mais pas du tout la règle de mise en forme.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim ObjRange As Range
Dim MyDate As Date
 
If Intersect(Target, Range("A2:B7")) Is Nothing Or Target.Count > 1 Then: Exit Sub
Set rng = Cells(Target.Row, Target.Column)
 
DateT = Format(Date, "dd/mm/yy")
CellDate = CDate(DateT)
MyDate = Date - 7
 
Set ObjRange = Range("A2:B7")
With ObjRange
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:="CellDate = MyDate"
    .FormatConditions(1).Interior.ColorIndex = 46
End With
 
rng.ClearComments
Comment = CStr(CellDate)
rng.AddComment (Comment)
 
 
End Sub
Merci d'avance pour votre aide
Je suis à votre disposition pour éclaircir mes imprécisions

A bientôt