alertes sur date suivant 3 conditions

Atary · 14 Janvier 2006

Bonsoir le Forum,

je vous expose mon pb, je souhaite gérer le renouvellement de mes mots de passe par l'intermédiaire d'une macro. La date de création du mdp se trouve en 'A1', pendant les 30 jours suivants la création, pas de message, puis les 5j suivants un 1er message d'alerte et enfin un 2eme message au-dela du 35eme j.
J'ai testé différentes macros, sans succés, dont celle ci :
Sub ComparaisonDates()
Refdate = CDate(Range('A1'))
If Date > (Refdate + 35) Then
SupInf = ' Alerte ! expiration de votre mot de passe imminente !!'
ElseIf ((Refdate + 30) < Date < (Refdate + 35)) Then
SupInf = ' Attention, pensez à renouveller votre mot de passe ! '
Else: End If
MsgBox SupInf
End Sub
Quelqu'un a t il une solution ?

Merci

myDearFriend! · 14 Janvier 2006

Bonsoir Atary,

Peut-être peux-tu essayer :

Sub ComparaisonDates()
Dim Refdate As Date
Dim SupInf As String
      Refdate = Range('A1').Value
      Select Case Date
      Case Refdate + 30 To Refdate + 35
            SupInf = ' Attention, pensez à renouveller votre mot de passe ! '
      Case Is > Refdate + 35
            SupInf = ' Alerte ! expiration de votre mot de passe imminente !!'
      End Select
      If Len(SupInf) > 0 Then
            MsgBox SupInf
      End If
End Sub

Cordialement,

Atary · 14 Janvier 2006

Bonsoir Didier,

c'est fantastique, ça marche parfaitement !!
Merci, mais peux tu m'expliquer la signification de : If Len(SupInf) > 0 Then ?

Charly2 · 14 Janvier 2006

Bonsoir Atary et myDearFriend

Il y a aussi cette possibilité :

Option Explicit

Sub ComparaisonDates()
'
Dim SupInf As String
'
  If Date > Range('A1') + 30 Then
    If Date (Range('A1') + 35) Then
      SupInf = 'Alerte ! expiration de votre mot de passe imminente !!'
    End If
    MsgBox SupInf
  End If
End Sub

A+

Atary · 14 Janvier 2006

Bonsoir Charly2,

ta solution ne marche pas chez moi...
et je souhaite avoir deux niveaux d'alertes comme dans la solution de myDearFriend!

Est il possible de jouer un son à l'ouverture de la message box ?

Merci

Charly2 · 14 Janvier 2006

Re

Ne t'inquiète pas, la solution de myDearFriend est parfaite

A+

Edition : quant à la mienne, elle n'est pas passée entièrement (???)

Message édité par: Charly2, à: 14/01/2006 01:37

myDearFriend! · 14 Janvier 2006

Re Atary,
Bonsoir Charly2,

If Len(SupInf) > 0 Then

Signifie : Si la longueur de Supinf (c'est à dire le nombre de caractères de Supinf) est supérieure à zéro...

On pourrait aussi utiliser 'Si Supinf est différent de 'rien'...', mais tu vas rire : depuis quelques temps je n'arrive plus à afficher le '' pour indiquer 'différent de' dans mes posts !

Cordialement,

EDITION
Ah ben, tu vois ça passe toujours pas... je voulais écrire les signes 'supérieur et inférieur à' à la place du ''.

Message édité par: myDearFriend!, à: 14/01/2006 01:38

Atary · 14 Janvier 2006

OK !!

je comprends mieux ton code maintenant, je vais me coucher moins bête...d'ailleurs il est grand temps d'y aller (2h10 ! ok demain c'est samedi mais quand même !)

Merci à vous deux

Atary

alertes sur date suivant 3 conditions

Atary

Guest

myDearFriend!

XLDnaute Barbatruc

Atary

Guest

Charly2

Nous a quittés en 2006

Atary

Guest

Charly2

Nous a quittés en 2006

myDearFriend!

XLDnaute Barbatruc

Atary

Guest

Discussions similaires