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