Message d'alerte à l'ouverture d'un fichier

[tsitsaille]

Bonjour,

Je souhaiterais mettre un message d'alerte à l'ouverture d'un fichier excel mais que lorsque qu'une condition n'est pas remplit dans la feuille 1 de mon fichier.
Je m'explique :
- la date du jour est insérée dans la cellule A1 de ma feuille
- dans la cellule I3, se trouve une date a laquelle je dois avoir une réponse
- dans la cellule J3 se trouve le nombre de jour qui sépare les deux dates

Je souhaiterais que l'alerte apparaisse lorsque j'ouvre le fichier et que le nombre de jour soit inférieur ou égale à 0.

Le message d'alerte pourrait être "Attention, régularisation à vérifier!"

Je vous mets un fichier en pièce jointe pour que ce soit plus facile.

Je vous remercie par avance de plancher sur mon problème!!! j'ai vraiment besoin d'aide..je cherche depuis des jours!!! sans succès!!

Bonne journée 🙂

MERCI MERCI MERCI MERCI!!!!!!!!

 

[Efgé]

Re : Message d'alerte à l'ouverture d'un fichier

Bonjour tsitsaille,
Une proposition en pièce jointe.
Le code est dans le ThisWorboock.
Cordialement.

 

[Efgé]

Re : Message d'alerte à l'ouverture d'un fichier

Re
Le fichier modifié pour la prise en compte des 0 (que j'aivais oubliés) et une modif pour la dernière ligne (enlevé le +1).
Cordialement

 

[tsitsaille]

Re : Message d'alerte à l'ouverture d'un fichier

Super merci c'est exactement ce que je voulais!!
Juste une petite chose... est ce qu'il est possible d'avoir le meme style d'alerte en plus de celle ci mais avec la colonne Q? le message reste le même avec une précision "Attention, une régularisation à changer dans les récidives!!"
Il y aurait donc deux messages d'alertes différents.
Merci d'avance de ta réponse!

 

[Efgé]

Re : Message d'alerte à l'ouverture d'un fichier

Re
Avec la colonne q prise en compte.
Attention sur un grand nombre de lignes, ça risque de devenir long.
Cordialement

 

[tsitsaille]

Re : Message d'alerte à l'ouverture d'un fichier

Première fois que je viens sur un forum, et la réponse est géniale, rapide.... que demander de mieux...
Merci beaucoup à toi d'avoir pris le temps de répondre à ma question!!
Très bonne journée
Merci encore

 

[Hulk]

Re : Message d'alerte à l'ouverture d'un fichier

Hello les amis,

Attention sur un grand nombre de lignes, ça risque de devenir long.

Je suis mal réveillé peut-être, mais ceci

Private Sub Workbook_Open()

    If Sheets("Feuil1").Range("J4") <= 0 Then MsgBox "Attention, régularisation à vérifier !"
    If Sheets("Feuil1").Range("Q4") <= 0 Then MsgBox "Attention, régularisation à changer dans les récidives !"

End Sub

ne suffit pas ?

Une chose Efgé, ça

If K > [COLOR="Red"][B]o[/B][/COLOR] ...

C'est bien le lettre o minuscule ? Oui.

J'avoue que je ne comprends pas et pourtant ça joue 😱

 

[Efgé]

Re : Message d'alerte à l'ouverture d'un fichier

Re
Bonjour Hulk,
Le messsage de base était en fonction de la ligne 3:

Bonjour,
...Je m'explique :
- la date du jour est insérée dans la cellule A1 de ma feuille
- dans la cellule I3, se trouve une date a laquelle je dois avoir une réponse
- dans la cellule J3 se trouve le nombre de jour qui sépare les deux dates...

Quand j'ouvre le fichier exemple je trouve une cellule en rouge ligne 4, donc j'imagine, peut être à tort, que la liste ne comprend pas qu'une ligne.
Voila pourquoi je prend une plage et non une cellule.

Pour le o minuscule, c'est exact 😱, comme tu le dit :

J'avoue que je ne comprends pas et pourtant ça joue

Cordialement

 

[Hulk]

Re : Message d'alerte à l'ouverture d'un fichier

Re,

If K > o ...

Encore un mystère d'Excel 😀

 

[jeanpierre]

Re : Message d'alerte à l'ouverture d'un fichier

Bonjour le fil,

"If K > o ....", "Encore un mystère d'Excel"

Il n'y a pas de mystère.

o est une variable (issue d'une erreur de saisie, sans doute), n'étant pas initialisée elle a donc pour valeur 0 et donc si K > 0, K est > à o donc "ça joue".

Bonne journée.

Jean-Pierre

 

[Hulk]

Re : Message d'alerte à l'ouverture d'un fichier

Re,

Impec Jeanpierre, merci pour l'explication 😉