Vérifier format d'une entrée

Résolu
Zanlepan -  
 Zanlepan -
Bonjour à tous
J'ai une peu de difficulté à comprendre la fonction "like" dans VBA.
J'ai créé un inputBox où l'utilisateur doit entrer une année (donc 4 chiffres consécutifs) et je veux qu'un msgBox apparaisse si le format entré n'est pas le bon ou si rien n'est écrit. Sauf que peu importe l'entrée, le message d'erreur s'affiche...

Voici mon code, merci d'avance !

Private Sub CB_ok_Click()

'Si la valeur entrée ne correspond pas à une année
If Not actualYear Like "####" Then
MsgBox "Entrez une année valide" & Chr(10) & Chr(10) & "Enter a valid year"
Exit Sub
Else
A voir également:

1 réponse

Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
Bonjour,

J'utiliserais plutôt :
i = Val(actualYear)
If i < 2000 Or i > 2020 Then ...

ou d'autres bornes. Mais ta syntaxe marche chez moi dans un InputBox.

A+
0
Zanlepan
 
Merci j'ai réussi !
0