Discussion :

[issoram]

Salut à tous,

J'essaie (sans succès) de faire patienter ma macro jusqu'à ce que le recalcul d'une feuille soit terminé.

Code :

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

1
2
3
4
5
Application.Calculation = xlCalculationManual
Application.Calculate
While Application.CalculationState <> xlDone
  DoEvents
Wend

Le code ci dessus a l'air de fonctionner mais j'aimerais vraiment éviter de recalculer tout le classeur avec:

Code :

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

 Application.Calculate

Je préférerais quelque chose comme:

Code :

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

1
2
3
4
5
Application.Calculation = xlCalculationManual
Sheets("maFeuille").Calculate
While Application.CalculationState <> xlDone
  DoEvents
Wend

Mais quand je fais ça, Application.CalculationState n'est jamais égal à xlDone et je me retrouve dans une boucle infinie.

Avez vous une idée de comment faire?

Merci par avance.

[Theze]

Bonsoir,

Et avec ceci ?

Code :

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

1
2
 
While Not Application.Ready

Hervé.