Discussion :

[Crachover]

Bonjour,

J'ai un formulaire avec plusieurs champs et mon IF semble ne pas fonctionner...

Les champs dans mon formulaire affichent

• ValDateJour = 28-04-2020
• valDateMoins= 15-04-2020
• valDatePlus = 15-05-2020

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ValDateJour >= valDateMoins And ValDateJour < valDatePlus Then Me.Étiquette90.Visible = True)

Résultat : Me.Étiquette90.Visible = False


Ce qui est étrange, c'est que les test suivants fonctionnent :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ValDateJour >= valDateMoins Then Me.Étiquette90.Visible = True)

Affiche : Me.Étiquette90.Visible = True

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ValDateJour < valDatePlus Then Me.Étiquette90.Visible = True)

Affiche : Me.Étiquette90.Visible = True

Est-ce un problème de formatage des dates ??? Si oui, comment les formater pour qu'elles soient compatibles entres elles ?

Merci d'avance pour votre aide :-)

[Jean-Philippe André]

Salut,

le formatage peut être une source possible, mais déjà quelles sont les types de tes variables et les valeurs qu'elles contiennent ?

Si tu fais un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print Cdbl(ValDateJour) 'pareil pour les 2 autres variables

je pense que la transformation de ton champs en date est à anlyser

[Crachover]

Date de naissance de d"part : 15/05/2020


Debug.Print valDateMoins - affiche 15-04-2020
Debug.Print CDate(valDateMoins) - affiche 15-04-20
Debug.Print CDbl(valDateMoins) - Erreur

idem pour les deux autres...


Code pour trouver valDateMoins

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
valDateMoins1 = Format(DateAdd("m", Me.DIFF_VERIF_AGE.Value * -1, Me.Naissance_Affilié.Value), "dd/mm/yyyy")
DayControl2 = Day(valDateMoins1)
MonthControl2 = Month(valDateMoins1)
    valDateMoins2 = DayControl2 & "-" & MonthControl2 & "-" & Year(Date)
 
valDateMoins = Format(valDateMoins2, "dd/mm/yyyy")

[Jean-Philippe André]

Ok, ton probleme vient de là.

La fonction Format ne retourne pas une date, mais une chaine de caractères, aussi tes variables sont comparées en tant que texte, et non en tant que date ^^

Ne te soucis pas du format ici, mais bien de la date (valeur) qui est contenue, en passant par un DateSerial par exemple

[Crachover]

En utilisant CDate() sur les variables cela fonctionne nickel, merci :-)