Discussion :

[Miigui]

Bonjour,

Après quelques recherche sur internet je n'ai pas trouvé une réponse pertinente à ma question.
En effet, j'aimerais savoir si il existe une méthode qui puisse permettre d'attendre la fin des calcul de ma feuille pour ensuite poursuivre la macro.

Merci de votre aide.

[antonysansh]

Bonjour Miigui,

Voilà un exemple de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    Dim TempModeCalcul As XlCalculation
    TempModeCalcule = Application.Calculation 'recuperation du mode de calcule du classeur
 
    Application.Calculation = xlCalculationManual 'passage en calcule manuel
        '
        'Premiere Partie du code
        '
        Application.Calculate 'Calcule tout le classeur (le code passe a la ligne suivante a la fin du calcul)
        '
        'Seconde Partie du code
        '
    Application.Calculation = TempModeCalcul 'retabli le mode de calcul avant execution de la Sub
End Sub

Tu peux remplacer Application.Calculate par Thisworkbook.Sheet("Nom de la feuille").Calculate pour calculer une seule feuille.

[unparia]

Bonjour
Le calculs (formules) de Excel sont faits dans un fil (thread) distinct de celui de VBA.
Je vois personnellement mal , dans ces conditions, comment la solution que tu proposes, antonysansh, telle que tu la proposes, pourrait pallier la difficulté exposée.

PS : se donner une chance en ajoutant un DoEvents ou plusieurs en boucle. Mais je n'aime pas trop car c'est "estimer arbitrairement" le temps nécessaire aux calculs.
Ou encore : déterminer quelle est la dernière cellule calculée. En relever la valeur au début de la macro et boucler jusqu'à constater une modification de sa valeur puis exécuter le reste des instructions de la macro.

Voilà bien l'une des raisons pour lesquelles je n'aime personnellement pas que l'on fasse cohabiter Excel (ses formules) et VBA

[zenpbb]

Bonjour,

Peut-être en utilisant Application.CalculationState (voir l'aide) dans un Do...Loop ?