Discussion :

[CactusMalus]

Bonjour à toutes et tous

Je pense que je fais fausse route...
Pour faire simple: Je cherche à recopier des lignes entières d'une feuille "source" sur une "cible" en fonction de la date d'une colonne (la première pour l'exemple) de la feuille "source".
La ligne est copiée si la date en colonne A est supérieure à 6 mois
Voici l’idée:

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
19
20
 
Sub test2()
Dim deltaD As Integer            'Ecart en mois entre la date de la colonne 1 et aujourd’hui feuille source
Dim deltaDmax As Integer       'Selection des dates a recopier
Dim lignedesign As Long         'Cosmetique > Pour selectionner où recopier les lignes sur feuille cible
deltaDmax = 6                      'Definition du nb de mois
lignedesign = 11
 
    Worksheets("cible").Cells.ClearContents
 
    For Each ligne In Worksheets("source").Range("1:6500").Rows
    deltaD = DateDiff("m", ligne.Cells(1, 1), Now)
 'Recopie la ligne de la feuille "source" sur le feuille "cible" si la date est plus eloignee ou égale de 6 mois
    If deltaD >= deltaDmax Then
    ligne.Copy Destination:=Worksheets("cible").Rows(lignedesign).Cells(1, 1)
    lignedesign = lignedesign + 1
    End If
    Next
 
End Sub

Le résultat est celui que je souhaite... mon problème est que la macro prend....20 secondes pour traiter 10 lignes.
Le fichier final en comprend 2000.. Je n’ose même pas y penser...

Éternel débutant, je pense que je ne prends pas les choses par le bon bout... Me tourne donc vers vous :-)

Merci beaucoup pour votre aide.
Cordialement.

[Marc-L]

Bonjour !

Oublier le VBA un moment et se poser la question côté Excel, comment effectuerais-tu le test ?

Car déjà en appliquant le B-A-BA d'Excel par code, une boucle - forcément longue - serait totalement inutile !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[LeBo74]

Bonjour,

Pour faire du pouce sur le dernier commentaire, as-tu pensé à utiliser un filtre élaboré en recopiant les données filtrés sur une autre feuille.
Tu évites ainsi de passer par la boucle et tu devrais obtenir le même résultat.

Cordialement

[kiki29]

Salut, à lire et pratiquer : Les filtres avancés ou élaborés dans Excel

[Theze]

Bonjour,

Une piste avec copie du filtre (les entêtes sont aussi copiées) :

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
19
 
Sub CopieFiltre()
 
    Dim Plage As Range
 
    With Worksheets("source")
 
        'date en colonne A
        Set Plage = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp))
 
        Plage.AutoFilter 1, ">" & CLng(Date - 180)
 
        .AutoFilter.Range.EntireRow.Copy Worksheets("cible").Cells(1, 1)
 
        Plage.AutoFilter
 
    End With
 
End Sub

[Invité]

Bonjour,
Je t'invite à regarder du côté de filtre avancé ou élaboré ansi que datedif.

Code :

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

datedif("M",date,"2018-01-01")>6

Dateserial

Code filtre élaboré :

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

<dateserial(year(date),mounth(date)-6,day(date))

[CactusMalus]

Effectivement, tellement plus simple et ... rapide.

Pourquoi faire simple quand on peut faire compliqué...
Mon souci est résolu !

Encore une fois... MERCI infiniment pour vos lumières !!!