tri tableau et copie suivant 2 dates

Bonjour,
soit un tableau dates en colonne A, trié par date
dates butoirs en B1 et C1
la macro suivante copie les lignes entre les 2 dates de la colonne A à la colonne L

Sub CopieZone()
Dim Datedébut, DateFin as date
Dim i, début, fin As Long

Datedébut=Range("B1").value
Datefin=range("C1").value
i = 1
début = 0

Do: i = i + 1
Loop Until Range("A" & i).Value = Datedébut
début = i
Do: i = i + 1
Loop Until Range("A" & i).Value > DateFin
fin = i - 1
Range("A" & début, "L" & fin).Copy
End Sub

Re bonjour,

et merci

j'ai essayé mais ca ne marche pas il ne me colle pas les cellules.Ci joint le fichier avec les explications de ce que je voudrais faire.

Merci

Bonsoir désespoirtotal, tatiak.


Tu peux essayer de lier ton bouton à la procédure suivante :

Sub CopieZone()
Dim TabTemp As Variant
Dim CelDepart As Range, CelResult As Range
Dim L As Long, C As Byte
Dim D1 As Date, D2 As Date
Dim NL As Long
   With ActiveSheet
      'Dates Début et Fin
      D1 = .Cells(7, 2)
      D2 = .Cells(7, 3)
      '1ère cellule du tableau de donnée et 1ère cellule du tableau de résultat
      Set CelDepart = .Cells(9, 1)
      Set CelResult = .Cells(28, 1)
      'Chargement d'un tableau temporaire variant
      TabTemp = CelDepart.CurrentRegion.Value
      'Pour chaque ligne de donnée
      For L = 1 To UBound(TabTemp, 1)
         'Si date OK
         Select Case TabTemp(L, 1)
         Case D1 To D2
            'Copie la ligne dans le tableau résultat
            For C = 1 To UBound(TabTemp, 2)
               CelResult.Offset(NL, C - 1).Value = TabTemp(L, C)
            Next C
            NL = NL + 1
         End Select
      Next L
   End With
End Sub


Cordialement.

Didier_mDF

Bonjour à tous,
Voici le fichier avec ma solution adaptée à l'exemple de désespoirtotal, mais elle est peut être moins rapide que celle de Didier_mDF?

Re à tous
cette version est plus fonctionnelle

Merci à tous lesdeux,

J'ai choisi la solution de tatiak car c'est celle que je comprends le mieux(pour l'instant, en attendant de me perfectionner avec toutes les instructions VBA).

Mais les deux fonctionnent.

Merci bcoup ,bon week end à vous deux et longue vie au forum et à ce merveilleux site!!!!