message box de rappel

[BOCARAMEL]

Bonjour le forum

Peux t'on faire en code vba a chaque ouverture du classeur
des msgbox de rappel (autant que neccessaire)

pour le rappel des vidanges
(500 kms en dessous 500 kms en dessus)

exp : msgbox1 = P207 est a 20kms de la vidange
msgbox2 = Partner 1 la vidange est dépassée de 112kms

ainssi de suite
j'ai une liste d'environ 150 véhicules

Merci de votre aide et de vos réponses
cdlt
bocaramel

 

[Dull]

Re : message box de rappel

Salut Bocaramel, le Forum

Dans le Module ThisWorkbook

Private Sub Workbook_Open()
Dim C As Range
    For Each C In Sheets("Feuil1").Range("ProVid")
    If C - C.Offset(0, -1) >= 500 Then
        If C >= C.Offset(0, -1) Then MsgBox C.Offset(0, -2).Value & ": la vidange est dépassée de " & _
        Val(C) - Val(C.Offset(0, -1)) & " Kms"
    End If
    If C - C.Offset(0, -1) <= 500 And C - C.Offset(0, -1) > 500 Then
        If C >= C.Offset(0, -1) Then MsgBox C.Offset(0, -2).Value & ": la vidange est prévue dans " & _
        Abs(Val(C.Offset(0, -1) - Val(C))) & " Kms"
    End If
    Next C

End Sub

150 Véhicules... Bigre faudradelapatience

EDITION: J'avais Squizé l'Histoire des 500 Kms ...Fichier et Code Modifiés

Bonne Journée

 

[BOCARAMEL]

Re : message box de rappel

merci DULL

c'est tout a fait ça

mais comment bloqué a 500 kms
pour éviter de d'afficher les 150 vhcls

encore merci
borcaramel

 

[Dull]

Re : message box de rappel

Re Bocaramel

J'ai éditer mon message 2 minutes avant ton Post
Re-Ouvre le fichier du Post #2
EDITION: replace le Précedent code par celui ci

Private Sub Workbook_Open()
Dim C As Range
    For Each C In Sheets("Feuil1").Range("ProVid")
    If C - C.Offset(0, -1) >= 500 Then
        If C >= C.Offset(0, -1) Then MsgBox C.Offset(0, -2).Value & ": la vidange est dépassée de " & _
        Val(C) - Val(C.Offset(0, -1)) & " Kms"
    End If
    If C - C.Offset(0, -1) <= 500 And C - C.Offset(0, -1) > 500 Then
        If C >= C.Offset(0, -1) Then MsgBox C.Offset(0, -2).Value & ": la vidange est prévue dans " & _
        Abs(Val(C.Offset(0, -1) - Val(C))) & " Kms"
    End If
    Next C

End Sub

Je Remplace le précédent fichier
Bonne Journée

 

[BOCARAMEL]

Re : message box de rappel

Je viens de voir mon erreur

vraiment Merci DULL

c'est tout a fait ça

cdlt bocaramel