Fonction avec valeur comprise

[lolosca]

Bonjour à tous,

Voilà j'ai un petit problème

j'ai ce code que j'écris et qui me semble juste mais la vérification ne se fait pas

'On vérifie que l'année demandée correspond bien à une année disponible dans la base de donnée (entre 2012 et 2020
If 2012 > Val(UF1_Formulaire.ZT1_ExComp) > 2020 Then
    MsgBox ("Erreur Exercice comptable, doit être compris entre 2012 et 2020"), vbCritical

End IF

Ce que je veux c'est que l'année rentré dans ma textbox soit comprise entre 2012 et 2020 compris

Merci d'avance

 

[Pierrot93]

Re : Fonction avec valeur comprise

Bonjour,

essaie peut être comme ceci :

If Val(UF1_Formulaire.ZT1_ExComp) > 2012 And Val(UF1_Formulaire.ZT1_ExComp) < 2020 Then MsgBox "ok"

bon après midi
@+

 

[Pierrot93]

Re : Fonction avec valeur comprise

Re,

peut être rajouter un =

If Val(UF1_Formulaire.ZT1_ExComp) >= 2012 And Val(UF1_Formulaire.ZT1_ExComp) <= 2020 Then MsgBox "ok"

si 2012 et 2020 sont comprises...

 

[lolosca]

Re : Fonction avec valeur comprise

Bonjour,

J'ai essayé vos codes mais cela ne marche pas non plus je ne comprends pas pourquoi, du cou, j'ai mis deux conditions les unes sous les autres doit être supérieur à 2012 et inférieur à 2020

merci quand même!!

 

[Pierrot93]

Re : Fonction avec valeur comprise

Bonjour,

J'ai essayé vos codes mais cela ne marche pas non plus je ne comprends pas pourquoi

bah.. je ne comprends pas... un comme comme celui-ci placé dans le module de l'usf fonctionne chez moi...

If Val(TextBox1) >= 2012 And Val(TextBox1) <= 2020 Then MsgBox "ok"

bonne journée
@+

 

[lolosca]

Re : Fonction avec valeur comprise

Oui mai la je suis dans un module a par avec une fonction publique, peut être que c'est à cause de ca!!

 

[Pierrot93]

Re : Fonction avec valeur comprise

Re,

pas sûr de voir l'interet d'une fonction dans ce cas...