VBA - conditions avec Date ()

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:

---

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:

---

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

---

Affiche : Me.Étiquette90.Visible = True

Code:

---

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 :-)

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:

---

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

---

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

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:

---

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")

---

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

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