[résolu]message d'alerte si dates dépassées

[nrdz83]

Bonjour à tous,

j'ai ce code

Private Sub Workbook_Open()
Dim T_Date
T_Date = Date

If T_Date >= Range("D3").Value Then
MsgBox "Attention, il y a des date à échéance de VGP de dépassées"
End If
End Sub

placé dans thisworkbook, il permet de m'afficher si la date en cellule "D3" de ma page BD_Machine est dépassée par rapport à aujourdhui()

je voudrais étendre cette condition de D3 à D12.

Comment dois je procéder ?

Par avance merci

Amitiés

 

[Papou-net]

Re : message d'alerte si dates dépassées

Bonjour nrdz83,

Voici une façon de faire :

Private Sub Workbook_Open()
Dim T_Date, msg as String
T_Date = Date

For Each cel in Range("D3:D12")
  If T_Date >= cel.Value Then
    Msg = "Attention, il y a des date à échéance de VGP de dépassées"
    Exit For
  End If
Next
If msg <> "" Then MsgBox msg
End Sub

Bon dimanche.

Cordialement.

Edit : attention, il serait peut-être bon de préciser le nom de la feuille devant la référence de la plage D3:12.

 

[nrdz83]

Re : message d'alerte si dates dépassées

Bonsoir,
merci papou net pour ton aide
j'ai une erreur cel "variable non definie"
et je n'arrive pas à la définir

merci pour vos lumières

 

[JCGL]

Re : message d'alerte si dates dépassées

Bonjour à tous,
Salut Mister Bean,
Salut Papou-Net,

Peux-tu essayer avec :

Option Explicit

Private Sub Workbook_Open()
Dim T_Date, Msg As String, Cel As Range
T_Date = Date


For Each Cel In Feuil1.Range("D3:D12")
  If T_Date >= Cel.Value Then
    Msg = "Attention, il y a des dates à échéance de VGP dépassées"
    Exit For
  End If
Next
If Msg <> "" Then MsgBox Msg
End Sub

A + à tous

 

[nrdz83]

Re : message d'alerte si dates dépassées

Bonsoir super j'ai pourtant cel as range

J'ai sans doute du ne pas la placer au bon endroit.

Merci encore pour tout amitiés