Discussion :

[madininais]

Bonjour,

Vos conseils m'ont toujours aidé donc je reviens vers vous encore une fois.

J'ai une feuille de mon classeur qui contient une très grosse base (200 000 lignes de 10 colonnes).
J'utilise une deuxième feuille pour réorganiser et transformer cette base. Une macro me copie colle les colonnes C D et F par exemple, et les autres colonnes de cette nouvelle feuille contiennent des RECHERCHEV associés aux cellules des collones de ma première feuille, donc en gros la macro ne touche pas à ces colonnes qui se mettent à jour toutes seules.

Mon problème est que le travail de cette macro dure 15 minutes (100 fois plus long que si je le faisai à la main).

Voila la procédure que j'utilise pour chaque colonne :

Code :

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

1
2
3
4
5
6
7
8
9
Dim l As Long
 
    l = Sheets("base").Cells(3, 3).End(xlDown).Row
 
    Range(Sheets("base").Cells(2, 8), Sheets("base").Cells(l, 8)).Copy
 
    Sheets("Récap sorties").Range("H4").Select
      Selection.pasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False

(J'utilise donc un copier coller en valeurs)

Le tout est très très long et j'attend des idées qui pourraient me permettre d'améliorer le process...

Merci d'avance,

[AlainTech]

Bonjour,

Première chose: Eviter les Select et Selection.

Ceci

Code :

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

1
2
3
   Sheets("Récap sorties").Range("H4").Select
      Selection.pasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False

peut être remplacé par

Code :

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

   Sheets("Récap sorties").Range("H4").pasteSpecial Paste:=xlPasteValues

Ensuite, tu peux fortement accélérer le processus en désactivant les mises à jour d'écran et les calculs en début de procédure:

Code :

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

1
2
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual

et les réactiver à la fin:

Code :

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

1
2
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic

J'espère que ceci t'aidera et que tu viendras nous dire le résultat.
Plusieurs de tes discussions se terminent sans nouvelles de ta part...