Interférence entre Worksheet_Calculate() & Worksheet_Change(ByVal target As Range)

[Magic_Doctor]

Bonsoir,

Dans le module d'une feuille du classeur il y a un Worksheet_Calculate() et Worksheet_Change(ByVal target As Range).
Tant que le Worksheet_Calculate() n'y était pas, tout marchait correctement. Comment faire pour que Worksheet_Calculate() et Worksheet_Change(ByVal target As Range) n'interfèrent point ?

 

[Herdet]

Re : Interférence entre Worksheet_Calculate() & Worksheet_Change(ByVal target As Rang

Aie, aie, aie... à mon avis, supprimer Calculate car Change entraine Calculate qui lui peut modifier une autre valeur de la feuille qui recalcule,etc... ==> plantage.
Worksheet_Calculate n'est pas maitrisable car on à jamais pu savoir réellement dans quel ordre Excel recalcule les cellules.

S'il y a une explication logique, je suis preneur.
A+
Robert

 

[Magic_Doctor]

Re : Interférence entre Worksheet_Calculate() & Worksheet_Change(ByVal target As Rang

Bonsoir Herdet,

Et bien, si tu as raison, mauvaise limonade. C'est un peu ce que je redoutais en ce qui concerne les limites du VBA pour M. Toutlemonde.
J'ai, sur une feuille une routine dans un "Worksheet_Change(ByVal target As Range)" qui marche très bien.
J'ai, sur une autre feuille une routine dans un "Worksheet_Calculate()" qui marche très bien.
Dans la même feuille je mets les 2 routines et c'est le bordel !
Quelle perte de temps...
¡Mejor hacerse muchas pajas!

 

[Habitude]

Re : Interférence entre Worksheet_Calculate() & Worksheet_Change(ByVal target As Rang

Bonjour

Pourquoi ne pas tester la feuille active au début de tes 2 procédures?

 

[Pierrot93]

Re : Interférence entre Worksheet_Calculate() & Worksheet_Change(ByVal target As Rang

Bonjour à tous,

peut être suspendre les procédures événementielles lors de l'exécution de l'une d'elle...

Application.EnableEvents = False
'ton code
Application.EnableEvents = True

bonne journée
@+

 

[Magic_Doctor]

Re : Interférence entre Worksheet_Calculate() & Worksheet_Change(ByVal target As Rang

Bonjour Pierrot, Habitude,

Habitude, je n'a pas très bien compris ta question.

Pierrot, "Worksheet_Calculate()" commence bien par "Application.EnableEvents = False" et finit par "Application.EnableEvents = True"
Ce qui, théoriquement, devrait court-circuiter "Worksheet_Change(ByVal target As Range)".

 

[Mic13710]

Re : Interférence entre Worksheet_Calculate() & Worksheet_Change(ByVal target As Rang

A mon avis, c'est plutôt dans le worksheet change byval qu'il faudrait mettre les application.enableevents

 

[néné06]

Re : Interférence entre Worksheet_Calculate() & Worksheet_Change(ByVal target As Rang

Bonjour à tous,

A mon avis, il serait tellement plus simple d'avoir un bout du code avec les deux routines en question, pour se lancer, découvrir les erreurs et y remédier !
D'après ce que j'ai constaté, VBA traite en premier la routine "Change" et après "Calculate"

Bien cordialement

René

 

[job75]

Re : Interférence entre Worksheet_Calculate() & Worksheet_Change(ByVal target As Rang

Bonjour à tous,

Dans la Worsheet_Change mettre en début de macro :

Application.Calculation = xlCalculationManual

et ne pas oublier à la fin :

Application.Calculation = xlCalculationAutomatic

A+

 

[Magic_Doctor]

Re : Interférence entre Worksheet_Calculate() & Worksheet_Change(ByVal target As Rang

Bonsoir à tous,

Merci pour vos interventions.

Mic 13710 : j'ai essayé et c'est toujours le bordel !

néné06 : je finirai par envoyer un bout de code, mais, auparavant, il faudra que j'allège mon application car sinon ça risque de vous prendre la tête. Au fait néné, savais-tu qu'ici, en Uruguay, ils font de la socca qu'ils appellent fainá. C'est de la socca en moins bon, épaisse, un peu mouligasse et coupée en carrés (oh horreur !), et ils sont persuadés qu'ils l'ont inventée... Enfin, le poivre, ici, n'est pratiquement utilisé que pour le fainá. Nunca pimienta en el asado, porque el asado se hace con sal y punto!

job : j'ai essayé et c'est toujours le bordel !

Bon, j'ai une petite idée derrière la tête. Je la fais mijoter et je la poste.

 

[néné06]

Re : Interférence entre Worksheet_Calculate() & Worksheet_Change(ByVal target As Rang

Re,

J'en conclue que tu connais notre "Socca" et que tu dois l'apprécier.


A+

 

[Magic_Doctor]

Re : Interférence entre Worksheet_Calculate() & Worksheet_Change(ByVal target As Rang

J'ai longtemps vécu à Nice et mon nom de famille est niçois !

Mais c'est toujours le bordel dans ma feuille !

 

[Mic13710]

Re : Interférence entre Worksheet_Calculate() & Worksheet_Change(ByVal target As Rang

Et en faisant du pas à pas ?

 

[Habitude]

Re : Interférence entre Worksheet_Calculate() & Worksheet_Change(ByVal target As Rang

Bonjour Pierrot, Habitude,

Habitude, je n'a pas très bien compris ta question.

Pierrot, "Worksheet_Calculate()" commence bien par "Application.EnableEvents = False" et finit par "Application.EnableEvents = True"
Ce qui, théoriquement, devrait court-circuiter "Worksheet_Change(ByVal target As Range)".

De facon plus explicite...

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.Name <> Me.Name Then Exit Sub
ton code...
End Sub