[VBA] [RÉSOLU] Possibilité d'accélérer copie de lignes?

T

tashiqi

XLDnaute Occasionnel

• 7 Août 2013

• #2

Re : [VBA] Possibilité d'accélérer copie de lignes?

Re-bonjour !
j'imagine que tu as un
Application.ScreenUpdating = False
au début et un
Application.ScreenUpdating = True
à la fin ?

 

Vote positif 0 Vote négatif

S

skye.in.sky

XLDnaute Nouveau

• 7 Août 2013

• #3

Re : [VBA] Possibilité d'accélérer copie de lignes?

Application.ScreenUpdating = False au début : OUI
Application.ScreenUpdating = True à la fin : NON

Je vais voir en remettant le screenupdating.

 

Vote positif 0 Vote négatif

T

tashiqi

XLDnaute Occasionnel

• 7 Août 2013

• #4

Re : [VBA] Possibilité d'accélérer copie de lignes?

Je ne pense pas que cela va changer...
Peut-on avoir un fichier ?

 

Vote positif 0 Vote négatif

S

skye.in.sky

XLDnaute Nouveau

• 7 Août 2013

• #5

Re : [VBA] Possibilité d'accélérer copie de lignes?

ça n'a pas beaucoup de changement de le remttre en =true.

Peut être légérement.
Aurait-il pas une autre façon de copier les feuilles?
Sachant aussi que je serais en fichier partagé donc .selection interdit..
(oui je cherche compliqué je sais..)

 

Vote positif 0 Vote négatif

T

tashiqi

XLDnaute Occasionnel

• 7 Août 2013

• #6

Re : [VBA] Possibilité d'accélérer copie de lignes?

Éventuellement, tu peux essayer de tout copier et seulement ensuite de supprimer les lignes inutiles

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Août 2013

• #7

Re : [VBA] Possibilité d'accélérer copie de lignes?

Bonjour,

si formules et procédures événementielles dans le classeur, tu peux utiliser ceci :

Code:

With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
End With
'ton code
With Application
    .Calculation = xlCalculationAutomatic
    .EnableEvents = True
    .ScreenUpdating = True
End With

bon après midi
@+

 

Vote positif 0 Vote négatif

S

skye.in.sky

XLDnaute Nouveau

• 7 Août 2013

• #8

Re : [VBA] Possibilité d'accélérer copie de lignes?

Est ce que si je fais une copie seulement valeur dans l'onglet "consolidation" aiderait ?

Voici le fichier en PJ 🙂

ID : jennifer
MDP : pass

 

Pièces jointes

• CONSOLIDATION_LONGUE.xlsm

  337.2 KB · Affichages: 98
• CONSOLIDATION_LONGUE.xlsm

  337.2 KB · Affichages: 98
• CONSOLIDATION_LONGUE.xlsm

  337.2 KB · Affichages: 99

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Août 2013

• #9

Re : [VBA] Possibilité d'accélérer copie de lignes?

Re,

pas sûr que tu ais vu le post #7....

 

Vote positif 0 Vote négatif

S

skye.in.sky

XLDnaute Nouveau

• 7 Août 2013

• #10

Re : [VBA] Possibilité d'accélérer copie de lignes?

Ne cherchez plus, c'est la feuille 'Graphs' qui me rallonge le temps de macro..

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 7 Août 2013

• #11

Re : [VBA] Possibilité d'accélérer copie de lignes?

Bonjour le fil, bonjour le forum,

Peut-être comme ça (non testé) :

Code:

Sub Macro1()
Dim ws As Object
Dim dest As Range

t = Timer()
Application.ScreenUpdating = False
For Each ws In Worksheets
    Select Case ws.Name
        Case "Consolidation", "Graphs", "listes", "DroitsUsers", "Vierge"
        Case Else
            Set pl = ws.Range("A1").CurrentRegion
            Set pl = pl.Offset(2, 0).Resize(pl.Rows.Count - 2, pl.Columns.Count)
            ws.Range("A1").AutoFilter Field:=13, Criteria1:="<>"
            Set dest = Sheets("Consolidation").Range("A65000").End(xlUp).Offset(1, 0)
            pl.SpecialCells(xlCellTypeVisible).Copy dest
            ws.AutoFilter
    End Select
Next ws
Application.ScreenUpdating = True
MsgBox Timer() - t
End Sub

 

Vote positif 0 Vote négatif

S

skye.in.sky

XLDnaute Nouveau

• 7 Août 2013

• #12

Re : [VBA] Possibilité d'accélérer copie de lignes?

Robert à dit:

Bonjour le fil, bonjour le forum,

Peut-être comme ça (non testé) :

Code:

Sub Macro1()
Dim ws As Object
Dim dest As Range

t = Timer()
Application.ScreenUpdating = False
For Each ws In Worksheets
    Select Case ws.Name
        Case "Consolidation", "Graphs", "listes", "DroitsUsers", "Vierge"
        Case Else
            Set pl = ws.Range("A1").CurrentRegion
            Set pl = pl.Offset(2, 0).Resize(pl.Rows.Count - 2, pl.Columns.Count)
            ws.Range("A1").AutoFilter Field:=13, Criteria1:="<>"
            Set dest = Sheets("Consolidation").Range("A65000").End(xlUp).Offset(1, 0)
            pl.SpecialCells(xlCellTypeVisible).Copy dest
            ws.AutoFilter
    End Select
Next ws
Application.ScreenUpdating = True
MsgBox Timer() - t
End Sub

Cliquez pour agrandir...

Il me dit erreur 'utilisation incorrecte de la propriété' sur Autofilter

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 7 Août 2013

• #13

Re : [VBA] Possibilité d'accélérer copie de lignes?

Bonjour le fil, bonjour le forum,

Je ne dispose chez moi que de la version Excel 2003 et je ne peux malheureusement pas modifier le code pour l'adapter à 2007. J'ai remplacé la boucle sur toutes les lignes par un filtre automatique des cellules non vides de la colonne M. Ensuite j'ai copié la plage visible dans dest. Essaie d'adapter à 2007, je pense que ça doit être un peu plus rapide que la boucle...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Août 2013

• #14

Re : [VBA] Possibilité d'accélérer copie de lignes?

Re, bonsoir Robert🙂

Sous 2010, peut même pas accéder au projet vba de ton fichier.... est vérouillé.... ton bouton consolider me plante excel.... pas top non plus les fichiers protégés par mot de passe sur le forum....

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Août 2013

• #15

Re : [VBA] Possibilité d'accélérer copie de lignes?

Bonsoir à tous

Moi je proposerais bien de remplacer la petite boucle par quelque chose de ce genre :

VB:

ws.[M3:M65000].SpecialCells(xlCellTypeConstants, 23).EntireRow.Copy Destination:=Sheets("Consolidation").Range("A65000").End(xlUp).Offset(1, 0)

À tester.

 

Vote positif 0 Vote négatif