Discussion :

[tamtam64]

Bonjour,

Je rencontre un problème :
J'ai un fichier qui a pas mal de formules du genre des somme.si et autre,qui puisent vers deux fichier aussi dans le classeur. C'est assez lourd.
J'ai mis deux cellules ou l'on choisi deux parametres , quand on les choisi dans une liste, cela change les valeurs de la feuille (sommes si et tt)
J'ai créé une macro qui simules plusieurs choix de parametres et qui colle le tableau des resultat dans une feuille. On arriverait à la meme chose à la main si on chosiissait ces paramettres à la main et que lon copiait le tableau à la main.

2 Problème :

celui des calculs qui sont trop lents par rapport à la macro, les calculs ne s'updatent pas forcement , la macro avance mais sans pour autaznt que le calcul soit terminé. Ceci fait qu'il y a des risques d'avoir des résultats faux.

Voici des idées :

Code :

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

1
2
3
4
5
Sub Waiting()
    Do
    DoEvents: DoEvents
    Loop Until Application.CalculationState <> xlDone
End Sub

Deuxieme probleme :

J'ai mis une petite userform d'avancement qui donne des infos sur l'avancement du process
Mais elle est pas stable et j'e vois le message (ne repond plus) affiché ... c'est pas térrible , il semblerrait que ca boucle trop vite ?


Voila si on peut m'aider ou me donner un petit coup de pouce sur ce sujet ca serait super cool . Je manque d'idée

[unparia]

