Discussion :

[a.petitjean1]

Bonjour,

Je dois vérifier des données externes, pour cela j'ai un fichier de vérification (PJ) avec des formules automatisées en VBA (Enregistrement auto). Mon problème est que le temps de traitement de ces formules est très long et fait régulièrement planter le fichier.

Je peux recevoir des fichiers de plus de 100 000 lignes vérifier, j'ai donc fait mes formules sur des plages de lignes jusqu'à 150 000....ce qui je pense fait bugger le traitement.

Comment puis-je faire pour accélérer l'exécution de ces macros ?

Merci d'avance de votre aide.

En PJ le fichier, avec des données test. Il s'agit de la macro : Rechercher_Doublons dont le code est ci-dessous :

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
21
22
23
24
25
26
27
 
Sub Rechercher_Doublons()
'
' Rechercher les doublons de ref vendeur et d'ean
'    
    Range("AW4").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF((R4C4:R150000C4),RC[-45])>1"
    Range("AW4").Select
    Selection.Copy
    Range("AW4:AW150000").Select
    ActiveSheet.Paste
    Range("AW4:AW150000").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    Range("AX4").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF((R4C2:R150000C2),RC[-48])>1"
    Range("AX4").Select
    Selection.Copy
    Range("AX4:AX150000").Select
    ActiveSheet.Paste
    Range("AX4:AX150000").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

[joe.levrai]

Bonjour,

autant de lignes et de formules à évaluer, on ne pourra pas réduire à envie le temps de traitement

en conservant scrupuleusement ta mécanique, et à la lecture seule de ta procédure, je t'invite à déjà tester ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Rechercher_Doublons()
Application.ScreenUpdating = False
    With Range("AW4:AW150000")
        .FormulaR1C1 = "=COUNTIF((R4C4:R150000C4),RC[-45])>1"
        .Value = .Value
    End With
 
    With Range("AX4:AX150000")
        .FormulaR1C1 = "=COUNTIF((R4C2:R150000C2),RC[-48])>1"
        .Value = .Value
    End With
Application.ScreenUpdating = True
End Sub

[Jean-Philippe André]

Salut,

est-il envisageable de faire une bascule de ce traitement sous Access et non Excel ?

[a.petitjean1]

Aujourd'hui tout le process est dans excel, donc pas possible de passer sur Access

Je test la solution de joe.levrai et je vous donne le résultat.

Merci à vous.

Aurélien

[a.petitjean1]

Le traitement à durée 10 minutes.. pour 60 lignes :-(

N'est-il pas possible avant de traiter la ligne de vérifier si il y a une données ? cela permettrait de limiter le traitement uniquement aux lignes pleine ?

Aurélien

[joe.levrai]

10 minutes ???

J'ai pris mon courage à deux mains, et j'ai ouvert (très rare) ton fichier
Outre le classeur de 22Mo qui est une aberration, la procédure a mis 1 minute (j'ai compté très large) pour identifier les doublons et écraser les formules

Je ne vois pas d'autre solution que de passer par un tableau interne pour traiter les données et ensuite injecter les résultats dans tes deux colonnes