MAJ + F9 en vitesse de rafraîchissement macro et macro

Question

J'ai créé deux macros liées.

L'un d'entre eux génère des copies d'une certaine feuille dans un classeur. Le problème ici est que je dois appuyer sur Maj + f9 dans toutes les feuilles copiées pour mettre à jour mes valeurs. J'ai déjà utilisé calculate et application.calculate = xl ......

La deuxième macro appelle les valeurs de la première macro et effectue une opération sur celle-ci. Le problème ici est qu'après avoir exécuté la première macro et en utilisant shift + f9, mettre à jour toutes les feuilles .. si je cours cette deuxième macro en utilisant un bouton assigné il ne fonctionne pas mais si je marche dans la macro fonctionne correctement.

je pense qu'il est parce que les valeurs de première fois de prendre macro pour rafraîchir donc ce problème se produit ..

Macro1:

Sub macro1() 
Worksheets("Excel Inputs").Activate 
If Sheets("Excel Inputs").Cells(11, "P") = 3 Then 
    Sheets("Valuation 02").Delete 
    Sheets("Valuation 03").Delete 
ElseIf Sheets("Excel Inputs").Cells(11, "P") = 2 Then 
    Sheets("Valuation 02").Delete 
End If 
Length = WorksheetFunction.CountA(Range("B13:B15")) 
For i = 1 To Length - 1 
    Sheets("Valuation 01").Copy After:=Sheets(4 + i) 
    Sheets(4 + i + 1).Name = "Valuation 0" & (i + 1) 
    Application.Calculation = xlCalculationAutomatic 
Next i 
    Sheets("Excel Inputs").Cells(11, "P") = Length 
End Sub 

Quelqu'un peut-il me aider à ce sujet?

Answer 1

Habituellement, je vais utiliser Application.onTime Now + TimeValue("hh:mm:ss"),"macro2"
pour résoudre ce type de problème. Vous pouvez configurer macro2 pour qu'il s'exécute avec un certain délai sur macro1.

Et assurez-vous à la fin de votre macro1, Application.calculation = xlCalculationAutomatic ou Application.CalculateFullRebuild

Si cette méthode est pas assez bon, vous devez utiliser une cellule ou d'une variable globale comme le gardien de déterminer si tous les calculs sont terminés .
Par exemple, à la fin de marco1, continuez à utiliser l'événement Application.onTime pour vérifier la valeur de la cellule <> "" et si elle n'est pas encore terminée, appelez récursive.

Référence: Application.OnTimeApplication.CalculateFullRebuild