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