Temps de calcul avec "Datediff"

Version imprimable

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:

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.

11/04/2018, 20h19
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, …
12/04/2018, 05h02
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
12/04/2018, 07h05
kiki29

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

Bonjour,

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

Code:

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

12/04/2018, 08h01
Invité

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

Code:

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

Dateserial

Code:

<dateserial(year(date),mounth(date)-6,day(date))
13/04/2018, 17h14
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 !!!