Gestion d'alarme

Benjy · 14 Février 2011

Bonjour,

J'aimerais créer une gestion d'alarme. J'ai un classeur (voir PJ) :
Ma case B2 contient une date et ma case H2 contient une durée en semaine.

J'aimerais qu'a l'ouverture du classeur une macro vienne tester si B2+H2 > aujourd'hui()
Si c'est le cas la réponse à du retard et une msgbox apparrait.

Je ne sais pas comment gérer la formule : date + durée > aujourd'hui()

Merci d'avance,

Cordialement,

Ben

JCGL · 14 Février 2011

Re : Gestion d'alarme

Bonjour à tous,

Peux-tu essayer avec :

Code:

Option Explicit

Private Sub Workbook_Open()
If (Range("B2") + Range("H2") * 7) < Now Then MsgBox "La réponse a du retard", vbCritical, "Retard"
End Sub

A+ à tous

Benjy · 14 Février 2011

Re : Gestion d'alarme

Bonjour,

Effectivement sa semble fonctionner !
Un grand merci à vous.

Benjy · 14 Février 2011

Re : Gestion d'alarme

Re,
Petits problèmes quand même, le message s'affiche également quand mes cellules sont vides car 0+0 < Now.
Second petit problème, il faudrait mettre en place une condition d'arret.
Par exemple quand la case J2 est rempli, le courrier à été receptionné il n'est donc plus utile d'afficher l'alarme.

JCGL · 14 Février 2011

Re : Gestion d'alarme

Bonjour à tous,

Peux-tu essayer avec :

Code:

Option Explicit

Private Sub Workbook_Open()
    If Range("B2") + Range("H2") = 0 Or Range("J2") <> "" Then Exit Sub
    If (Range("B2") + Range("H2") * 7) < Now Then MsgBox "La réponse a du retard", vbCritical, "Retard"
End Sub

A+ à tous

Benjy · 14 Février 2011

Re : Gestion d'alarme

Merci sa fonctionne !

Cordialement,

Ben

Gestion d'alarme

Benjy

XLDnaute Occasionnel

Pièces jointes

JCGL

XLDnaute Barbatruc

Benjy

XLDnaute Occasionnel

Benjy

XLDnaute Occasionnel

JCGL

XLDnaute Barbatruc

Benjy

XLDnaute Occasionnel

Discussions similaires