[XL-2007] Autoriser une date entre 2009 et 2012 [Résolu]

[apdf1]

Bonjour,

Voila je recherche un code pour que l'utilisateur soit obliger de mettre une date entre l'année 2009 à 2012 dans un textBox sur USF.

Un très grand merci à tout ceux qui pourront m'aider...

Cordialement
Max

[jfontaine]

Bonjour,

Une proposition de vérification

Code :

1
2
3
4
5
6
7
8
9
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Year(CDate(TextBox1.Text)) < 2009 Or Year(CDate(TextBox1.Text)) > 2012 Then
    MsgBox "La date doit être comprise entre 2009 et 2012", vbExclamation, "Erreur de saisie"
    Cancel = True
    TextBox1.SelStart = 0
    TextBox1.SelLength = Len(TextBox1.Text)
End If
End Sub

[apdf1]

Bonjour Jérôme

Merci beaucoup c'est Nickel

Bonne journée

@+

Max