Bonjour à tous,
j'ai besion SVP d'un coup de main...
j'ai une macro sous la main qui s'active quand la date est dépassée, elle était dans le thisworkbook,
Private Sub Workbook_Open()
Dim i As Long, Msg As String
Sheets("ACCUEIL").Activate
With Sheets("feuil1")
For i = 6 To .Cells(Rows.Count, 8).End(xlUp).Row
If .Cells(i, 8).Value <= Date - 5 And .Cells(i, 9) = "" Then Msg = Msg & .Cells(i, 8).Value & vbLf
Next i
End With
If Len(Msg) > 0 Then MsgBox "Attention, des demandes ne sont toujours pas traitées" & vbLf & Msg
End Sub
elle fonctionnait dans mon ancien fichier car il n'y avait qu'une page avec une seul plage de recherche.
Aujourd'hui je souhaiterai quand une date est inscrite, qu'a l'ouverture du fichier un message d'alerte s'active avec le nom du site concerné, le problème est qu'il y a 30 onglets, un par site.
je vous joins le modèle,
Merci à vous
j'ai besion SVP d'un coup de main...
j'ai une macro sous la main qui s'active quand la date est dépassée, elle était dans le thisworkbook,
Private Sub Workbook_Open()
Dim i As Long, Msg As String
Sheets("ACCUEIL").Activate
With Sheets("feuil1")
For i = 6 To .Cells(Rows.Count, 8).End(xlUp).Row
If .Cells(i, 8).Value <= Date - 5 And .Cells(i, 9) = "" Then Msg = Msg & .Cells(i, 8).Value & vbLf
Next i
End With
If Len(Msg) > 0 Then MsgBox "Attention, des demandes ne sont toujours pas traitées" & vbLf & Msg
End Sub
elle fonctionnait dans mon ancien fichier car il n'y avait qu'une page avec une seul plage de recherche.
Aujourd'hui je souhaiterai quand une date est inscrite, qu'a l'ouverture du fichier un message d'alerte s'active avec le nom du site concerné, le problème est qu'il y a 30 onglets, un par site.
je vous joins le modèle,
Merci à vous