XL 2010 Tableau excel mise à jour lente

[atd49]

Bonjour

J'ai créé un planning sous excel avec une multitude de mise en forme conditionnelle et cela implique que mon planning est lent à ce mettre à jour lors de saisies
Je pense que ce sont les mises en forme qui sont le problème. Y a-t-il des solutions?
Le principe du planning est de mettre dans des cellules appropriées un n° des taches (voir onglet tache) et ces cellules se mettent automatiquement en forme suivant les conditions fixées, idem pour des cellules concernant le matériel

Bonne journée

 

[sylvanu]

Bonjour Atd,
Effectivement il y a de la MFC ! 🙂
en PJ un essai ... sans MFC donc un peu plus rapide.
Cependant je n'ai pas pu copier les couleurs des MFC, je n'ai trouvé que copier ces couleurs si elles étaient dans l'index.
Donc j'ai mis des couleurs arbitraires.
La palette est dans l'onglet Codes. Chaque Nom est associé à une couleur;
On peut modifier cette palette mais il faut repasser la macro ColorePage sur chaque page pour remettre à jour.
A essayer pour voir si cela vous va.

 

[sylvanu]

Bonjour,
J'ai pu récupérer les bonnes valeurs.
Si ça peut vous être utile.

 

[atd49]

Bonjour,
J'ai pu récupérer les bonnes valeurs.
Si ça peut vous être utile.

 

[atd49]

Bonsoir

je vous remercie
j'essaie de comprendre les macros

Bonne soirée

 

[sylvanu]

Dans chaque feuille Sxx il faut le code pour détecter un changement de valeur d'une cellule :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo FinChange
' ex MFC : $A$167:$AT$170;$A$55:$E$166;$H$55:$AT$166;$F$55:$G$134;$A$4:$AT$54
     Set Plage = Application.Union(Range("$A$167:$AT$170"), Range("$A$55:$E$166"), Range("$H$55:$AT$166"), Range("$F$55:$G$134"), Range("$A$4:$AT$54"))
    If Not Intersect(Target, Plage) Is Nothing Then
         Colore (Target.Address)
    End If
FinChange:
End Sub

Ensuite c'est simple, tout est dans GestionCouleurs.
Quand on clique sur une cellule, on regarde si le contenu de celle ci est référencés dans Code Colonne A.
Si on le trouve alors on copie la couleur.