Simplification de code puisqu'il est très lent

Question

Je ne sais pas si vous allez pouvoir m'aider puisque c'est assez complexe et je ne suis pas le meilleur en VBA. J'ai un fichier Excel où j'ai créer un échancier pour faire le suivi des projets de construction. Il fait exactement ce dont j'ai besoins, les codes fonctionnes sans encombre. Toutefois, maintenant que tous les codes VBA sont en place dans la feuille, mais aussi les formules qui se retrouve dans les cellules, il s'avère que tout est très lent et n'est plus utilisable sans frustration à cause de la lenteur. Je me demandais alors si vous pouviez m'aider à alléger les codes ou les formules afin que le fichier soit adéquatement utilisé. J'ai tenté de de faire des Exit Sub pour alléger le VBA et d'insérer des Application.EnabledEvents, mais rien n'y fait et malheureusement mes connaissance s'arrête là... Je vous joins le ficher : Est-ce que quelqu'un connait le remède?! Merci d'avance à tous :)...

BsAlv · Accepted Answer

Re, les formules de G:H sont disparu et remplacées par le résultat de la macro "Echeancier" qui est lancée par le "worksheet_Change" Je vois que cette macro fait sa tâche en 0.05 sec, mais ça prend 0.8 sec pour mettre à jour la feuille (les MFCs et les calcules des colonnes R:BG. La macro peut aussi faire une partie/tout de cela . Voir feuille MFCs, là vous voyez toutes les MFCs de votre feuille, les MFCs 4 à 9 (entouré de rouge) sont facile à remplacer par la macro et je pense que ça fait gagner du temps Donc, maintenant, 1. Ce remplacement des formules par la macro, c'est mieux ? 2. Remplacer quelque MFCs par une macro ...

BsAlv · Answer

Colonne G est une monstruosité de formule, surtout le "indirect", qui est "volatile" (à récalculer chaque fois). N'est ce pas possible de remplacer la colonne G par une fonction personnalisée, qui fait exactement la même chose que cette formule ? Un simple essai, (ne sauvegarde pas votre fichier après cette manipulation ou sauvegarde avec un autre nom), si vous copier la colonne G et vous collez "les valeurs" sur la colonne elle-même, alors toutes les formules "G" sont disparues. Du coup, le fichier est devenu plus vite ...

BsAlv · Answer

Re, pouvez-vous me donner un fichier avec &gt;10 lignes d'exemples. Ce sera une fonction, environ comme celle ci La fonction "DateEtape" me semble trop compliquée, elle fait qoui exactement ? Pouvez-vous aussi dire (juste que signifie cette abréviation) à quoi sert DD, DF, FD, FF ? Function CedL(Lien, S As Range, Dates, Jr, Ant, Déc, Jours_Spéciaux) With Sheets("ÉCHÉANCIER DU PROJET") If StrComp(S, "S", 1) Then a = DateEtape(True, S.Row) Else Select Case UCase(Lien) Case "DD": a = WorksheetFunction.WorkDay_Intl(.Cells(Ant + 8, 7), Déc, Jours_Spéciaux) Case "DF": a = WorksheetFunction.WorkDay_Intl(.Cells(Ant + 8, 7), Déc - IIf(Jr = 0, 1, Jr), Jours_Spéciaux) Case "FD": a = WorksheetFunction.WorkDay_Intl(.Cells(Ant + 8, 8), Déc + 1, Jours_Spéciaux) Case "FF": a = WorksheetFunction.WorkDay_Intl(.Cells(Ant + 8, 8), Déc + IIf(Jr = 0, 0, -Jr + 1), Jours_Spéciaux) Case Else: a = "???" End Select End If End With CedL = a '=ALS.FOUT(ALS($C9="S";DateEtape(WAAR;RIJ()); 'ALS($L9="DD";WERKDAG.INTL(INDIRECT(ADRES($M9+8;7));$N9;TEKST.SAMENV(TB_Jourdetravail);Jours_Fériés); 'ALS($L9="DF";WERKDAG.INTL(INDIRECT(ADRES($M9+8;7));ALS($F9=0;$N9-1;$N9-$F9);TEKST.SAMENV(TB_Jourdetravail);Jours_Fériés); 'ALS($L9="FD";WERKDAG.INTL(INDIRECT(ADRES($M9+8;8));$N9+1;TEKST.SAMENV(TB_Jourdetravail);Jours_Fériés); 'ALS($L9="FF";WERKDAG.INTL(INDIRECT(ADRES($M9+8;8));ALS($F9=0;$N9;$N9-$F9+1);TEKST.SAMENV(TB_Jourdetravail);Jours_Fériés);"")))));"") End Function...

BsAlv · Answer

Re, premier essai, une macro "Echeancier()", qu'on doit, pour le moment encore lancer manuellement, parce que le "Worksheet_Change"-event est encore occupé par vos macros. Elle calcule 300 tâches en 30 msec et copie le résultat vers la plage BI9:BJ308 et ces cellules sont égales aux cellules G9:H308. Donc, si vous êtes d'accord, on remplace toutes les formules des colonnes G:H par cette macro et on verra si tout fonctionne encore. J'utilise la colonne J et K pour annuler le calcul du début et fin et prendre directement ces valeurs. (Pour les tâches 02 et 15, il n'y avaient pas des formules pour le début ) Une chose bizarre, si vous commencez un tâche le samedi (par exemple tâche 02 = samedi 14/10/2023 et cela prend un jour le résultat est le même jour, pour moi, cela doit être le lundi, parce que le samedi, on ne travaille pas. Le plus gros gain de temps, c'est qu'on lit toutes les données 1 fois au début et on écrit le résultat global une fois vers le fichier. Puis quand vous changez quelque chose hors les colonnes A:N, cela ne provoque pas une récalculation...