Message + mail quand date à échéance

Bonjour à tous,

Après de multiples essais et que des échecs je m'en remet à vous.

Pour le travail je souhaiterais qu'une macro calcule :

- une date d'échéance à +3 mois en colonne T en fonction de la date inscrite en colonne S
- que lorsque la date arrive à échéance à -10 jours, la cellule se mette en rouge
- et surtout qu'un mail soit envoyé quand la date arrive à échéance (messagerie Outlook)

Je travaille avec Excel 2007.

Et juste une question comme ça, si on insère une colonne et que cela déplace une colonne concernée par une macro, est-ce que la macro suit le changement?

J'espère que vous pourrez m'aider, dans tous les cas je vous remercie d'avance !

Bonjour
Merci de te conformer aux règles du forum dont notamment d'éviter les pièces jointes
Essayer de présenter (entre balise) ton projet de code ; dire ou se bloque et certes tu aura de l'aide
L'exemple de code ci après inséré peut être considéré comme début de piste
Supposons que t'as un (feuil1) et en colonne A des échéances et en colonne B les désignations des taches à effectuer ; Ce code te permet de'avoir une alerte 7 jours avant l'échéance et si la date d'échéance est dépassée ce code te demande si tu veux supprimer la tache
Bonne Continuation

Code:

---

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 26 27

Sub test() Dim w1 As Worksheet Dim i As Long Dim Z As Long Dim D As Date Set w1 = Sheets("feuil1") 'Feuille qui contient les alertes D = Date   For i = 2 To w1.Range("A" & Rows.Count).End(xlUp).Row ' faire toute la colonne A p = D - w1.Range("A" & i) If p > -7 And p <= 0 Then   MsgBox w1.Range("A" & i) & ":" & " " & w1.Range("B" & i) End If Next 'supprimer taches expirées Application.ScreenUpdating = False For Z = w1.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 If IsDate(w1.Cells(Z, 1)) Then If CDate(w1.Cells(Z, 1)) < D Then If MsgBox("Etes-vous sûr de vouloir effacer la tache : " & w1.Range("A" & Z) & " : " & w1.Range("B" & Z), vbExclamation + vbYesNo) = vbYes Then w1.Cells(Z, 1).EntireRow.Delete End If End If End If Next Z End Sub

---