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

Je n'ai pas testé.

PGZ

**akramus** · 23/02/2009, 14h20

Ca ne fonctionne pas non plus .. le

Code :

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

application.calculate

ne s'exécute qu'une seule fois

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

Tu vois comment qu'il ne s'exécute qu'une fois?

PGZ

**Pierre Fauconnier** · 23/02/2009, 14h39

Bonjour

Et avec

Code :

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

Application.calculatefull

Dois-tu toujours boucler pour réaliser plusieurs calculs?

**akramus** · 23/02/2009, 14h39

comme je l'ai dit à mon premier message, les données s'affichent après trois calculs manuels . (manuellement en pressant F9 à chaque fois cela marche très bien) mais là non. Et puis avec un pas à pas détaillé la boucle où se trouve le DoEvents ne tourne pas, alors que manuellement le calcul prend 30 sec au bas mot

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

Je pense aussi que

Code :

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

Application.CalculateFull

est la solution.
Ou de désigner les feuilles à calculer.

PGZ

**akramus** · 23/02/2009, 15h03

Ni l'un ni l'autre ...

je commence à déssespérer . Le problème c'est que manuellement cela marche très bien .

je précise que la raison pour laquelle les données ne s'actualisent pas dès le premier calculate est que ce sont des formules bloomberg

**pgz** · 23/02/2009, 15h17

Bizarre.

J'ai fait un essai avec une simple fonction de cumul et
1. la méthode Calculate de l'objet Application ne fonctionne qu'une fois
2. la méthode Calculate de l'objet WorkSheet fonctionne 3 fois
3. la méthode CalculateFull de l'objet Application fonctionne 3 fois.

Tu as testé avec quel code?

PGZ

**akramus** · 23/02/2009, 15h26

J'ai essayé avec application.calculatefull et worksheet.calculate et ça n'a rien changé ..

**Pierre Fauconnier** · 23/02/2009, 15h32

ET avec

Code :

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

application.CalculateFullRebuild

Dans ce cas, Excel "ressaisit" les formules...

**akramus** · 23/02/2009, 15h46

alors cela marche avec

Code :

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

application.calculatefullrebuild

c'est à dire que le calcul se fait bien 4 fois
mais le souci c'est que cette fois-ci le données ne sont pas recalculées malgré l'affichage du recalcul sur la status bar ...

**Pierre Fauconnier** · 23/02/2009, 15h52

As-tu accès aux fonctions en VBA utilisées dans les cellules?

Si oui, il faudrait ajouter

Code :

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

Application.Volatile

pour forcer le recalcul de la fonction lors du recalcul des feuilles

**akramus** · 23/02/2009, 16h01

Rien n'y fait !!

en fait à partir du 2ème recalcul on dirait que le calcul se fait dans le vide, le pourcentage défile très vite alors que manuellement il s'écoule une vingtaine de secondes ..

**Pierre Fauconnier** · 23/02/2009, 16h13

En manuel, après le premier calcul, la barre affiche "Prêt" ou affiche toujours "Calculer"?

**pgz** · 23/02/2009, 16h15

Tu peux essayer

Code :

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

Application.Calculation = xlCalculationManual

pour voir.

PGZ

**akramus** · 23/02/2009, 16h16

la barre affiche prêt a l'extrême gauche et calculer un peu plus loin

**akramus** · 23/02/2009, 16h19

Pour le xlcalculationmanual j'ai déjà essayé sans succès ainsi qu'un rebasculement en xlcalculationautomatic

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

Macros et VBA Excel

Discussions similaires

Partager

Partager