Discussion :

[DeejayGD]

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 :

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
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

[DeejayGD]

Bonjour à tous

Je pense avoir trouvé.

Dans ma ligne 4 j'ai de nombreuses mise en forme conditionnelle, lorsque je la copie en ligne 10 les mises en formes condi' se copient aussi. Du coup plus le temps passe et plus la copie par la macro est longue...
En effet lorsque je supprime toute les mises en formes conditi' le temps de validation est de 1s contre 40s pour 35000 lignes !!!

J'aimerais donc savoir s'il est possible d'ajouter une ligne dans le VBA qui me permettrait de copier que "la couleur de remplissage" (donnée par la mise en forme condi') et non directement les formules de mes mises en forme conditionnelle ?!

Peut être quelque chose du style PasteSpecial Paste:=xlPaste...
Mon code est déjà présent un peu plus haut.

Merci d'avance !

[nchal]

Bonjour,

Je ne sais pas lequel xlPasteType tu as besoin mais j'ai trouvé sa : http://msdn.microsoft.com/fr-fr/library/ff837425.aspx

(kiki, si tu passes sur ce topic, dsl de t'avoir piqué ton job)