Accélerer traitement VBA

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:

---

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

---

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:

---

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

---

Salut,

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

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

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

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

au lieu de coller la formule dans la cellule il vaut mieux faire le calcul en VBA en n'écrivant que le résultat dans les cellules.
C'est souvent le recalcul du classeur qui prend du temps.