XL 2016 Alerte excel

marc94600 · 3 Avril 2024

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 · 24 Avril 2024

Bonjour marc94600, le fil,

Je n'avais pas vu passer :

marc94600 à dit:
L'alerte devra intervenir à H-365 jours.

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

VB:

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 :

VB:

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

job75 · 24 Avril 2024

Bonjour marc94600, le fil,

Je n'avais pas vu passer :

marc94600 à dit:
L'alerte devra intervenir à H-365 jours.

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

VB:

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 :

VB:

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 · 25 Avril 2024

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

job75 · 25 Avril 2024

Bonjour marc94600,

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

A+

marc94600 · 25 Avril 2024

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

job75 · 25 Avril 2024

marc94600 à dit:
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 · 25 Avril 2024

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 · 25 Avril 2024

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

job75 · 25 Avril 2024

Vos 2 questions sont faciles à tester non ?

marc94600 · 3 Mai 2024

job75 à dit:
Vos 2 questions sont faciles à tester non ?

OUi c'est vrai mais comme je suis vraiment débutant dans les macros je me demandais s'il y avait des choses à faire entre les macros...
merci quand même

XL 2016 Alerte excel

marc94600

XLDnaute Occasionnel

Pièces jointes

job75

job75

XLDnaute Barbatruc

Pièces jointes

marc94600

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

marc94600

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

marc94600

XLDnaute Occasionnel

marc94600

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

marc94600

XLDnaute Occasionnel

Discussions similaires