Alerte date échéance VBA

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

Bonsoir Polodu,

voici un début. N'ayant pas de fichier à tester, je me suis arrêté là!

iRow = Range("V" & Rows.Count).End(xlUp).Row
For Each Cel In Range("V6:V" & iRow)
    If Cel.Value = DateAdd("d", 10, Date) Then
    ....
    ....

A+

Bonjour

Merci pour ce début de réponse. J'ai toutefois toujours le même message pop up qui apparait.

Je vous mets en PJ un fichier exemple.

Cdlt

Paul

Bonjour,

pour exemple :

Sub ChercheLiv()
Dim Cel As Range
Dim lRow As Long

    lRow = Range("G" & Rows.Count).End(xlUp).Row
    For Each Cel In Range("g5:G" & lRow)
        If Cel.Value = DateAdd("d", 10, Date) Then
            MsgBox "Attention, le founisseur " & Cel.Offset(0, -4) & _
            " doit livrer dans" & Cel.Value - Date & " JOURS SOIT LE" & Cel.Value & " ETC ..."
        End If
    Next Cel

End Sub

Bonjour,

Je ne comprends pas, tout me semble clair mais lorsque je clique sur mon bouton macro, rien ne se passe (même si j'ai une date qui est inférieure à la date d'échéance).

C'est assez bête comme histoire mais je ne comprends pas pourquoi cela ne fonctionne pas (alors que pour moi le code est ok).

Cdt

Re,

Dans ton fichier la colonne V ne contient aucune donnée. j'ai donc utilisé la colonne G.

Cdlt.

Je suis d'accord,

J'ai adapté selon mes colonnes vides ou renseignées mais même avec ces modifications, la macro ne fonctionne pas (meme si je la défini pour qu'elle s'applique en ouverture de fichier).

Elle marche chez toi la macro ?

Cordialement

Re,

Et bien non, elle ne fonctionne pas...

Penses tu que je n'ai pas testé ?

Maintenant, j'a peut être mal compris la question...

Cdlt.

Tu me semblais avoir testé et que cela avait fonctionné. D'où mon étonnement.

Curieux tout de même.

Je cherche de mon côté. Si ca se débloque chez toi, je veux bien un message

Cdlt

Bonsoir Polodu,

'
Dim Cel As Range
Dim iRow As Integer
'
iRow = Range("G" & Rows.Count).End(xlUp).Row
'
For Each Cel In Range("G5:G" & iRow)
    If Cel.Value = DateAdd("d", 10, Date) Then
        MsgBox "Fournisseur" & Cel.Offset(0, -4) & "attention, le founisseur" & Cel.Offset(0, -4) & " doit livrer dans" & Cel.Value - Date & "JOURS SOIT LE" & Cel.Value & " ETC ..."
    End If
Next Cel
'

Dans ton fichier, iRow était déclaré comme Range...

A+

Bonjour,

Cela fonctionne.

Merci à tous pour votre aide.

Je reviendrais surement vers vous pour d'autres points

Cordialement

Paul

Rechercher des sujets similaires à "alerte date echeance vba"