vitesse d'execution d'une macro

[eduraiss]

bonjour le forum.

j'ai une macro qui me permet sur deux feuille différente de recuperer des codes mais aussi des valeurs si les cellules de la ligne 80 sont >0.
mon problème est que sa vitesse d'execution est relativement longue
voici la macro
Private Sub Worksheet_Activate()
Dim nbMatieres As Integer, cpt1 As Integer, org As Variant, dest As Variant

'Application.ScreenUpdating = False


Set org = Sheets("calcul besoin")
Set dest = Sheets("besoin")
nbMatieres = org.Range("IV80").End(xlToLeft).Column
dest.Range("a3:j200").ClearContents

For cpt1 = 8 To nbMatieres
If org.Cells(80, cpt1) > 0 Then
org.Cells(80, cpt1).Copy
dest.Range("c65536").End(xlUp)(2).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False _

org.Cells(6, cpt1).Copy
dest.Range("b65536").End(xlUp)(2).PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False

org.Cells(5, cpt1).Copy
dest.Range("a65536").End(xlUp)(2).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False _
'eclatement semaine


org.Cells(82, cpt1).Copy
dest.Range("d65536").End(xlUp)(2).PasteSpecial Paste:=xlValues

org.Cells(83, cpt1).Copy
dest.Range("e65536").End(xlUp)(2).PasteSpecial Paste:=xlValues

org.Cells(84, cpt1).Copy
dest.Range("f65536").End(xlUp)(2).PasteSpecial Paste:=xlValues

org.Cells(85, cpt1).Copy
dest.Range("g65536").End(xlUp)(2).PasteSpecial Paste:=xlValues

org.Cells(86, cpt1).Copy
dest.Range("h65536").End(xlUp)(2).PasteSpecial Paste:=xlValues

org.Cells(87, cpt1).Copy
dest.Range("i65536").End(xlUp)(2).PasteSpecial Paste:=xlValues

org.Cells(88, cpt1).Copy
dest.Range("j65536").End(xlUp)(2).PasteSpecial Paste:=xlValues



End If
Next cpt1



Application.CutCopyMode = False

End Sub
peut -on accelerer sa vitesse

merci de votre aide

a+

 

[Luki]

Re : vitesse d'execution d'une macro

Bonsoir,

Probablement, oui.

Mais ça serait plus simple avec un fichier demo(de manière à ne pas devoir se retaper toutes les saisies avant de faire les essais...)

A te lire

 

[eduraiss]

Re : vitesse d'execution d'une macro

bonsoir Luki et merci pour ta réponse.

je viens de faire le fichier et la la macro va relativement vite, par contre sur mon fichier qui est trop lourd pour être envoyer il lui faut au moin 90 seconde avant d'avoir le résultat

voici le fichier

a+

 

[eduraiss]

Re : vitesse d'execution d'une macro

Re bonsoir

je viens de trouver une solution je mets au debut de ma macro un calcul sur ordre et de repasse en automatique a la fin


Merci encore

A+

 

[Luki]

Re : vitesse d'execution d'une macro

Bonne idée,

Je jetterai un oiel tout de même, voir s'il y a d'autres pistes.

A+

 

[Luki]

Re : vitesse d'execution d'une macro

Re,

Dans la mesure où (je n'ai pas vérifié chaque ligne de code) tu veux ramener simplement des valeurs dans ta feuille besoin, pas la peine de faire du copier coller.

Ceci:
org.Cells(82, cpt1).Copy
dest.Range("d65536").End(xlUp)(2).PasteSpecial Paste:=xlValues

peut être remplacé par:
dest.Range("d65536").End(xlUp)(2).value=org.Cells(82, cpt1).value

voire même par:
dest.Range("d65536").End(xlUp)(2)=org.Cells(82, cpt1)

Tu devrais gagner en vitesse encore.

Tu peux aussi gagner en utilisant es groupe WITH qui permet au code de référencer l'objet une seule fois donc aller plus vite:

With org

.cells(82,cpt1)
.cells(n,cpt1
.etc.....

end with

Voilà.

Bonne soirée

 

[eduraiss]

Re : vitesse d'execution d'une macro

Re

Merci a nouveau luc

Je regarde ce que je peux faire avec ses petites modifs

Bonne soirée

A+