Discussion :

[DenisHen]

Bonjour à la communauté.
Je bute sur un ralentissement d'Excel.
En VBA, j'ai des Sub dans une feuille qui remplissent des centaines de cellules, mais j'ai aussi un Worksheet_Change dans cette même feuille.
Du coup, lorsque qu'un Sub s'exécute, le Worksheet_Change prend systématiquement la main.
De ce fait, lors du remplissage de la feuille, Excel fait des "mises à jour" ? ou effectue des "contrôles" pendant le Sub, et ça prends quelques secondes à chaque fois.
Je cherche donc à désactiver le Worksheet_Change pendant le Sub...
Quelqu'un aurait une astuce, une variable, une idée ?
Denis...

[Pierre Fauconnier]

Salut.

C'est un bonne chose que de remettre en fin de macro les propriétés telles qu'on les a trouvées en entrée de macro. Et cela va de pair avec une gestion d'erreur pour être certain de remettre les choses en sortant.

Pour les évènements, on a Application.EnableEvents qui prend une valeur booléenne.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Test()
  On Error GoTo Catch
  Application.EnableEvents = False
  ...
  ...
 
Catch:
  Application.EnableEvents = True
  If Err Then MsgBox ...
End Sub

Pour le mode de calcul, on veillera aussi à le remettre comme il était. Je vois trop souvent des codes qui le remettent en Automatic en fin de macro alors qu'il ne l'était peut-être pas en début. Perso, c'est au travers d'une fonction de mon module xlTools.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function ToggleCalculationMode(Optional CurrentMode As XlCalculation)
  Static CalculationMode As XlCalculation
 
  If CurrentMode = 0 Then
    If CalculationMode = 0 Then
      Application.Calculation = xlCalculationAutomatic
    Else
      Application.Calculation = CalculationMode
    End If
  Else
    CalculationMode = Application.Calculation
    Application.Calculation = CurrentMode
  End If
End Function

On lui passe le mode de calcul vers lequel on veut basculer, elle mémorise le mode actuel en static avant de basculer. Si on appelle la fonction sans argument, elle rétablit celui qui était actif avant. Si pas de mode mémorisé, elle passe en Automatic

[DenisHen]

Bonjour Pierre et un grand merci pour ton aide.
Bonne journée à la communauté.
Denis...