rendre l'execution d'un code plus rapide

herve62

XLDnaute Barbatruc

• 25 Mars 2012

• #2

Re : rendre l'execution d'un code plus rapide

Bonjour
Ajoute au début ( après Sub)
Application.ScreenUpdating = False
remet à TRUE à la fin

 

Vote positif 0 Vote négatif

L

la fifine

XLDnaute Occasionnel

• 25 Mars 2012

• #3

Re : rendre l'execution d'un code plus rapide

bonjour hervé et merci
entre-temps une recherche m'a permis de trouver ceci

Code:

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

le délai à été ramené à env 10/15 sec
j'ai mis une statusbar avec un message demandant de patienter ça fera l'affaire en attendant mieux
mais pour ce qui est du code par lui même est-il 'optimisable'

 

Dernière édition: 25 Mars 2012

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 25 Mars 2012

• #4

Re : rendre l'execution d'un code plus rapide

il lui faut env. 15 secondes pour executer sur mon pc

Cliquez pour agrandir...

? Ou est le Temps gagné

le délai à été ramené à env 10/15 sec

Cliquez pour agrandir...

Ton Statusbar va encore ralentir....
Sinon comparé à un de mes exemples au niveau Nb cellules : 8 à 10 sec sera bien

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 25 Mars 2012

• #5

Re : rendre l'execution d'un code plus rapide

Bonjour
Essayez en évitant d'aller chercher à chaque passage dans la boucle la valeur de la cellule I33 de la feuille "mode d'emploi"
Cherchez la une bonne fois pour toutes au début et mettez la dans une variable que vous utiliserez à la place.
À +

 

Vote positif 0 Vote négatif

L

la fifine

XLDnaute Occasionnel

• 25 Mars 2012

• #6

Re : rendre l'execution d'un code plus rapide

herve62 à dit:

? Ou est le Temps gagné

Ton Statusbar va encore ralentir....
Sinon comparé à un de mes exemples au niveau Nb cellules : 8 à 10 sec sera bien

Cliquez pour agrandir...

au départ le délai était de 30 sec env
j'ai rectifié sur mon premier post finalement c'est une bêtise
je vais remettre les 30 sec d'avant vos solutions sur le post du début

 

Vote positif 0 Vote négatif

L

la fifine

XLDnaute Occasionnel

• 25 Mars 2012

• #7

Re : rendre l'execution d'un code plus rapide

Dranreb à dit:

Bonjour
Essayez en évitant d'aller chercher à chaque passage dans la boucle la valeur de la cellule I33 de la feuille "mode d'emploi"
Cherchez la une bonne fois pour toutes au début et mettez la dans une variable que vous utiliserez à la place.
À +

Cliquez pour agrandir...

bonjour dranreb
et comment vous feriez cela? svp
les variables ce n'est pas mon fort
en sachant que je souhaite garder la range("i31") pour que cela reste modifiable par un utilisateur sans aller dans la vba

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 25 Mars 2012

• #8

Re : rendre l'execution d'un code plus rapide

VB:

Sub EffaceCelluleAncienne()
Dim C As Range, NbJ As Long
NbJ = Sheets("mode d'emploi").Range("i31").Value
For Each C In Range("A6:a1200")
   If C.Value <> "" Then
      If C.Value + NbJ < Date Then 'variable nombre de jours
         C.Offset(, 1).Resize(3, 10).ClearContents
         End If
      End If
   Next C
End Sub

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 25 Mars 2012

• #9

Re : rendre l'execution d'un code plus rapide

Bonjour

En dehors de la variable pour le nombre de jour
Je vois juste un If qui peut être éviter

Code:

Sub EffaceCelluleAncienne()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim C As Range, NbJ As Long
NbJ = Sheets("mode d'emploi").Range("i31").Value
With Range("A6")
For Each C In .Resize(Rows.Count - .Row, 1).SpecialCells(xlCellTypeConstants)
    If C.Value + NbJ < Date Then C.Offset(, 1).Resize(3, 10).ClearContents
Next C
End With

Application.ScreenUpdating = True
End Sub

Sinon a tester la performance d'une matrice
Mettre tes données dans une matrice
faire le traitement sur la matrice
Et écraser ton tableau avec la matrice modifier

 

Vote positif 0 Vote négatif

L

la fifine

XLDnaute Occasionnel

• 25 Mars 2012

• #10

Re : rendre l'execution d'un code plus rapide

re
dranreb
ton code fonctionne mais ne me permet pas de gagner du temps je l'ai pris quand même
habitude le tien ne fonctionne pas(?)

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 26 Mars 2012

• #11

Re : rendre l'execution d'un code plus rapide

Envoie ton fichier...

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 26 Mars 2012

• #12

Re : rendre l'execution d'un code plus rapide

Bonjour la fifine, le fil, le forum,_ une proposition (avec selection pour visualiser le résultat)_ Cordialement

 

Pièces jointes

• Exemple(1).xls

  81.5 KB · Affichages: 61
• Exemple(1).xls

  81.5 KB · Affichages: 63
• Exemple(1).xls

  81.5 KB · Affichages: 60

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 26 Mars 2012

• #13

Re : rendre l'execution d'un code plus rapide

Re_Pour descendre en dessous de 0,02 seconde_ Après, promis, j'arrête 🙂) _ Cordialement

 

Pièces jointes

• Exemple(2).xls

  64.5 KB · Affichages: 73
• Exemple(2).xls

  64.5 KB · Affichages: 79
• Exemple(2).xls

  64.5 KB · Affichages: 80

Vote positif 0 Vote négatif

L

la fifine

XLDnaute Occasionnel

• 26 Mars 2012

• #14

Re : rendre l'execution d'un code plus rapide

bonsoir à tous
merci efgé pour ta proposition
je l'ai adoptée
mais dans mon classeur elle met env.4 à 5 sec

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Mars 2012

• #15

Re : rendre l'execution d'un code plus rapide

Bonsoir.
Vous n'auriez pas une Worksheet_Change dans votre feuille qui s'exécuterait à chaque ClearContents ?
Si c'est le cas ajoutez encore Application.EnableEvents = False en tête
Cordialement

 

Vote positif 0 Vote négatif