Temps de comptage cellules trop long

[poipoi]

bonjour
comment est-il possible de réduire le temps de mise à jour des macros de ce classeur
car à chaque saisie de couleur le temps d'attente est important...
sont-ce les liens qui ralentissent?? les formules qui sont fausses?
ou y a t'il trop de cellules à calculer??
d'avance merci à vous si vous pouvez y jeter un coup d'oeil

 

[Fred0o]

Re : Temps de comptage cellules trop long

Bonjour poipoi,

En effet, ton fichier est une plaie, il met un temps infini à calculer et les recalculs se lancent tout seuls.

Peux-tu m'expliquer à quoi sert ce code qui est recopié dans chaque feuille :

Dim celluleAvant
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not IsEmpty(celluleAvant) Then
     If Not Intersect(Range(celluleAvant), [B3:E9]) Is Nothing Then Calculate
  End If
  celluleAvant = Target.Address
End Sub

Et qui porte sur le champ [B3:E9], champ qui ne correspond pas à grand chose dans tes feuilles de mois. chacun de ces codes relancent le calcul à chaque changement de cellule !

Je pense qu'une partie de la lenteur vient de là.

A+

 

[Roland_M]

Re : Temps de comptage cellules trop long

bonsoir

il manque avant l'exécution des codes
Application.EnableEvents = False
et à la fin remettre
Application.EnableEvents = True

sinon ça boucle !

 

[poipoi]

Re : Temps de comptage cellules trop long

Bonjour Roland_M, Fred0o,
bonjour à tous
je nai pas donné suite aux réponses données car je n'étais pas au bureau ce week-end.
ceci dit, après pas mal de tentatives, je n'arrive pas à avoir un temps de réponse rapide dès lors que je saisis une couleur !!
pour Fred0o:
le code correspond "maintenant" à la plage de cellules (c6:ag113) où je saisis les couleurs;
Pour Roland_M:
où dois-je placer ces lignes "Application.EnableEvents = False" ... , car après avoir fait plusieurs essais le temps de réponses est encore plus long, je dois faire une boulette mais où ??