rendre l'execution d'un code plus rapide

[la fifine]

Sub EffaceCelluleAncienne()

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

dans une feuille j'ai des dates en colonne A
du 1/01/12 au 31/12/12
ce code efface les cellules sur la même ligne qui ont plus de 30 jours (range("i31"")
est-il possible de modifier quelque chose pour le rendre plus rapide
car dans l'état il lui faut env. 30 secondes pour executer sur mon pc
merci

 

[Habitude]

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

Re

Je persiste.
Voici mon code appliquer à l'exemple de Efgé

 

[Misange]

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

Bonjour
Pour tester la macro incriminée, j'ai fait une feuille exemple et j'ai mis un timer dans la macro. Résultat : 0.00 secondes pour effectuer le travail 🙂
donc à mon avis le problème ne vient pas de la macro elle même mais des feuilles.
Que contiennent les cellules à effacer ? Si elles contiennent des formules, fans la mesure ou vous travaillez avec une boucle, à chaque passage de la boucle toutes les formules dépendantes de celles effacées sont recalculées.
La façon la plus efficace en général d'optimiser un code c'est de mettre le mode de calcul sur manuel en début de macro et de le remettre sur auto à la fin

Application.ScreenUpdating = False
XlCalc = Application.Calculation
Application.Calculation = xlCalculationManual

'la macro

Application.Calculation = XlCalc
Application.ScreenUpdating = True

 

[Dranreb]

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

Bonjour
Mon observation s'appliquait à toutes les propositions, non seulement la mienne.
On subit l'inévitable embrouillamini résultant d'une intervention à plusieurs dans une demande sans pièce jointe...
Cordialement

 

[Misange]

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

Bonjour Dranreb,
nous sommes bien d'accord !

 

[Modeste geedee]

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

Bonsour® Dranreb, Misange

un excellent topic encours actuellement avec :

pointy haired dilbert
Excel Speedup & Optimization Tips by Experts | Chandoo.org - Learn Microsoft Excel Online

sourires

 

[Misange]

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

Excellent lien, avec plein de très bonnes recommandations et astuces ! et hop dans mon onenote !

 

[la fifine]

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

bonsoir je reviens un peu tardivement sur le fil
bon, je suis toujours sur des délais un peu trop long
ce qui fonctionnait à peu près l'autre jour est beaucoup trop long aujourd'hui
j'aimerais faire un essai avec une période en lieu et place de date - 30 jours
c'est à dire que ça efface les cellules entre -30 jours et -20 jours
mais je ne sais pas comment écrire cela en VBA sur cette ligne

If C Sheets("mode d'emploi").Range("j31").Value < Date and sheets("mode d'emploi") .range("j32")> date Then 'variable nombre de jours

merci

 

[Yaloo]

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

Bonjour la fifine, le forum,

Bonjour
Mon observation s'appliquait à toutes les propositions, non seulement la mienne.
On subit l'inévitable embrouillamini résultant d'une intervention à plusieurs dans une demande sans pièce jointe...
Cordialement

Ce serait bien d'avoir un fichier ....

A+

 

[la fifine]

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

bonsoir yaloo
il y a les propositions des contributeurs tu peux prendre le fichier 2 de efgé ou encore celui de dranreb
je sais c'est pas bien je n'avais pas fourni de fichier joint

 

[Yaloo]

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

Re,

Oui, on peut prendre les fichiers des contributeurs, mais avec les leur ça fonctionne, chez toi ça ne fonctionne pas, donc cela doit venir de ton fichier.

A+

 

[la fifine]

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

re
oui je sais en fait Misange à mis le doigt dessus il y a bien une worksheet change qui fiche le bazar
en fait ce que je cherche c'est comment écrire ceci en vba
range("j31") = 30
range("j32") = 15
supprimer les cellules dont la date est située entre -15 et -30 jours
parceque là la macro supprime les cellules qui sont à -30 jusqu'au 1er janvier
donc ce qui me fait peur c'est si maintenant il lui faut 30 sec pour une centaine de jours
combien de temps ça va prendre à la fin de l'année?

 

[Yaloo]

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

Re

Dans ce cas là, avec les lignes de Misange, tu mets :
au début

Application.EnableEvents = False

et à la fin

Application.EnableEvents = True

A+

 

[la fifine]

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

re
c'est bon ça fonctionne maintenant
je viens de comprendre où il fallait placer application.enableevents= false
et surtout qu'il fallait y remettre à true à la fin de la macro
merci
je n'ai pas été très performant sur ce fil