Ameliorer macro (lenteur)

phlaurent55

Nous a quittés en 2020

Repose en paix

• 1 Décembre 2017

• #2

Bonjour Sabine,

La macro est rapide mais je vois que: x = Time est placé beaucoup trop haut dans le code

il eut été plus judicieux de placer cette instruction juste après:
a = InputBox("Saisir le LUNDI de la ...........................

à+
Philippe

 

Vote positif 0 Vote négatif

S

sabineG

XLDnaute Nouveau

• 1 Décembre 2017

• #3

Bonsoir Philippe

Merci de ta réponse.
J'ai fait ce que tu conseilles mais le temps d'exécution augmente toujours autant :

1er lancement = 6 secondes
2ème lancement = 16 secondes
3ème lancement = 32 secondes
4ème lancement = 53 secondes

A la fin de l'année, j'aurai le temps de faire une pause café + pause cigarette + pause pipi (hi!, hi!)

Je sais qu'il n'y a pas mort d'homme mais je pense qu'il doit exister un autre code plus rapide que celui-ci.

Sabine

 

Vote positif 0 Vote négatif

A

alphabeta

XLDnaute Nouveau

• 1 Décembre 2017

• #4

Bonjour,
Sur ma machine je fais le test au 30/06 => 22 secondes

Je change
' Dim i As Long, PremLigne As Long, Mem As Long
par
Dim i As Integer, PremLigne As Integer, Mem As Integer

je passe à 13 secondes .

Toujours cela de pris

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Décembre 2017

• #5

Bonjour le fil, le forum

Une petite suggestion pour une petit amélioration
(dans la macro BordureTout)

VB:

'Efface ligne rouge
Cells(Derlg, 1).Resize(, [NbCol]).Borders(9).LineStyle = xlNone
'x = [Plage_TCD].Rows.Count

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 2 Décembre 2017

• #6

Bon_soir

un peu plus rapide en utilisant les fonctionnalités du Tableau (copie des formats, formules ...).
Il ya aura quand même beaucoup de formules, de noms à réajuster ... donc laisser le temps au temps !

 

Pièces jointes

• Planning Semaines.xlsm

  391.3 KB · Affichages: 31

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Décembre 2017

• #7

Bonsoir Si...

Si...
Qu'est ce que Didier B. vient faire dans Excel???

Ok je sors

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 2 Décembre 2017

• #8

Bonsoir Staple
Je vois que tu ne t'es pas barbé !

 

Vote positif 0 Vote négatif