Optimiser VBA insertion et copie de lignes
Bonjour à tous
Tout d'abord merci d'avance à ceux (celles) qui vont lire ce sujet.
Mon problème est simple, j'ai une macro (bouton Valider) qui me sert à insérer une ligne et venir copier des données précedemment saisie (avec des cellules vérouillées qui contiennent des formules) dans cette même ligne et ainsi de suite.
Cependant lorsque j'arrive vers 400 lignes c'est de plus en plus long à valider alors qu'avant tout se passe très bien, et sur l'ancien fichier (sous 2003) il y avait 5 fois plus de lignes et la validation était toujours aussi rapide(excel 2003 n'est plus présent sur les postes suite à une mise à jour serveur...)
Je suis actuellement à environ 15s, il me semble que ça fait beaucoup pour seulement 400 lignes...
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Sub Valider1()
'
' Valider Macro
'
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Rows("10:10").Insert Shift:=xlDown
Rows("4:4").Copy
Rows("10:10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("10:10").PasteSpecial Paste:=xlPasteFormats
Range("t4:w4,y4,aa4:Ac4,Af4,Ah4,Aj4:Al4,Ao4,Aq4,At4:Au4").ClearContents
Range("t4").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub |
Explication:
Je sélectionne ma ligne 10, j'insère une ligne
Je sélectionne la ligne 4, je copie les données puis je viens les copier en ligne 10
Je supprime certaines données lignes 4 et j'en garde d'autres en mémoire
Je viens ranger le curseur en t4 pour la prochaine saisie.
Merci d'avance pour vos lumières
Cdt
