calcul d'écart de date a l'ouverture du fichier

[wachoo31]

Bonsoir a tous

J'ai un fichier avec plusieurs page dont une appelons la "page a" dans laquelle s’incrémente au fur et a mesure dans la colonne a d'une date du genre
cellule a2 01/01/2013
cellule a3 31/03/2013
cellule a4 25/06/2013 ect...
Je cherche comment mettre dans la macro workbook open : une formule qui contrôle si la date du jour est plus grande de 90 jours par rapport a la dernière cellule de la colonne a de ma feuille "page a" si oui je reçois un message si non rien ne se passe.

 

[excfl]

Re : calcul d'écart de date a l'ouverture du fichier

Bonsoir,

Formule sans macro :

=SI(AUJOURDHUI()-RECHERCHE(9^9;A:A)>90;"message";"")

excfl

 

[wachoo31]

Re : calcul d'écart de date a l'ouverture du fichier

merci a toi excfl pour ta formule mais je cherche a mettre la fonction en VBA a l'ouverture du fichier

 

[excfl]

Re : calcul d'écart de date a l'ouverture du fichier

Re,

Le fichier joint donne l'alerte la veille des échéances.
Mais cela ne correspond pas tout à fait à ta demande.

excfl

 

[phlaurent55]

Re : calcul d'écart de date a l'ouverture du fichier

Bonjour à tous,

avec ce code:

Private Sub Workbook_Open()
If Sheets("page a").Cells(Sheets("page a").Range("A65535").End(xlUp).Row, 1) + 90 < Date Then MsgBox ("MESSAGE D'ALERTE")
End Sub

à+
Philippe

 

[wachoo31]

Re : calcul d'écart de date a l'ouverture du fichier

Bonsoir a tous

phlaurent55 merci a toi cela est exactement ce que je cherchais je met ton code en fonction immédiatement

Bonne soirée encore a tous