XL 2013 Planning Gantt

CGU2022.

XLDnaute Junior
Bonjour j'ai établi un planning de GANTT qui fonctionne.

Il me semble très lent avec les macros.

Pouvez vous y jeter un œil et peut être l'optimiser (mdp: 1)
1703161949293.png

Une idée pour mettre une MFC avec formule en vba:
1703162062190.png

1703162078416.png
 

Pièces jointes

  • Planning exceldownload.xlsm
    91.3 KB · Affichages: 19

crocrocro

XLDnaute Occasionnel
Bonjour,
ce sont les protections - dé-protections de la feuille (à chaque procédure appelée) qui consomment essentiellement.
J'ai aussi supprimé les sélections pour certaines actions comme ici
VB:
        Columns("G:HL").EntireColumn.Hidden = False
        Rows("5:51").EntireRow.Hidden = False
et la boucle de masquage des lignes (gain de 0.3") ici
Code:
    ' Masque les lignes sous la dernière cellule non vide dans la colonne A jusqu'à la ligne 55
    'For i = lastRow + 1 To 49
    '    ws.Rows(i).Hidden = True
    'Next i
    ws.Rows(lastRow + 1 & ":" & 49).Hidden = True
J'ai ajouté un timer en fin de maj, temps consommé pour chaque procédure et le total.
les protections- dé-protections sont mises en commentaires dans la pj
Avant suppression des protections - dé-protections : 3" , après on tombe à 0.6".
avec la suppression de la boucle de masquage, on tombe à 0.1"
 

Pièces jointes

  • Planning exceldownload_crocrocro.xlsm
    90.1 KB · Affichages: 21
Dernière édition:

Statistiques des forums

Discussions
312 210
Messages
2 086 279
Membres
103 170
dernier inscrit
HASSEN@45