optimiser une macro

tototiti2008

XLDnaute Barbatruc

• 4 Juillet 2012

• #2

Re : optimiser une macro

Bonsoir billou, Bonsoir CC,

Pour la lancer il faut cliquer sur demain​

Cliquez pour agrandir...

On va peut-être attendre demain alors...

 

Vote positif 0 Vote négatif

B

billou74

Guest

• 4 Juillet 2012

• #3

Re : optimiser une macro

c est clair que vous pas comprendre.lol
le fichier est trop volumineux je l ai placé ici ed1.xls - 4shared.com - partage et stockage de fichiers en ligne - télécharger


Merci

 

Vote positif 0 Vote négatif

B

billou74

Guest

• 4 Juillet 2012

• #4

Re : optimiser une macro

je voulais essayer d enlever les .selection
J pense que c est une début
y a t il dèautres choses que je peux optimiser ?

 

Dernière modification par un modérateur: 4 Juillet 2012

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 4 Juillet 2012

• #5

Re : optimiser une macro

Bonjour le fil, bonjour le forum,

Billou j'ai voulu télécharger ton fichier mais il faut s'inscrire... je doute que tu obtiennes de l'aide dans ces conditions !

 

Vote positif 0 Vote négatif

B

billou74

Guest

• 4 Juillet 2012

• #6

Re : optimiser une macro

ah
oki
Connais tu un autre service ou je peux deposer le fichier ?

 

Vote positif 0 Vote négatif

B

billou74

Guest

• 4 Juillet 2012

• #7

Re : optimiser une macro

merci carcharodon-carcharias

fichier rar => Lien CJoint.com 0GetELcbjZc

 

Vote positif 0 Vote négatif

B

billou74

Guest

• 4 Juillet 2012

• #8

Re : optimiser une macro

pour le zip - > http://cjoint.com/?0Get7fCsRmM

 

Vote positif 0 Vote négatif

B

billou74

Guest

• 5 Juillet 2012

• #9

Re : optimiser une macro

personne pour m aider ou ai je loupe qq chose

 

Vote positif 0 Vote négatif

F

flyonets44

XLDnaute Occasionnel

• 6 Juillet 2012

• #10

Re : optimiser une macro

bonjour
en retour ton fichier à tester
essaies de supprimer les select si possible
Cordialement
Flyonets

 

Pièces jointes

• ed1.zip

  289.9 KB · Affichages: 41
• ed1.zip

  289.9 KB · Affichages: 47
• ed1.zip

  289.9 KB · Affichages: 48

Vote positif 0 Vote négatif

B

billou74

Guest

• 6 Juillet 2012

• #11

Re : optimiser une macro

Un grand merci a toi.

 

Vote positif 0 Vote négatif

B

billou74

Guest

• 6 Juillet 2012

• #12

Re : optimiser une macro

ma macro ralenti de plus en plus excel et fini par me mettre excel en "ne repond pas"
qq1 a t il deja eu ce pb ?
Et comment faut il faire pour l erradiquer?

 

Dernière modification par un modérateur: 6 Juillet 2012

Vote positif 0 Vote négatif

B

billou74

Guest

• 6 Juillet 2012

• #13

Re : optimiser une macro

pour victor21

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Juillet 2012

• #14

Re : optimiser une macro

Bonsoir à tous





billou74
Pas sympa pour MyDearFriend de zapper son nom... 😛
Récupération de données turfiques du site gény course [Forums - Espace Débutants] : myDearFriend! Excel Pages
(Dans lequel on trouvera le fichier crée à l'époque par Didier et qui est un peu plus léger que celui déposé sur cjoint par billou74)

Si qq1 pouvait m aider a optimiser la macro que j ai bricolée.

Cliquez pour agrandir...

Demande à Didier sur son site ou ici puisqu'il est aussi un membre du forum XLD.

NB: Les habitudes du forum sont de ne pas doubler les fils (cf la charte d'XLD), inscrit depuis 2007, je m'étonne que tu ne le saches pas...
Donc pour ceux qui veulent suivre, c'est ici le post initial



PS: J'aime pas envie d'indiquer que jadis la netiquette était plus respectée par les gens qui peuplent les forums.
Les temps changent comme le chantait si bien le grand Bob

 

Dernière édition: 7 Juillet 2012

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Juillet 2012

• #15

Re : optimiser une macro

Re

Histoire d'apporter un peu d'aide tout de même

VB:

'classe par favoris
  Range("AX3:AZ3").Copy
  Range("AW3").PasteSpecial Format:=3, link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Selection.Copy
  Range("AW4").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, transpose:=True
Application.CutCopyMode = False

Dans toutes ces lignes de codes, il est avantageux d'éviter les Select (qui ralentissent l'éxécution du code
Donc le code ci-dessus peut aussi s'écrire

VB:

'classe par favoris
     Range("AX3:AZ3").Copy
     Range("AW3").PasteSpecial Format:=3, link:=1, DisplayAsIcon:=False, _
        IconFileName:=False
    Selection.Copy
     Range("AW4").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, transpose:=True
    Application.CutCopyMode = False

Utilise partout où c'est possible cette méthodologie dans ton code, et tu devrais gagner de la rapidité.

 

Dernière édition: 7 Juillet 2012

Vote positif 0 Vote négatif