XL 2016 VBA - Code anormalement lent

[danielco]

Bonjour,

Le code ci-dessous prend une demi-seconde pour s'exécuter. Pouvez-vous l'améliorer ?

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Tabl() As Long, C As Range, Ctr As Long
  deb = Timer
  If Target.Count > 1 Then Exit Sub
  If Target = "" Then Exit Sub
  Application.EnableEvents = False
  If Target.Column = 9 Then
    Target.Offset(1, -8).Select
  ElseIf Target.Column = 3 Then
    Target.Offset(, 3).Select
  ElseIf Target.Column = 1 Then
    If [L1] = 402 Then Target = "P" & Target
    Debug.Print Timer - deb

C'est l'insertion du "P" qui est anormalement longue.

PS. En calcul manuel, je passe à 0,4 sec.

Merci d'avance.

Daniel

 

[danielco]

Résolu. le responsable est le calcul automatique.

Daniel

 

[pierrejean]

Bonjour danielco
Ta macro n'est pas complète
les essais que j'ai pu faire n'ont pas montré un délai excessif !!!

 

[danielco]

Bonjour danielco
Ta macro n'est pas complète
les essais que j'ai pu faire n'ont pas montré un délai excessif !!!

Bonjour et merci d'avoir répondu. Je viens de poster un rectificatif. J'ai ajouté 32000 formules matricielles et elles impactent le temps d'exécution. Je suis passé en calcul manuel et c'est OK, maintenant.

Désolé.