Message d'avertissement d'échéance

[Pierre]

Bonjour le Forum,

Quelle joie de te retrouver, ainsi que tous tes contributeurs...
Ma difficulté est la suivante.
Dans un classeur j'aimerais que, lors de l'ouverture, un message apparaisse si une cellule de la colonne G (par ex) ou de la colonne J contient une date égale à la date du jour.
Pour plus de précision (mais j'ignore si cela à une quelconque importance), sachez que les dates dont question sont des dates calculées.
J'imagine qu'il faudra quelques lignes de code VBA, mais je ne le maîtrise absolument pas.
Auriez-vous la gentillesse de m'aider.
Déjà grand merci à vous et excel - lente soirée.

 

[Ti]

voici une petite procédure qui, placée dans Thisworkbook, t'avertira si la date du jour est trouvée dans une ou des cellules de la colonne G de la Feuille 1. A toi bien sûr d'adapter le nom de la feuille réelle, éventuellement la colonne où rechercher et le message à afficher.

Private Sub Workbook_Open()
Dim Plage As Range, Cel As Range
With Worksheets("Feuil1")
Set Plage = .Range("G1", .Range("G65536").End(xlUp))
End With
For Each Cel In Plage
If Cel.Value = Date Then
MsgBox "Date du jour en cellule " & Cel.Address
End If
Next Cel
End Sub

 

[Pierre]

Grand merci Ti,
Ca fonctionne super!