Discussion :

[Pierre Fauconnier]

Application.Ready est TRUE même lorsqu'un recalcul est en attente.

Pourrais-tu essayé de remplacer

Code :

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

Loop Until Application.Ready = True

par

Code :

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

Loop Until Application.CalculationState <> xlDone

[akramus]

J'ai essayé .. sans succès toutefois si j'ai bien compris il ya 3 états pour calculationstate : xldone, xlpending et xlcalculating

donc en théorie si on écrit :

Code :

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

Loop Until Application.CalculationState <> xlDone

on sorss de la boucle pendant le calcul ??

par ailleurs je voudrais bien connaître à quoi correspondent exactement les 3 états de calculationstate. J'ai déjà pu constater que xldone
ne veut pas dire que excel est prêt pour un recalcul ..

[Pierre Fauconnier]

XlDone (0) => aucun calcul en attente
XlCalculating (1) => Excel est en train de calculer (le compteur de % est actif)
XlPending (2) => Excel est Prêt, mais toutes les cellules n'ont pas été recalculées et Excel est en attente de recalcul (Normalement, présence du mot "calculer" sur la barre d'état

[Pierre Fauconnier]

C'est empirique... mais cela peut quand même s'essayer

Code :

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

1
2
3
4
5
6
7
 
    Do While Application.CalculationState = xlPending
        Calculate
        Do While Not Application.Ready
            DoEvents
        Loop
    Loop

[akramus]

eh bien dans ce cas je ne comprends pas . Au vu des nouveaux éclairages j'ai modifié le code que voici :

Code :

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

1
2
3
4
5
6
7
8
Do While Application.CalculationState <> xlDone
   Application.Volatile
   Application.CalculateFullRebuild
 
   Do
   DoEvents
   Loop Until (Application.Ready = True And Application.CalculationState = xlPending)
Loop

et là je tombe sur uen boucle infinie , preuve que application n'est jamais à xldone ...

[Pierre Fauconnier]

Code :

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

Application.volatile

n'a rien à faire ici. C'est en première ligne d'une fonction perso utilisée dans la feuille de calcul qu'il faut le mettre, pour indiquer que la fonction doit être réévaluée à chaque calcul.

Sinon, Bien entendu, le statut passe à xlDone à un moment donné.

C'est ta boucle

Code :

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

1
2
3
   Do
   DoEvents
   Loop Until (Application.Ready = True And Application.CalculationState = xlPending)

