msgbox a l'ouverture du classeur

[monel78]

Bonjour le forum,

je reviens vers vous une fois de plus pour vous demnander comment faire apparaitre une msgbox a l'ouverture du classeur pour me prevenir d'un evenement par rapport a une date.
tout est explique sur le fichier joint....

merci de votre aide !!

 

[JBARBE]

Re : msgbox a l'ouverture du classeur

Bonsoir,

La Macro ci-jointe gère la Feuil1 ( Faire de même pour une autre feuille)

S'il y a + de véhicules remplacer la ligne 13 par la nouvelle ligne !

Sub Auto_Open()
Dim i As Integer
Dim j As Integer
Application.ScreenUpdating = False
Sheets("sommaire 1").Select
Sheets("Feuil1").Select
 For i = 5 To 13
  If Cells(i, 2) = Date + 10 Then
   MsgBox ("Dans 10 jours, Véhicule " & Cells(i, 1))
  Else
  Cells(i + 1, 2).Select
  End If
 Next i
 For j = 5 To 13
  If Cells(j, 3) = Date + 10 Then
   MsgBox ("Dans 10 jours, Véhicule " & Cells(j, 1))
  Else
  Cells(j + 1, 3).Select
  End If
 Next j
 Sheets("sommaire 1").Select
 Application.ScreenUpdating = True
End Sub

 

[monel78]

Re : msgbox a l'ouverture du classeur

ca marche super
merci beaucoup