Problème: comment programmer l'apparition d'un message d'alerte ?

[zizou]

salut à tous; je suis entrain de créer une feuille d'excel permettant la gestion des médicaments, et je voudrais qu'une boîte de dialogue s'afficherait chaque fois que la date système dépasse la date d'expiration d'un produit. pouvez vous m'aider sur ce point ?

 

[Pierrot93]

Re : Problème: comment programmer l'apparition d'un message d'alerte ?

Bonjour Zizou

regarde le code ci dessous, si ca peut t aider :

Sub test()
If Date > Range("A1").Value Then
    MsgBox "Produit expiré"
End If
End Sub

mais il semblerait qu'il faille faire une boucle à l'ouverture de ton classeur sur la colonne, s'il en existe une, date d'expriration..

bon après midi
@+

 

[Temjeh]

Re : Problème: comment programmer l'apparition d'un message d'alerte ?

Bonjour

Avec une mise en forme conditionnelle?

Ex: si tes date sont en col B en B1 tu va dans mise en forme cond ...

La valeur de la cellule est ....inférieur à ...=MAINTENANT()
Met la couleur de ton choix
Ensuite fait suivre la formule vers le bas
Juste un ptit prob avec est que si la cell est vide il la croit expirer(un pro va venir à mon aide)

Tu peut faire la même chose avec Donnée ....Validation ...Options ...Date ...Supérieur à ...=Maintenant() ..et sous alerte d'erreur tu y met ton message sauf que le message apparais juste une fois en y remplissant la cell
A+

Temjeh

 

[zizou]

Re : Problème: comment programmer l'apparition d'un message d'alerte ?

merci "pierrot" pour le code. je crois que c'est ce que je cherche.
mais pour la dernière phrase j'ai pas vraiement compris :
" il semblerait qu'il faille faire une boucle à l'ouverture de ton classeur sur la colonne, s'il en existe une, date d'expriration.." !!!

 

[zizou]

Re : Problème: comment programmer l'apparition d'un message d'alerte ?

Merci à toi aussi "Temjeh".
je crois que si je trouve des difficultés pour la procédure de "Pierrot 93", j'utiliserais la tienne.

 

[Pierrot93]

Re : Problème: comment programmer l'apparition d'un message d'alerte ?

Re Zizou, bonjour Temjeh

tout dépend comment et quand tu veux actionner la macro, mais tu pourrais par exemple la lancer à l'ouverture de ton classeur et remplacer la "msgbox" par le coloriage de la cellule en rouge....

@+

 

[zizou]

Re : Problème: comment programmer l'apparition d'un message d'alerte ?

je m'excuse. mais comment lancer la macro à l'ouverture du classeur ?

 

[Pierrot93]

Re : Problème: comment programmer l'apparition d'un message d'alerte ?

Re

Il faut placer le code dans le module de "ThisWorkbook", dans l'évènement "Open".

Private Sub Workbook_Open()
If Date > Range("A1").Value Then
    MsgBox "Produit expiré"
End If
End Sub

mais attention avec le code ci dessous, c'est uniquement A1 qui est controlé.

@+