Salut,
Regarde en Pj une V2 adaptée.
En fait je me base sur ta MFC en vert via ce code. Afin de trouver la ligne qui a la MFC activée en vert.
'test de la date qui est en vert avec la MFC
For i = 2 To LastRow
If ws.Cells(i, 1).DisplayFormat.Interior.ColorIndex = 43 Then
dat = i 'variable date qui renvoie le n° de ligne de la MFC en vert .
End If
Next i
Suite à ta demande j'ai mis un test pour vérifier si la réunion est planifiée dans les 7 jours à partir de la date du jour en cours.
today = Int(CDbl(Now()))
date_reunion = Int(CDbl(ws.Cells(dat, 1).Value))
If date_reunion <= today + 7 Then
Plus la msgbox de confirmation.
If MsgBox("Etes-vous certain de vouloir envoyer le mail d'information ?", vbYesNo, "Demande de confirmation") = vbYes Then
La je pense que tout devrait fonctionner comme tu le souhaites.
Bonne journée.