Discussion :

[Carrosse]

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 !

[BENNASR]

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 :

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