Msg rappel de validité

[FaruSZ]

Bonjour le forum,
J'ai dans ma base de données une liste de formations avec la date d'obtention et date de validité, je veux faire apparaitre un message de rappel de fin de date de validité pour chaque formation, par exemple si une date de validité est fixée au 19/08/2020 je veux que le message de rappel s'affiche 2 mois avant.
Tout d'abord je veux savoir si c'est faisable sous VBA ? et comment le faire ?
Merci

 

[JHA]

Bonjour à tous,

Tu peux essayer par MFC ou par formule en utilisant mois.decaler(date;-6)>=aujourdhui()

As-tu un extrait de fichier à mettre sur ton post?

JHA

 

[sylvanu]

Bonjour FaruSZ,JHA,
On encore à l'ouverture du fichier par un msgbox qui fait la liste des rappels.

 

[FaruSZ]

Bonjour FaruSZ,JHA,
On encore à l'ouverture du fichier par un msgbox qui fait la liste des rappels.

Et comment le faire ?
Fichier a consulter :
Formation ligne 10, date ligne 11 et validité ligne 13
Merciii

 

[sylvanu]

Donc on utilise que la ligne 13 pour le nom de la formation et la ligne 14 pour la date de validité ?

 

[FaruSZ]

Ou

Regarde la pièce jointe 1070776
Donc on utilise que la ligne 13 pour le nom de la formation et la ligne 14 pour la date de validité ?

Oui c'est ca

 

[sylvanu]

Un premier essai, se lance dans ThisWorkBook

Sub AlertesDatesFormations()
Dim Sh As Worksheet, Chaine As String, Lig As Integer, Alerte
Lig = 14                ' car les dates de validité se trouvent en ligne 14
For Each Sh In ActiveWorkbook.Sheets
    If Sh.Range("A6") = "Formation Initiale" And Sh.Range("A10") = "Formation interne" Then 'Feuille concernée
        Col = 2         ' car la première date de validité en en colonne B
        While Sh.Cells(Lig - 4, Col) <> ""  ' on regarde toutes les formations
            If Sh.Cells(Lig, Col) <> "" And Sh.Cells(Lig, Col) < Date + 60 Then  ' si formation et date
                ' on enrichit la chaine avec nom-date-formation
                Chaine = Chaine & Sh.Name & vbTab & "    Date: " & Sh.Cells(Lig, Col) & "   " & Sh.Cells(Lig - 1, Col) & vbCrLf
            End If
            Col = Col + 1
        Wend
        If Chaine <> "" Then Chaine = Chaine & vbCrLf
    End If
Next Sh
If Chaine <> "" Then Alerte = MsgBox(Chaine, , "Alertes sur les dates de validité formations.")
End Sub

( la mise en forme du msgbox doit être perfectible )

 

[FaruSZ]

Un premier essai, se lance dans ThisWorkBook

Sub AlertesDatesFormations()
Dim Sh As Worksheet, Chaine As String, Lig As Integer, Alerte
Lig = 14                ' car les dates de validité se trouvent en ligne 14
For Each Sh In ActiveWorkbook.Sheets
    If Sh.Range("A6") = "Formation Initiale" And Sh.Range("A10") = "Formation interne" Then 'Feuille concernée
        Col = 2         ' car la première date de validité en en colonne B
        While Sh.Cells(Lig - 4, Col) <> ""  ' on regarde toutes les formations
            If Sh.Cells(Lig, Col) <> "" And Sh.Cells(Lig, Col) < Date + 60 Then  ' si formation et date
                ' on enrichit la chaine avec nom-date-formation
                Chaine = Chaine & Sh.Name & vbTab & "    Date: " & Sh.Cells(Lig, Col) & "   " & Sh.Cells(Lig - 1, Col) & vbCrLf
            End If
            Col = Col + 1
        Wend
        If Chaine <> "" Then Chaine = Chaine & vbCrLf
    End If
Next Sh
If Chaine <> "" Then Alerte = MsgBox(Chaine, , "Alertes sur les dates de validité formations.")
End Sub

( la mise en forme du msgbox doit être perfectible )

Merci infiniment ca marche comme je veux.

 

[JHA]

Bonjour à tous,

A essayer

JHA

 

[FaruSZ]

Bonjour à tous,

A essayer

JHA

Merciiii