qui est forcément infinie puisque tu la réalises après ton premier calcul (tu m'as dit qu'après le premier calcul, Excel proposait de calculer à nouveau (mention Calculer sur la barre d'état)), puis tu boucle si on est Ready et xlPending sans rien faire dans la boucle => boucle infinie...

[akramus]

Pour

Code :

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

application.volatile

je ne vois pas où le mettre dans le code

sinon je te garantis que la deuxième boucle n'est pas infinie puisqu'il sors dès qu'il est ready et pending

c'est la première (boucle contenante) qui devient infinie . pour preuve si je laisse un for ou do while avec compteur il n ya aucun problème.

cad :

Code :

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

1
2
3
4
5
6
7
8
for i=1 to 4
   Application.Volatile
   Application.CalculateFullRebuild
 
   Do
   DoEvents
   Loop Until (Application.Ready = True) And (Application.CalculationState = xlPending)
next i

[Pierre Fauconnier]

Laisse tomber Application.Volatile pour l'instant.

As-tu essayé ma solution de 17H04

Code :

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

1
2
3
4
5
6
Do While Application.CalculationState = xlPending
        Calculate
        Do While Not Application.Ready
            DoEvents
        Loop
    Loop

Code :

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

1
2
3
4
5
6
Do While Application.CalculationState <> xlDone
        Calculate
        Do While Not Application.Ready
            DoEvents
        Loop
    Loop

devrait fonctionner aussi

[akramus]

Je viens d'essayer on sort de la boucle après le premier calculate

voudrait-ce dire qu'après le calcul il y a un moment de latence entre le xlcalculate et le xlready ??

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Do While Application.CalculationState <> xlDone
 
   Application.CalculateFullRebuild
 
   Do While Not Application.Ready
 
   DoEvents
   Loop
 
If Application.CalculationState = xlDone Then MsgBox "done"
Loop

le résultat du test à l'avant dernière ligne ligne est positif, donc avnt de repasser en pending et ready , il se met d'abord à done ce qui le fait sortir de la boucle

[Pierre Fauconnier]

Je ne comprends déjà pas bien pourquoi on teste le READY.

Je viens de tester avec la boucle suivante

Code :

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

1
2
3
4
    Do While Application.CalculationState <> xlDone
        Calculate
    Loop
    MsgBox "Fini"

Il peut se présenter plusieurs cas.
On lance la procédure. Si des calculs sont en attente, le calcul est lancé. Durant cette phase de calcul, Excel est normalement bloqué (surtout via macro).
Soit l'utilisateur laisse aller, le calcul arrive à terme. Normalement, CalculationState est passé à XlDone. Si ce n'est pas le cas, il est forcément à XlPending et donc la proc boucle et on est reparti pour un tour...
Soit l'utilisateur tente de stopper la proc (esc, Ctrl+C) => la proc s'arrête en débogage, et on peut vérifier que CalculationState est XlPending ce qui fera boucler et relancera le calcul...

Je repose donc ma question, pour être bien certain de la réponse. Après modif sur la feuille et un seul recalcul manuel, Excel est-il en attente d'un nouveau calcul? (Normalement, présence du mot "Calculer" sur la barre d'état, mais surtout, vérification dans VBA via la fenêtre d'exécution - saisir ? Application.CalculationState [ENTER] et voir le résultat qui sera 0 (XlDone) ou 2 (XlPending) (normalement pas 1 (XlCalculating))

Si la réponse à cette question est XlPending, alors ma boucle devrait fonctionner...

Si certaines valeurs ne sont pas recalculées après le premier calcul, peux-tu isoler ces cellules et voir si elles sont concernées par l'utilisation d'une fonction personnelle (autre qu'une fonction intégrée d'Excel). Si c'est le cas, il faudrait pouvoir mettre la ligne

Code :

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

Application.Volatile

comme première ligne de code de la fonction en cause (celle qui renvoie la valeur dans la cellule)...

Voilà. Désolé pour la tartine...

[akramus]

Oui oui jusqu'à la fin il affiche prêt et calculer

En fait comme je le disais dans mon dernier message je pense que cela se passe de la manière suivante :

entrée dans la boucle --> premier calcul --> entrée dans la deuxième boucle --> sortie de la deuxième boucle --> mise à xldone --> mise à pending et ready

c'est précisément à cause de l'étape en gras qu'on sort de la boucle . De même si on utilise une structure FOR - NEXT le calcul sera fait dans le vide car il se fera avant qu'excel ne rebascule en ready + pending

j'essairai demain de rajouter une boucle juste avant la fin

Code :

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

1
2
3
do while application.calculationstate=xldone
    do events
loop

et là ça devrait marcher il faudra que je veille à sortir de cette boucle quand excel aura vraiment fini le calcul et qu'il sera définitivement en xldone

[Pierre Fauconnier]

Pas convaincu que ta boucle

Code :

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

1
2
3
do while application.calculationstate=xldone
    do events
loop

ne va pas virer en boucle infinie...

As-tu essayé ma dernière solution, sans la deuxième boucle imbriquée dans la première?

As-tu essayé de repérer ce qui n'est pas mis à jour dans Excel après le premier recalcul manuel?

[akramus]

J'ai essayé totu ce qui a été dit plus haut sans succès , je ne comprend simplement pas ..

pour ce qui n'est pas mis à jour lors du premier calcul il s'agit de formules bloomberg qui sont intégrées à Excel via un add-in

[Pierre Fauconnier]

Je vais essayer avec l'addin, mais ce ne sera pas avant fin de journée

[akramus]

OUF ! Enfin j'ai pu trouver une solution

en fait je crois qu'il faut laisser un leger temps d'attente avant le recalcul .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
template.Calculate
Application.OnTime Now + TimeValue("00:00:03"), "recalculer"
 
 
 
End Sub
 
 
Sub recalculer()
If Application.Ready And Application.CalculationState = xlDone Then Exit Sub
Application.Calculate
Application.OnTime Now + TimeValue("00:00:03"), "recalculer"
End Sub

en tous cas merci pour votre aide ma foi précieuse

[Pierre Fauconnier]

Ca n'aura pas été simple, mais si le problème est ... Tant mieux!!

[ouskel'n'or]

Je n'ai relu que cette dernière page mais ayant déjà été confronté à l'événement calculate de la feuille, je communique...
Afin de savoir si une macro doit ou non être exécutée dans Worksheet_Calculate, je me contente d'effectuer un test sur le changement de valeur de la cellule concernée. Et pour savoir si la cellule concernée a changé de valeur, je stocke sa valeur dans une autre cellule après changement de valeur.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Calculate()
If range("N12") <> Range(IV65536) then
     'le code de la macro qui va bien
     Range(IV65536) = range("N12")
   else
     'je fais rien de rien
Endif
End Sub

A toutes fins zutiles et à tout thasard vu que je ne sais pas si c'est de ça qu'on parle