Date dépassé affiche msgbox d'alerte

Bonjour,

J'ai réussi avec les MFC de colorer ma cellule si une date est dépassée dans ma colonne mais je voudrais une alerte qui remonte vers mon tableau de bord soit une cellule avec un texte "alerte péremption" soit un mgs box qui me dirait date péremption dépassée.

Je n'arrive pas a adapter les codes trouvés.

Merci de votre aide les dates à contrôler se trouve en colonne E à partir de la ligne 7.

Bonjour Reglaet, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)

Set O = Worksheets("Feuil1") 'définit l'onglet O 9à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, "E").End(xlUp).Row 'définit la dernière ligne éditée Dl de la colonne E de l'onglet O
For I = 7 To DL 'boucle sur les lignes I à DL
    'si la date en colonne E de la ligne I est supérieure à la date du jour, message
    If CDate(O.Cells(I, "E").Value) > Date Then MsgBox "Date périmée ligne : " & I & " !"
Next I 'prochaine ligne de la boucle
End Sub

Merci thauthème,

ça fonctionne mais peut on avoir toute les dates dépassées dans le même msgbox?

Re,

Alors comme ça :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Dim M As String 'déclare la variable M (Message)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, "E").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne E de l'onglet O
For I = 7 To DL 'boucle sur les lignes I à DL
   'si la date en colonne E de la ligne I est supérieure à la date du jour, message
   If CDate(O.Cells(I, "E").Value) > Date Then M = M & "Ligne : " & I & Chr(13)
Next I 'prochaine ligne de la boucle
MsgBox "Date(s) périmée(s) :" & Chr(13) & Chr(13) & M 'message
End Sub

C'est exactement ce que je voulais ca fonctionne parfaitement je l'avait presque me manqué juste un CH13 grrr!!!

merci et bonne soirée.

Rechercher des sujets similaires à "date depasse affiche msgbox alerte"