Re : Optimiser le temps de calcul sur un gros fichier
Re
Je souhaiterais dans ce classeur, créer une macro qui lance la macro précédente (Formules), puis qui lance le calcul dans tout le classeur mais selon des plages que j'ai sélectionné. J'ai essayé ceci mais ça ne fonctionne pas correctement:
Sub Analyse()
'
' Analyse Macro
'Lancement de la macro Formule
Sheets("Bilan horaire").Select
Formules
'Selection des données
Sheets("Données").Select
Range("G9").Select
Range(Selection, Selection.End(xlDown)).Select
Sheets("Bilan horaire").Select
Range("J9:L36,J42:K52").Select
Sheets("Bilan journalier").Select
Range("G9:H9,B9:C36,G9:I36,K18:N18,K21:M21").Select
Sheets("Semaine 1").Select
Range("A16:A183,E16:F183,I16:K183,P16:S22,P30:S31,P43:S43,P36:S38").Select
Sheets("Semaine 2").Select
Range("A16:A183,E16:F183,I16:K183,P16:S22,P30:S31,P43:S43,P36:S38").Select
Sheets("Semaine 3").Select
Range("A16:A183,E16:F183,I16:K183,P16:S22,P30:S31,P43:S43,P36:S38").Select
Sheets("Semaine 4").Select
Range("A16:A183,E16:F183,I16:K183,P16:S22,P30:S31,P43:S43,P36:S38").Select
Sheets("Surfaces actives").Select
Range("C9:M36").Select
Sheets("Synthèse").Select
Range("C8
35,G12:K22").Select
Sheets("Jour Type").Select
Range("D9:E1448,G9:J32,I37:J46").Select
'Lancement du calcul
Selection.Calculate
End Sub
Merci de votre aide