XL 2016 Alerte excel

[marc94600]

Bonjour,
Dans mon tableau je souhaiterai qu'il y ait une alerte lorsque la date de fin d'habilitation d'une société (-1 an) arrive à expiration.
dans mon tableau feuille HPM_ARCHIVES colonne AZ.
Les données du tableau sont fictives.
Merci à vous
Bien cordialement
Marc

 

[job75]

Bonjour marc94600, le fil,

Je n'avais pas vu passer :

L'alerte devra intervenir à H-365 jours.

Il faut donc décaler les alertes d'un an, dans ThisWorkbook :

Private Sub Workbook_Open()
Dim c As Range
With Sheets("HPM_ARCHIVES")
    For Each c In .Range("AY2", .Range("AY" & .Rows.Count).End(xlUp))
        If IsDate(c) Then Application.OnTime DateSerial(Year(c) - 1, Month(c), Day(c)), "Alerte"
    Next
End With
End Sub

et dans Module1 :

Sub Alerte()
Dim c As Range
With Sheets("HPM_ARCHIVES")
    For Each c In .Range("AY2", .Range("AY" & .Rows.Count).End(xlUp))
        If IsDate(c) Then
            If DateSerial(Year(c) - 1, Month(c), Day(c)) <= Date And .Cells(c.Row, "BF") = "" Then
                MsgBox "Echéance " & .Cells(c.Row, "B") & " " & c
                .Cells(c.Row, "BF") = "X"
            End If
        End If
    Next
End With
End Sub

A+

 

[marc94600]

Bonjour JOB 75
Super soluce. Tout est parfait, tu es génial....
bien à toi
Marc

 

[job75]

Bonjour marc94600,

Pour décaler la date c d'un an on peut aussi utiliser DateAdd("yyyy", -1, c)

A+

 

[marc94600]

Bonjour dans le temps, cela continuera également à prendre en charge les alertes?

 

[job75]

Bonjour dans le temps, cela continuera également à prendre en charge les alertes?

Les alertes se déclencheront sur les dates qui existaient à l'ouverture du fichier.

Si l'on ajoute des dates en colonne AY il faut fermer et rouvrir le fichier.

 

[marc94600]

non je voulais juste savoir si une date aujourd'hui est égale a 365+1 donc pas d'alerte mais demain cette date sera de 365 donc je devrai avoir une alerte normalement?
merci à toi

 

[marc94600]

Dans thisworkbook, si nous avons déjà une macro peut on en rajouter une autre ?
merci encore

 

[job75]

Vos 2 questions sont faciles à tester non ?