Chargement VBA très long

Bonjour,

J'ai mis en place un code VBA pour récupérer la valeur d'une SHAPE qui par la suite modifiera la valeur de filtre d'un TCD.

(compliqué à expliquer)

Le fichier n'est pas le même que celui de l'exemple que je donne.

Mon code met plus de 1 minute pour établir le résultat, ce n'est pas le cas de celui que je joint.

Y a t'il une solution pour alléger la procédure de calcul de mon code ?

EN vous remerciant de votre aide.

Bonjour,

Je ne pense pas que votre code soit à l'origine du ralentissement. La ligne ci-dessous me semble inutile car vous pourriez mettre une formule directement dans H1.

  Feuil1.Range("H1").Value = Feuil2.Range("K2").Value

En revanche, il faudrait voir si votre fichier contient beaucoup de formules et sa taille.

Hello,

T'as essayé les instructions :

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

'
'
'ton code
'
'
'
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

Tu fais du télétravail ou t'es sur un réseau partagé ?

@+

Bonjour Eric et Baroute,

C'ets sur mon PC Personnel, la taille et la quantités de formules, tableaux est conséquente.

L'objectif de cette macro était d'obtenir la forme des départements en cliquant sur l'une des 12 régions.

Je joues sur la valeur du TCD.

Je vais donc mettre un segment et le faire manuellement au lieu de passer par les shapes.

Bonjour,

Pour info, au cas où cela peut vous intéresser. Il suffit de cliquer sur la carte :

Merci beaucoup Eric, cela va bien m'aider.