Probleme de comparaison de date

Bonjour,
Je suis actuellement en train de réaliser une macro pour le boulot et là, je suis bloqué.
Alors, le principe de la macro est la suivante :

- un onglet sur lequel un tableau récapitule des defauts par date ,par ligne de production, par quantité (un defaut = une ligne).

- dans un autre onglet, j'ai crée un userform pour demander une periode precise (avec 2 calendar) pour rechercher la quantité exacte de defaut sur chaque ligne en fonction de cet interval.

la macro :
1°) je fais un tri dans le tableau, par ligne, puis par date croissante
2°) j'enregistre dans un tableau a 2 colonnes le nom de la ligne et la quantité de defaut en fonction de l'interval de temps demandé...

Code:

---

1 2 3 4

If UserPPM.Calendar1.Value <= Cells(b, 4).Value <= UserPPM.Calendar2.Value Then somme = somme + Cells(b, 7).Value b = b + 1 End If

---

Le probleme, c'est que la comparaison ne fonctionne pas et je comptabilise tous les defauts meme ceux hors interval de temps.

Je n'utilise pas le calendar mais de quel type est la donnée que tu récupères, une date ou un string.
As-tu essayé

Code:

---

1 2 3

If DateValue(UserPPM.Calendar1.Value) <= DateValue(Cells(b, 4).Value) <= DateValue(UserPPM.Calendar2.Value) Then 'ou If cdate(UserPPM.Calendar1.Value) <= cdate(Cells(b, 4).Value) <= cdate(UserPPM.Calendar2.Value) Then

---

salut,

J'ai deja essayer de réaliser ces lignes de commandes en me basant sur l'aide vba et sur les divers questions du forum, mais sans succes.
Etant même desesperé sur le sujet, j'ai meme essayer de croiser les lignes de commande entre datevalue et cdate, mais bon, je me doutais que le succes ne serais pas au rdv :P

Le calendar me renvoie une date, et mon format de case du tableau excel est aussi en date.

Tu peux aussi essayer en convertisant tes dates en N° de série qui te libère du format

Code:

---

If cdbl(UserPPM.Calendar1.Value) <= cdbl(Cells(b, 4).Value) <= cdbl(UserPPM.Calendar2.Value) Then

---

A tout hasard mais c'est ce que j'utilise en cas de tri ou de comparaison (sans Calendar)
Tu dis
A+

Edit
Précision : Cdbl ne fonctionne pas si tu as l'heure dans tes dates

Marche pô non plus;
le plus bizard, c'est que quelque soit la fonction utilisée, cdbl, datevalue, cdate, le resultat est le meme;
je me demande si la fonction de comparaison fonctionne bien, et s'il ne vaut mieu pas que je fasse 2 lignes de comparaison...

quelle valeur retourne la cellule et quelle valeur retourne le calendar?

Citation:

---

Envoyé par macroland

je me demande si la fonction de comparaison fonctionne bien, et s'il ne vaut mieux pas que je fasse 2 lignes de comparaison...

---

En effet, je m'étais concentré sur les dates, pas sur le test lui-même. Et tu as raison, sur plusieurs lignes ce sera en effet plus simple à relire qu'avec un and.
J'ai fait le test

Code:

---

1 2 3 4 5 6 7

Sub test() a = 15 b = 12 c = 8 ok = a >= b >= c MsgBox ok End Sub

---

et je récupère faux, c'est donc bien ton test qui pose pb. Mais si je mets

Code:

---

1 2	ok = a >= b And b >= c MsgBox ok

---

j'ai vrai ;)
A+

:yaisse2:

Code:

---

1 2 3 4 5 6 7

If (UserPPM.Calendar1.Value <= Cells(b, 4).Value) And (Cells(b, 4).Value <= UserPPM.Calendar2.Value) Then somme = somme + Cells(b, 7).Value b = b + 1 Else b = b + 1   End If

---

ca marche!!!

merci bien :king: