Lenteur execution macros

Bonjour à tous et à toutes,

J'ai un classeur pour gérer ma cave (13 colonnes / 177 lignes actuellement / 1 seule colonne avec calcul basique)

J'ai plusieurs macros pour la plupart sont très longues à s’exécuter
Par exemple celle ci dessous s’exécute en 43 secondes avec le fait qu'au bout de 30 secondes environ j'ai un problème d'affichage du haut de ma feuille ou j'ai mis des boutons de déclenchement:

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

Sub Nouvelle_entrée() ' ' Nouvelle_entrée Macro '   '   Application.EnableEvents = False   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   Application.EnableEvents = True   Application.ScreenUpdating = True         End Sub

---

La ligne

Code:

---

Application.EnableEvents = False

---

Est liée au fait que pour une feuille j'ai la procédure suivante

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range)   Range("I12").Select If Not Intersect(Target, Columns("I")) Is Nothing Then Target.Offset(0, -8).Value = Date End If   End Sub

---

Enfin pour info, même une suppression de ligne dure longtemps.

Merci de votre aide.

Bonnes fêtes à tous et à toutes

C15nantes

Bonjour,
Quel est l'intérêt de la ligne 14 copy vue que tu ne fais pas de paste (coller)?

Est-ce que la gestion de ta cave te poses problème à toute heure de la journée ou seulement aux heures de l'apéritif!

N'utilises pas de select mais fusionne les select et sélection.

Code:

---

1 2	Range("A12:M12").Select Selection.Copy

---

Code:

---

Range("A12:M12").Copy

---

Code:

---

Range("A12").Value = Date

---

Bonjour,

J'ai trouvé la raison de cette lenteur d'exécution.

J'avais trop de MEFC, notamment liées à des formules ; j'ai sérieusement simplifié et cela va mieux.

Bonne journée

C15nantes

Tu peux ajouter une ligne au debut de ton macro qui render le calcul manual et à la fin du code tu le retourne automatic.