Bonjour
Tes deux (pourquoi deux, d'ailleurs ?) Doevents font que la macro se lance !
Il faut en effet que tu comprennes que les formules Excel sont calculées dans un fil distinct du fil VBA, ce qui fait que ta macro, indépendante du fil des formules, se lance distinctement.
Je vais probablement être la victime ici d'un tollé général, mais ma "religion" est telle que je ne mets jamais dans la même "cage" un loup et une brebis. Si l'on traiite par formules, il vaut mieux s'abstenir de traiter parallèlement par VBA. Si l'on traite par VBA, il vaut mieux tout traiter par VBA.
Allez ! Lâchez-vous (je ne vous en voudrai point) : frappez, insultez-moi, si cela vous fait plaisir...

[tamtam64]

Oui mas je ne peux pas refaire ce qui a ete fait, et en Excel je peux pas automatiser donc ...
Cumuler un doevent permet de ralentir le code un peu plus pour donner la main au system ça évite de repartir pour un tour de boucle, j'ai vu ça dans l'aide vba. Ceci dit ça m'a l'air un peu complique comme problème. Quel etat de la barre de statuts me permet de dire que le calcul est termine

[unparia]

Bis repetita, donc
- Deux Doevents ne font pas mieux qu'un seul dans une boucle
- un doevents n'empêche pas, bien au contraire, ta macro de se lancer

[tamtam64]

Si si ça permet de donner la main deux fois . Et ça évite de repartir dans la boucle. Ceci dit c'est pas vraiment le pb du topic en fait

[unparia]

Donner la main, c'est donner la main ! La donner deux fois n'apporte rien de plus que de la donner une fois. Et, la donnant, tu la donnes également à la macro !
Pour répondre à ta question, à savoir :

Quel etat de la barre de statuts me permet de dire que le calcul est termine

Ben ... précisément celui que tu utilises : Application.CalculationState
Tu es en train de continuer à construire à mon sens une usine à gaz.
Mais si tu y tiens, utilise alors Application.ontime pour vérifier périodiquement que le calcul est fini et :
- ne lancer qu'alors ta macro
- interrompre Application.Ontime.
Désolé, mais ne compte pas sur moi (relis ce que j'ai dit plus haut en ce qui concerne ma religion) pour t'aider à utiliser ce "truc"-là. Un autre le fera.
Bonne chance.

[tamtam64]

Va jeter un oeuil sur l'aide tu versa on peut cumuler un doevents mais c'est pas le thème du topic. Ensuite le onetime arrete l'application donc aucun calcul n'est fait Durant la pause m j'ai déjà teste et on reste dans une boucle infini car il ne recalcul pas Durant la pause.
Éventuellement trouver le statut qui me dit que les calculs sont termine c'est pending, ou xldone? C,est pas évident tout ça

[eriiic]

Bonjour,

Application.AfterCalculate, événement
L'événement AfterCalculate se produit une fois que l'activité d'actualisation en attente (synchrone et asynchrone) est totalement terminée, ainsi que toutes les actions de calcul qui en découlent.
Informations sur la version
Version ajoutée : Excel 2007

Syntaxe

expression.AfterCalculate

expression Variable qui représente un objet Application.

Remarques


Cet événement se produit lorsque le calcul est terminé et qu'il ne reste plus de requêtes en attente. Ces deux conditions doivent être remplies pour que cet événement se produise. Il peut être déclenché même s'il n'y a pas de données de feuille dans le classeur, par exemple lorsque le calcul se termine pour le classeur entier et qu'aucune requête n'est en cours.

Les développeurs de compléments utilisent l'événement AfterCalculate pour savoir à quel moment toutes les données du classeur ont été complètement mises à jour par d'éventuelles requêtes et/ou calculs en cours.

Cet événement se produit après tous les événements Worksheet.Calculate, Chart.Calculate, AfterRefresh et SheetChange. Il se produit en dernier, après toutes les opérations d'actualisation et de calcul, et une fois que Application.CalculationState a pris la valeur xlDone.

PS : c'est un événement d'application, donc non présent par défaut. Il faut préparer le classeur pour les avoir.
Fait F9 sur ce classeur
eric

[Jean-Philippe André]

Salut,

pour gerer des "lancements décalés", j'utilise souvent Application.OnTime

https://msdn.microsoft.com/fr-fr/lib.../ff196165.aspx

L'idee ici serait d'avoir un lancement de la macro tant que ton calculationstate n'est pas done

[unparia]

Bonjour jpcheck
Je plussoie (et un pouce vert).

[eriiic]

Parti en vacances tamtam ?

[tamtam64]

Bonjour,

Non pas en vacance mais j'aimerais bien lol

ta fonction ne fonctionne pas j'ai fait quelques recherches mais elle n'est pas vraiment fonctionnel d'après les dires que j'ai vu sur des sites anglais.

[clementmarcotte]

Bonjour,

Désolé, mais on a déjà vu des réactions un peu plus précises:

ta fonction ne fonctionne pas j'ai fait quelques recherches mais elle n'est pas vraiment fonctionnel d'après les dires que j'ai vu sur des sites anglais.

[tamtam64]

Que veux tu que je dise de plus ? On ne trouve aucun exemple d'application

[eriiic]

Bonjour,

Comment ça elle ne fonctionne pas ???
J'avais testé sur des gros paquets de sommeprod pour avoir un temps de calcul suffisant et ça fonctionnait correctement, pas eu de soucis.
Tu peux le reproduire avec le fichier que j'ai déposé, c'est un exemple d'application. Sur un fichier non préparé ça ne fonctionnera pas c'est sûr...
Maintenant si certains ont constaté des soucis... (?)
eric

[tamtam64]

D'accord je me suis peut etre resigné trop vite, mais peux tu me donner un exemple ?

[eriiic]

Ben c'est le même fichier, avec des formules et un bouton si tu veux.
J'ai ajouté qq ligne pour ne pas recevoir tous les événements mais seulement ceux d'un calcul lancé par macro à un endroit précis du code, ce qui semble s'approcher de ton besoin (mettre b_supervise=True avant la modif qui lance un calcul sur feuille).

Seul bémol constaté mais à mon avis normal : en cas de modif de Sub App_AfterCalculate()
il faut enregistrer, fermer et rouvrir le fichier pour être sûr qu'il les prenne en compte.
Tu as bien le msgbox à chaque clic-sur le bouton test ou non ?
Chez moi (W7 excel 2010) ça fonctionne. Elle apparait bien à la disparition de l'utilisation des processeurs dans la barre d'état.

[tamtam64]

Bonjour,

je n'arrive pas à l'ouvrir sur le site le fichier est inexistant :/
si tu peux le reposter stp merci .

[clementmarcotte]

M'est avis qu'ils ont fini par comprendre que s'il faut bloquer les fichiers de macros sur le forum Word, il faut aussi bloquer les fichiers de macros sur le forum Excel. Zippez mes frères, zippez en cœur.

[eriiic]

Rhooo, ils sont embêtants...
En zip alors