lenteur code macro

Bonjour à tous et à toutes,

J'ai un fichier qui me permet de gérer ma cave à vins - je sais, nul n'est parfait.

Je le trouve de plus en plus lent ; pourtant il n'y a pratiquement pas de calcul, il s’étend sur 13 colonnes * 390 lignes

La première macro que j'utilise permet d'insérer une ligne vide en tête de tableau pour faire une nouvelle entrée

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Sub Nouvelle_entrée() ' ' Macro4 Macro '   '       Application.ScreenUpdating = False     Range("A12:M12").Select Selection.Copy Range("A12").Select Selection.Insert Shift:=xlDown Range("A12:M12").Select Application.CutCopyMode = False Selection.ClearContents Range("K12").Select ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"   Range("A12").Select ActiveCell.Value = Date   MsgBox "Après une entrée, pensez à faire un tri", vbOKOnly       Application.ScreenUpdating = True         End Sub

---

Elle s’exécute en près de 1 minute :(

Y aurait-il une amélioration et/ou correction à lui apporter pour que cela soit plus rapide ?

Merci de votre réponse
A+
C15

Citation:

---

Envoyé par C15nantes

---

Bonjour,

Regardez si vous améliorez le temps de traitement en neutralisant le calcul automatique le temps de créer cette nouvelle ligne.

Salut,

en plus des subtilités de calcul automatique, on peut envisager la fusion des lignes de code pour des instructions inutiles :

Code:

---

1 2	Range("K12").Select ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"

---

deviendra

Code:

---

Range("K12").FormulaR1C1 = "=RC[-2]*RC[-1]"

---

Bonjour,

J'ajouterai, pour ma part, une autre piste.
Vérifier la présence d'une procédure évènementielle.
Dans l'affirmative, neutraliser celle-ci (Je laisse traduire)

Bien entendu, je souscris aux indications de mes 2 collègues (salut).
Notamment en ce qui concerne ces f... Select qui ne servent à rien si ce n'est à rendre le code plus lourd.
L'enregistreur de macro est certes utile. Il n'en demeure pas moins la nécessité de le purger.

Parallèlement, ma préférence irait à la propriété Formula plutôt que FormulaR1C1 car elle est plus éloquente.

Bonjour à tous les 3,

Merci pour vos réponses.
J'ai annulé le calcul automatique
J'ai modifié les formules en supprimant les

Code:

---

.select

---

Aucune amélioration :(

Pour info, dans ce fichier simple, j'ai quelques macros que j'active selon le besoin, via quelques boutons (faire une nouvelle saisie, faire un tri, un sous-total...)
Je ne pense pas avoir créer de procédure événementielle, comment le vérifier ?

Par ailleurs j'observe que même la suppression d'une simple ligne prend une lenteur anormale ; de plus j'ai de temps en temps le message "cave...ne répond pas" avant que cela ne réagisse.
Merci de votre aide

A+
C15

Bonjour C15,

Citation:

---

"cave...ne répond pas"

---

Je ne vois pas la signification de ce message.
Humour:
Ma cave, elle, répond toujours en Valpolicella, Soave, Refeosco...:D

Citation:

---

Je ne pense pas avoir créer de procédure événementielle, comment le vérifier ?

---

Une procédure évènementielle, sur tableur, est intégrée au code des objets Worksheet et Workbook
Pour le vérifier, tu peux consulter chaque objet de l'explorateur d'objets dans l'éditeur VBE
Il s'agit des procédures Change, Selection_change...

Une autre piste.
Effectuer l'exécution du code en pas à pas.
Tu pourras ainsi constater les différentes lignes de code parcourues par le débuggeur et, partant, déceler la méthode qui génère cette lenteur.

Citation:

---

Envoyé par C15nantes

---

Combien de lignes donne ce code ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test()   With ActiveSheet   Debug.Print "Dernière ligne colonne A : " & .Cells(.Rows.Count, 1).End(xlUp).Row & _ Chr(10) & "Nombre de lignes utilisées : " & .UsedRange.Rows.Count   End With   End Sub

---

Bonjour,

Avec XL2007, à force d’insérer des lignes, tu as peut-être une multiplication de MFC inutiles, à vérifier : MFC / gérer les règles / pour : Cette feuille de calcul

Bonjour

Merci à tous de vos réponses.

A priori c'est effectivement une répétition de MEFC qui fichait le bazar.

J'ai tout supprimé pour ne garder que la MEFC suivante :

Code:

---

formule :=$I12=0

---

s'applique à

Code:

---

=$A$12:$M$288

---

Qui fait que lorsque le stock d'une de mes références est = 0, toute la ligne passe en rouge

Par contre, je m'aperçois qu'à chaque fois que j'insère une ligne cette MEFC est répétée ; ce qui fait qu'à la longue cela va ralentir le système.

Comment éviter cela ?

Merci de votre aide
A+
C15