Discussion :

[Kaiba]

Bonjour ,

J'ai un petit souci avec une selection selon une date debut et date fin .

Mon tableau :

COL A COL B COL C COL D

10/07/2007 Text1 Text2 Text3
12/07/2007 Text1 Text2 Text3
15/07/2007 Text1 Text2 Text3
17/07/2007 Text1 Text2 Text3
19/07/2007 Text1 Text2 Text3

L'utilisateur selectionne une date debut ( A1 ) et une date fin ( A2 ) .

J'aimerais trouver toutes les dates comprises entre date debut et date fin ( incluses ) , ceci dans une boucle For Each.

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For Each Cells in Range("A6:A" & derligne)
If [la formule pour trouver les bonne dates] Then
 
'Traitement
 
End If
 
If [une formule si aucune valeur n'est trouvé , ou si les dates sont mal entrées]
 
'traitement
 
End if
 
Next cell

D'avance merci de votre aide.

Cordialement.

[mordrhim]

pour comparer deux date je fais ceci :

Code :

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

1
2
3
4
5
6
Dim Date1 as Date, Date2 as Date
 
Date1 = "10/01/2006"
Date2 = "10/05/2007"
 
Int(Date1) < Int(Date2) 'Rend True

A savoir que la date est en fait un réél avec la partie entiere qui est un calcul de la date et pa partie réelle qui est un calcul de l'heure.

Par exemple 22/06/2007 15:10:25
est la traduction de 39255,6322337963 en date

[Kaiba]

Code :

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

1
2
3
4
5
6
Dim Date1 as Date, Date2 as Date
 
Date1 = "10/01/2006"
Date2 = "10/05/2002"
 
Int(Date1) < Int(Date2) 'Rend True

A ce moment ton code est erroné puisque , je pense , Date2 est inferieur a Date1 ? !

Mon but n'est pas de comparé deux dates mais trouvés les autres ENTRE ces deux dates.

[mordrhim]

faute de frappe : 2007 message précédent édité
Ensuite je t'ai donné tous les éléments qu'il te fallait.
rappelle-toi de tes cours, comment tu fais pour savoir si une valeur est entre 2 autres ?
Si a < b et b < c alors a < b < c et ô ! Magie on a bien b compris entre a et c

Excuse moi si je te parle ainsi mais tes messages laissent croire que tu veux qu'on te ponde ton code.
Avec ce que je t'ai donné tu peux largement faire tes tests si tu as un semblant de connaissance en programmation.


EDIT : si tu veux inclure les bornes, <= et >= te seront utiles

[Kaiba]

Trop loin l'ecole ^^

Merci ca marche impec.

A la prochaine fois