Gestion d'alarme

JCGL

XLDnaute Barbatruc

• 14 Février 2011

• #2

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

 

Vote positif 0 Vote négatif

B

Benjy

XLDnaute Occasionnel

• 14 Février 2011

• #3

Re : Gestion d'alarme

Bonjour,

Effectivement sa semble fonctionner !
Un grand merci à vous.

 

Vote positif 0 Vote négatif

B

Benjy

XLDnaute Occasionnel

• 14 Février 2011

• #4

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.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 14 Février 2011

• #5

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

 

Vote positif 0 Vote négatif

B

Benjy

XLDnaute Occasionnel

• 14 Février 2011

• #6

Re : Gestion d'alarme

Merci sa fonctionne !

Cordialement,

Ben

 

Dernière édition: 14 Février 2011

Vote positif 0 Vote négatif