Discussion :

[C15nantes]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

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

[Jean-Philippe André]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

deviendra

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MarcelG]

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.

[C15nantes]

Bonjour à tous les 3,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.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

[MarcelG]

Bonjour C15,

"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...

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.

[Invité]

Combien de lignes donne ce code ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Patrice740]

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

[C15nantes]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

formule :=$I12=0

s'applique à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=$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