comment tester qu'un txtbox ne comporte que l'année d'une date ?

[guy59960]

Bonjour à tous,

Habituellement, je demande à l'utilisateur d'un userform d'entrer une date sous forme "jj/mm/aaaa" et je teste le txtbox par le biais du code : If not Isdate(txtbox) then.....

Aujourd'hui, j'aimerais que l'utilisateur ne précise que l'année. J'ai regardé les très divers tutoriels mais je ne trouve pas le code à mettre pour tester la valeur du txtbox ne devant contenir que l'année d'une date.

Vous remerciant de votre aide,

Cordialement

GUY59960

[kiki29]

Salut, utilise une ComboBox contenant toutes les années valides plutôt qu'une TextBox

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
Dim i As Long
    With ComboBox1
        .Clear
        .Style = fmStyleDropDownList
        .ListRows = 30
        For i = 2010 To 2030
            .AddItem i
        Next i
    End With
End Sub

Après tout dépend à quel moment tu valides la saisie des données
mais pour la ComBox tu auras qqch comme

Code :

If ComboBox1.ListIndex = -1 Then ....

pour dire à l'utilisateur qu'il doit absolument sélectionner une année

[jfontaine]

Bonjour,

Si ton choix reste sur la textbox

Il te reste a borner les années suivant ton besoin

Code :

1
2
3
If IsNumeric(TextBox1.Text) = False Or Val(TextBox1.Text) < 2000 Or Val(TextBox1.Text) > 2100 Then
    MsgBox "Date incorrect"
End If

NB : tu peux aussi gérer les caractères autorisés via l’évènement Keypress de la textbox. Cela rendra obsolète le test Isnumeric