XL 2013 [Résolu] Application Worksheet_Change cesse de fonctionner

[thebenoit59]

Bonjour le forum.

Voilà pour la suite de mon projet de devis, je souhaiterai lors de la modification de prix (dans un onglet reprenant l'intégralité des composants du devis), ceux ci ce modifie dans le corps du devis même.

Cela fonctionne parfaitement, mais lorsque j'intègre, depuis une source externe, des éléments, l'application ne fonctionne plus. Si je ferme mon classeur et le re-ouvre c'est reparti comme en 40.

Cela vaut aussi pour BeforeDoubleClick de mon onglet Base (corps du devis).

Je vous joins mon fichier de travail.

Bonne journée tout le monde.

 

[Roland_M]

Re : Application Worksheet_Change cesse de fonctionner

bonjour,

voir du côté des événements, exemple avec:
Application.EnableEvents

il doit y avoir être en False et pas de remise à True avant la sortie d'un traitement !?

 

[thebenoit59]

Re : Application Worksheet_Change cesse de fonctionner

C'est ce que je pensais, mais dans l'évènement Worksheet_BeforeDoubleClick je n'utilise pas l'Application.EnableEvents.

Je vais me pencher sur ce sujet, peut-être en l'intégrant avec une gestion d'erreur.

 

[Roland_M]

Re : Application Worksheet_Change cesse de fonctionner

re

voir Userform1 il me semble, vu comme ça vite fais, que tu quittes sans remettre à true !?

Unload Me

Exit Sub
ErrorHandle:
MsgBox Err.Description
Resume BeforeExit

' On restaure les configurations
Application.ScreenUpdating = BoEcran
Application.DisplayStatusBar = BoBarre
Application.Calculation = iCalcul
Application.EnableEvents = BoEvent
ActiveSheet.DisplayPageBreaks = BoSaut

 

[thebenoit59]

Re : Application Worksheet_Change cesse de fonctionner

Merci Roland_M.

Effectivement j'avais oublié que j'avais intégré dans certains éléments cette partie.
En mettant Application.EnableEvents = BoEvent à True, cela fonctionne parfaitement.
Je vais voir pour quelle raison le BoEvent = False en début de procédure.

Merci pour ton aide.
Bonne journée.

Edit : J'avais mal interprété ta réponse.
Et effectivement je quittais sans repasser à True. Maintenant cela fonctionne du tonneur. Et un pas de plus effectué pour l'avancement du mon projet.