Discussion :

[alex santus]

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 :

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

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

[mercatog]

D'abord, mets les balises pour afficher ton code (signe #)

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 :

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

1
2
3
4
5
DateDebut = CDate(TextBoxDateDebut.Value)
DateDeFin = CDate(TextBoxDateFin.Value)
...
If CelSourceTest.Value >= DateDebut And CelSourceTest.Value <= DateDeFin Then
...

[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

[mercatog]

Laquelle?

[alex santus]

Le 09/05/09 et il a bien pris la ligne et copié dans un autre onglet