zeltron24
XLDnaute Impliqué
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
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