trié des date avec une boucle for each

Version imprimable

Bonsoir a tous,
j ai un problème pour extraire des ligne entière d un tableau avec comme critère les date.
j ai crer un user qui recupere la date de début et la date de fin et je voudrai extraire toute les ligne entre ces deux date malheureusement ca ne se pase pas comme je le voudrai !!!

j ai mis un petit bout du code si quelle pourai m aider ce serai génial
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 DateDebut = TextBoxDateDebut.Value DateDeFin = TextBoxDateFin.Value CelSourceDeTri = "b8:b" & WSachat.Range("a65536").End(xlUp).Row For Each CelSourceTest In WSachat.Range(CelSourceDeTri) If CelSourceTest.Value >= DateDebut And CelSourceTest.Value <= DateDeFin Then WSachat.Range("a" & CelSourceTest.Row & ":k" & CelSourceTest.Row).Copy CelDestination.PasteSpecial (xlPasteValuesAndNumberFormats) End If Next
d avance merci
Alex

02/09/2009, 23h49
mercatog
D'abord, mets les balises pour afficher ton code (signe #)

Citation:

ca ne se pase pas comme je le voudrai !!!

Quoi notamment? si tu peux détailler ce que tu obtiens.

Si tu essaie de faire cela
Code:

1 2 3 4 5 DateDebut = CDate(TextBoxDateDebut.Value) DateDeFin = CDate(TextBoxDateFin.Value) ... If CelSourceTest.Value >= DateDebut And CelSourceTest.Value <= DateDeFin Then ...
03/09/2009, 00h04
alex santus

Bonsoir mercatog,

j ai essayé de mettre le cdate ca fonctionne mais me donne un résulta incorrect
j ai mis dans mon tableau une dizaine de ligne avec en colonne "b" les date dont je m appuie pour faire le tri.

apres avoir coriger comme tu me la envoyé je fait un tri sur

date de début 01/01/09 date de fin 30/01/09 dans mon tableau il n y a que deux ligne en janvier qu il aurai du extraire et il m en extracté une autre qui n a rien avoir avec les critère demander
03/09/2009, 00h08
mercatog

Laquelle?
03/09/2009, 00h10
alex santus

Le 09/05/09 et il a bien pris la ligne et copié dans un autre onglet
03/09/2009, 00h31
mercatog

Si tu mettais dans le test ceci,

Code:

If DateDiff("d", DateDebut, CelSourceTest.Value) > 0 And DateDiff("d", CelSourceTest.Value, DateDeFin) > 0 Then
03/09/2009, 08h32
jfontaine

Bonjour

Tes variables sotn au format dates suite à la preconisation de mercatog

Mais je pense qu'il faudrait aussi passer la cellule au format date

Code:

If cdate(CelSourceTest.Value) >= DateDebut And cdate(CelSourceTest.Value) <= DateDeFin Then

Bonjour jfontaine,

rien a faire j ai également essayé de déclarer avec cdate mais ca donne toujours le meme résulta ainsi que retirer les date et mettre des nombre mes c est pareil, il n'extrait qu une seul ligne en l occurrence la plus grosse.

je pensais également que m a cellule de destination écrasais aussi la précédente je pense que c est correct.

je remet toujours le bout du code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Sub ExtractionDonneDateADate()
 
 
    Dim DateDebut As Long
    Dim DateDeFin As Long
    Dim NomOnglet As String
    Dim CelSourceDeTri As String
    Dim CelSourceTest As Range
    Dim CelDestination As Range
 
    'Set CelDestination = WSdestination.Range("a65536").End(xlUp).Offset(1, 0)
    Set CelDestination = WSdestination.Range("a1")
 
 
         DateDebut = UserFormExtractDateADate.TextBoxDateDebut.Value
         DateDeFin = UserFormExtractDateADate.TextBoxDateFin.Value
'            DateDebut = CDate(TextBoxDateDebut.Value)
'            DateDeFin = CDate(TextBoxDateFin.Value)
 
 
         CelSourceDeTri = "b8:b" & WSachat.Range("a65536").End(xlUp).Row
 
            For Each CelSourceTest In WSachat.Range(CelSourceDeTri)
 
 
               If CelSourceTest.Value >= DateDebut And CelSourceTest.Value <= DateDeFin Then
'                If CDate(CelSourceTest.Value) >= DateDebut And CDate(CelSourceTest.Value) <= DateDeFin Then
                WSachat.Range("a" & CelSourceTest.Row & ":k" & CelSourceTest.Row).Copy
            CelDestination.PasteSpecial (xlPasteValuesAndNumberFormats)
 
 
                End If
 
            Next
    Unload UserFormExtractDateADate

voila d avance merci

Alex

03/09/2009, 10h10
jfontaine

fais un test avec cette ligne

Code:

If cdate(CelSourceTest.Text) >= DateDebut And cdate(CelSourceTest.Text) <= DateDeFin Then
03/09/2009, 10h21
alex santus

toujour incorrect, j ai mis date de début et date de fin 01/08/09 => 31/08/09
et il ne m a extrait que le 28/08/09 alors que dans le tableau j ai quatre date entre le periode demander 18,19,26 et 28 /08/09
03/09/2009, 10h29
jfontaine

Le probleme vient plutot que tu ne changes pas l'adresse de ta cellule de destination. (CelDestination)
Il est donc normal qu'a la fin de la macro elle soit egal a la derniere valeur trouvée
03/09/2009, 10h39
alex santus

j ai essayé deux méthode avec un offset

Code:

Set CelDestination = WSdestination.Range("a65536").End(xlUp).Offset(1, 0)

et sans

Code:

Set CelDestination = WSdestination.Range("a1")

je ne voit pas quelle serrai la bonne !

il te faut utiliser la premiere solution mais dans la boucle et non avant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
For Each CelSourceTest In WSachat.Range(CelSourceDeTri)
 
 
If CelSourceTest.Value >= DateDebut And CelSourceTest.Value <= DateDeFin Then
' If CDate(CelSourceTest.Value) >= DateDebut And CDate(CelSourceTest.Value) <= DateDeFin Then
CelDestination = WSdestination.Range("a65536").End(xlUp).Offset(1, 0)
WSachat.Range("a" & CelSourceTest.Row & ":k" & CelSourceTest.Row).Copy
CelDestination.PasteSpecial (xlPasteValuesAndNumberFormats)
 
 
End If
 
Next

03/09/2009, 11h00
alex santus

YES

Un tout grand merci pour ton aide précieuse,

c était tout simplement ca, mettre la destination dans la boucle !!

encore merci

Alex