VBA-Contrôler la saisie d'une date

[vincent182]

Bonjour à tous,

j'ai un fichier excel avec un userform demandant quelques informations qui seront ensuite listées dans excel.
J'ai déjà effectuer (ou trouver) les solutions pour améliorer certains disfonctionnement mais il y en a 3 autres que je souhaiterai résoudre.

Tout d'abord, je voudrais pouvoir contrôler que la valeur saisie en date de création est bien une date. (J'avais quelques pistes, mais aucune n'a fonctionner)

Ensuite j'aimerai que la date d'envoie ne puisse pas être inférieure à la date du jour.

J’ai essayer de faire :

If datej.Value < Date Then
MsgBox ("Veuillez renseigner correctement la date d’envoie ")
datej.SetFocus
Exitsub
End If

Ca me dit erreur de compilation : sub ou function non définie. (J’ai pas réussi à trouver ce qui allait pas…)

Enfin, j'aimerai que lorsqu'on demande à ce programme d'enregistrer plusieurs fois les mêmes références dans le tableau Excel de la feuille 1, il nous dise un message d'erreur comme :"Sélection déjà demandé, veuiller modifier votre demande"

Le fichier est joint, et je vous remercie d'avance pour votre aide.

Bonne journée à tous!

 

[13GIBE59]

Re : VBA-Contrôler la saisie d'une date

Bonjour Vincent.

Pour la "réalité" de la date saisie, vois ce fil qui contient des choses intéressantes.

Pour la suite, je cherche...

A plus.

 

[MJ13]

Re : VBA-Contrôler la saisie d'une date

Bonjour Vincent, Jean-Bernard

Pour contrôler la date, tu peux tester cette routine sur le double-click de Datej.

Private Sub datej_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo suite
DateAct = CDate(datej.Value): MsgBox DateAct: Exit Sub
suite:
MsgBox "Entrez une date valide."
End Sub

 

[vincent182]

Re : VBA-Contrôler la saisie d'une date

Tout d'abord merci pour vos réponse rapide.
J'ai réussi en introduisant le code de Michel dans la private sub commandbutton1_click()


Private Sub CommandButton1_click()
On Error GoTo suite
DateAct = CDate(datej.Value): MsgBox DateAct: Exit Sub
suite:
MsgBox "Entrez une date valide."
Exit Sub


Voila déjà un problème de résolu! Merci encore