Macro d'alerte Auto

J'ai besoin de MACRO qui affiche une alerte automatique selon les conditions en dessous :

F3= GMF donc H3=G3+93

F3= AVES donc H3=G3+31

F3= PESD donc H3=G3+31

F3= CSC donc H3=G3+31

le MACRO m'alerte si : si résultat H3 < aujourd’hui, afficher une alerte.

CDT

Bonjour,

Met ce code dans ta feuille "Gestion PV" :

Private Sub Worksheet_change(ByVal target As Range)
Dim c, p As Range
Set p = Range("H3:H" & Range("H" & Rows.Count).End(xlUp).Row)
For Each c In p
    If c.Value < Date Then MsgBox "La ligne " & c.Row & " présente une date inférieur à la date du jour", vbExclamation, "Date dépassée"
Next c
End Sub

A dispo pour toute question ou modification

Excellent Juice, Merci beaucoup.

Bonjour,

Dans le méme Macro, c''st possible de rajouter une autre condition;

Si I3 ou J3 = "OUI" ne pas recevoir une alerte. En PJ le fichier

Merci d'avancer Juice

Re-

Ravi que la solution te convienne

Si I3 ou J3 = "OUI" ne pas recevoir une alerte. En PJ le fichier

Remplace le code que tu as par celui ci-dessous :

Private Sub Worksheet_change(ByVal target As Range)
Dim c, p As Range
Set p = Range("H3:H" & Range("H" & Rows.Count).End(xlUp).Row)
For Each c In p
    If c.Value < Date And (Cells(c.Row, 9) <> "OUI" Or Cells(c.Row, 10) <> "OUI") Then MsgBox "La ligne " & c.Row & " présente une date inférieur à la date du jour", vbExclamation, "Date dépassée"
Next c
End Sub

A dispo!

juste que le macro prend les deux condition au même temps; I3 = OUI et J3=OUI

je veux un seul "oui" dans les deux pour ne pas recevoir l'alerte

Re-

Il faut remplacer le "Or" par "And" dans ce cas :

   If c.Value < Date And (Cells(c.Row, 9) <> "OUI" And Cells(c.Row, 10) <> "OUI") Then MsgBox "La ligne " & c.Row & " présente une date inférieur à la date du jour", vbExclamation, "Date dépassée"

A dispo

Rechercher des sujets similaires à "macro alerte auto"