Récupération de l'affichage de la status bar

**akramus** · 23/02/2009, 12h25

Bonjour à tous

Je travaille sur un gros fichier dans lequel j'ai désactive le calcul automatique.
Pour arriver aux données finales , il faut effectuer un recalcul manuel 3 fois de suite au minimum

Je voudrais automatiser ce recalcul et donc déclencher un deuxième calcul après que le premier soit terminé et un troisième après que le deuxième soit terminé. J'ai bien essayé d'utiliser la propriété application.calculationstatus mais rien y fait lorsqu'elle est à xldone, cela ne semble pas correspondre au "prêt" qui est affiché sur la status bar. Commet pourrais-je faire pour détécter le vrai moment ou excel est de nouveau prêt pour un recalcul ???

Merci d'avance

**pgz** · 23/02/2009, 12h42

Bonjour.

C'est peut-être

Code :

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

Application.Ready

la propriété que tu cherches.

PGZ

**akramus** · 23/02/2009, 13h49

Bonjour PGZ

application.ready a l'air de fonctionner mais cela ne me règle toujours pas mon problème . Voici un extrait du code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Do While compteur <= 4
   Application.Calculate
   Do
   Application.StatusBar = "calcul en cours"
   Loop Until Application.Ready = True
 
Application.StatusBar = "phase" & compteur & "terminée"
compteur = compteur + 1
 
Loop
 
Application.StatusBar = False

Il n'y a aucune erreur qui ets soulevée mais le calcul ne se fait qu'un seule fois seulement ...

**pgz** · 23/02/2009, 14h06

Regarde si cela fonctionne avec :

Code :

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

1
2
3
4
5
6
7
8
9
For Compteur = 1 To 3
   Application.Calculate
   Application.StatusBar = "Calcul en cours phase " & Compteur
 
   Do
        DoEvents
   Loop Until Application.Ready = True
 
Next Compteur