Message d'alerte a l'ouverture Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
reinruof77
Membre fidèle
Membre fidèle
Messages : 412
Inscrit le : 10 mars 2014
Version d'Excel : 2010

Message par reinruof77 » 9 avril 2014, 13:36

Bonjour le Forum je revient vers vous pour une petite question

Je sait qu'il est possible de faire un message a l'ouverture du classeur mais je patauge un peut la .
je souhaiterais qu'un message s'affiche avec "prévoir le changement électrode du site ******** " quand la date arrive 30 jours a échéance. et je doit le faire sur 3 éléments (en jaune dans le fichier joint)


j'ai trouvé ceci:
Private Sub Workbook_Open()
Dim ter As Range
For Each ter In Range("W3:" & Range("W3").End(xlDown).Address)
If ter.Value - 30 >= Date Then
        MsgBox "DTD " & ter.Offset(0, 1) & " attention Prévoir le changement électrodes Défibrilateur"
    End If
Next ter
End Sub
Mais cela ne fonctionne pas bien
je vous joint mon fichier test pour être plus clair

Merci d'avance de votre aide
test.xls
(57.5 Kio) Téléchargé 26 fois
Je ne suis pas très douer mais j’écoute quand on m'explique ;)
Avatar du membre
reinruof77
Membre fidèle
Membre fidèle
Messages : 412
Inscrit le : 10 mars 2014
Version d'Excel : 2010

Message par reinruof77 » 9 avril 2014, 13:57

Et si je peux abuser :)
avec dans le message deux bouton (commander) pour que le message n’apparaisse plus
et (rappeler plus tard) .

Merci a tous
et j'en profite pour dire un grand merci a tout les bénévole de ce forum qui sans eu on serais dans la mer.....

MERCI :D
Je ne suis pas très douer mais j’écoute quand on m'explique ;)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message