Sa Date... On s'aime

[zeltron24]

Salut à tous,

Tout d'abord un GRAND merci à tous ceux et celles qui m'ont aidé pour le glissé collé de ma formule (Hier). Avec votre concours j'y suis arrivé.

Mais je ne suis jamais rassasié de Excel et j'ai repris un petit programme sur les dates d'anniversaire et de mariage.

Alors voila: j'ai un formulaire qui s'ouvre et j'y inscris une date ce qui me renvoie sur les noms des personnes correspondantes à la date.

J'aimerai par contre pouvoir vérifier si la date est postérieure à Aujourd'hui mais je n'y arrive pas. Alors Help SVP MERCI

Private Sub CmdDate_Click()
Dim vMois as Date

vMois = InputBox("Sélectionnez le mois et l'année:", "Les Noms", vMois)
If vMois = "" Then Exit Sub
If Len(vMois) > 5 Or Len(vMois) < 4 Then MsgBox "Le format est incorrect": Exit Sub
If Not IsDate(vMois) Then Exit Sub

End Sub

Voila ce que j'ai......
Cordialement

 

[ERIC S]

Re : Sa Date... On s'aime

Bonjour

regarde avec "dateserial" ou "datevalue" en sachant que "date" te donne l adate du jour

par contre tu n'as pas de jour mais seulement le mois dans ton entrée
😕

 

[zeltron24]

Re : Sa Date... On s'aime

Bonjour,

Peux tu me donner un exemple d'utilisation de datevalue et dateserial STP
Je ne suis pas très calé dans les formulations.
Le principe étant de vérifier si la date inscrite n'est pas supérieure à celle d'aujourd'hui et si elle comprens bien le format mm/aa
merci

 

[porcinet82]

Re : Sa Date... On s'aime

Salut Zeltron, Eric,

Je suis Eric a la trace en ce moment, histoire de vérifier qu'il ne dise pas trop de conneries 😉 😛

Nan sans blague cette fois, je ne vois pas tre bien ce que viens faire dateserial ou datevalue ici. Il suffit de mettre une condition par rapport a Date non?

Ne comprenant pas tres bien ton code, je ne sais pas trop insérer la condition, mais la ligne de condition serait du type (cela necessite que tu es un format mm/yy dans ta Combo):
'on formate Date en format mm/yy pour qu'il soit comparable a celui de la combo
dat = Format(Date, "mm/yy")
If CmdDate.value>dat Then
'ton code
End IF

@+

 

[ERIC S]

Re : Sa Date... On s'aime

Salut Porcinet

tu as raison de me suivre car je me remets difficilement du we prolongé que j'ai eu

Zeltron, pourquoi as-tu besoin de l'année ?
Si nécessaire, il vaudrait mieux l'avoir sur 4 chiffres, c'est plus propre

A tester

Dim vMois As Variant
vMois = InputBox("Entrez le mois et l'année:", "Les Noms", "mm/aaaa")
If Not IsDate(vMois) Then MsgBox "L'entrée n'est pas une dateExit Sub"
If Not Len(vMois) = 7 Then MsgBox "Le format est incorrect": Exit Sub
If CDate(vMois) > Date Then MsgBox "date dans le futur": Exit Sub

 

[zeltron24]

Re : Sa Date... On s'aime

Salut Porcinet82 et Eric S,

Je reviens après quelques essais et de suivi de vos solutions.
Les formules que vous m'avez suggérés sont ok
C'est vrai que les années sont superflus je les ai donc éliminés.

Je continue sur les formules
Encore Merci pour votre aide à tous les deux

A + et bonne fin d'après midi