Bonsoir,
je souhaite réaliser une macro (à activer par un bouton) pour créer un message alerte à 10 jours d'une échéance.
J'ai le code suivant:
Sub ChercheLiv()
Dim Cel As Range
For Each Cel In Range("v6:" & Range("v6").End(xlDown).Adress)
If Cel.Value - 10 <= Date Then
MsgBox "Fournisseur" & Cel.Offset(0, -10) & "attention, le founisseur" & Cel.Offset(0, -10) & " doit livrer dans" & Cel.Value - Date & "JOURS SOIT LE" & Cel.Value & " ETC ..."
End If
Next Cel
End Sub
Mais cela ne fonctionne pas. Un message apparait lors de l'appui sur le bouton: "Propriété ou méthode non gérée par cet objet".
Toute aide sera la bienvenue.
Merci
Paul