Ligne de code récalcitrante

Bonjour à tous,

J'essaie depuis ce matin 8h00 de faire en sorte que l'on ne puisse pas entrer une date inférieure à 1930 dans mon "txt_Ne_Le"...

En m'aidant des lignes de code qui gèrent le jour et le mois, je pensais que ça allait être une promenade de santé...

mais voilà, je l'ai trituré dans tous les sens, et n'ai pas trouvé la solution...

une aide serait la bienvenue...

Merci a vous tous...

Mon fichier joint:

Bonjour,

Je trouve que vous vous compliquez bien la vie.

Je procéderais ainsi :

1- tester si txt_Ne_Le est une date avec la fonction "IsDate"

2- si c'est une date, tester alors year(cdate(txt_Ne_Le)) par rapport à 1930.

Bonjour

A voir si cela répond à votre utilisation mais essayez de code à ajouter dans votre userform

Private Sub txt_Ne_Le_AfterUpdate()
If IsDate(txt_Ne_Le) Then
    If Right(txt_Ne_Le, 4) <= 1930 Then
        MsgBox "Vous ne pouvez choisir une date inferieure ou égale à l'année 1930"
        txt_Ne_Le = ""
        Exit Sub
    End If
End If
End Sub

Il faudrait peut etre aussi controler que vous avez bien introduit une date complète et que son format est correct --> jj/mm/yyyy

Là j'ai supposé que vous mettez toujours bien l'année en 4 caractères

Si ok, merci de cloturer le fil en cliquant sur le petit v en haut à droite

Cordialement

Bonsoir thev et dan,

Merci pour votre aide, le code de dan fonctionne très bien....

Merci beaucoup à tous les deux.

a+