[RESOLU] Affichage en temps réel de l'etat : Application.enableevents

B

bruno66

XLDnaute Occasionnel

• 7 Novembre 2013

• #2

Re : Affichage en temps réel de l'etat : Application.enableevents

bonjour , nous on veut bien te croire que tu nous assures avoir un fichier excel , mais pour comprendre ton problème iil serait bien d'avoir un morceau de ton fichier aussi avec ta demande et ou et comment tu veux que cela se produise
merci ( pas de données confidentielles non plus )
a te lire

 

Vote positif 0 Vote négatif

C

Crisky

Guest

• 7 Novembre 2013

• #3

Re : Affichage en temps réel de l'etat : Application.enableevents

Desole, vu de mon cote mon texte semblait clair mais c'est vrai que rien ne remplace en bon exemple concret

Dans le fichier joint
Si les macros sont activées

A l'ouverture vous avez un userform qui indique l'etat de application.enableevents (true)

Quand vous changez une cellule sur la feuille ma macro change le application enableevents en false

Ce que j'aurais aimé : que le userform se reactualise dès que l'etat application.enableevents a changé.

Ce n'est pas le cas : si je ferme le usrform et que je l'ouvre à nouveau l'evenement usrform.initialize affiche l'etat

Mais je suis obligé de fermer et rouvrir, je ne sais pas comment faire pour en gros placer un espion sur applicationenableevents tout au long de l'utilisation du fichier

 

Pièces jointes

• Classeur1.xls

  37.5 KB · Affichages: 44
• Classeur1.xls

  37.5 KB · Affichages: 44
• Classeur1.xls

  37.5 KB · Affichages: 45

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 7 Novembre 2013

• #4

Re : Affichage en temps réel de l'etat : Application.enableevents

bonjour,

une solution : à chaque modification de Application.EnableEvents rajouter cette ligne de code:

Code:

usrfrm.caseetat = Application.EnableEvents

bonne suite

 

Vote positif 0 Vote négatif

C

Crisky

Guest

• 7 Novembre 2013

• #5

Re : Affichage en temps réel de l'etat : Application.enableevents

Merci c'etait une tres bonne idée, un peu fastidieuse mais en testant je m'apercois que le userform ne se met pas à jour tout seul

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 7 Novembre 2013

• #6

Re : Affichage en temps réel de l'etat : Application.enableevents

re,

après retest , ça fonctionne chez moi ?

Fastidieux ?, il n'y a que 4 lignes à ajouter !

A+

 

Vote positif 0 Vote négatif

C

Crisky

Guest

• 7 Novembre 2013

• #7

Re : Affichage en temps réel de l'etat : Application.enableevents

re,

Fastidieux : je dois avoir 40 macros dans mon fichier original mais vu que cela fonctionne je vais le faire

En effet apres retest de ta part et que tu ai dis que cela marchait, je me suis dit : j'ai surement fait une erreur

Et oui j'ai betement oublier de mettre le nom de l'objet userform auquel se rattache la variable caseetat

Donc cela fonctionne parfaitement

Merci Paf

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 7 Novembre 2013

• #8

Re : Affichage en temps réel de l'etat : Application.enableevents

Bonjour à tous.

Crisky à dit:

(...)

Fastidieux : je dois avoir 40 macros dans mon fichier original mais vu que cela fonctionne je vais le faire

(...)

Cliquez pour agrandir...

Je n'ai pas de meilleure solution, mais on peut aller vite pour l'appliquer : il suffit d'utiliser Edition/Remplacer dans l'éditeur de code.
Demander le remplacement de​

VB:

Application.EnableEvents = True

par​

VB:

Application.EnableEvents = True: usrfrm.caseetat = Application.EnableEvents

dans l'ensemble du projet.

Une deuxième passe en remplaçant True par False, et le tour est joué.​

Bon courage.


ℝOGER2327
#6955

Jeudi 5 As 141 (Saint Van Meegeren, faussaire - fête Suprême Quarte)
17 Brumaire An CCXXII, 6,8982h - cresson
2013-W45-4T16:33:20Z

 

Vote positif 0 Vote négatif

C

Crisky

Guest

• 7 Novembre 2013

• #9

Re : [RESOLU] Affichage en temps réel de l'etat : Application.enableevents

Tres bon conseil, je le testerais demain

les " : " dans ton code servent simuler 2 lignes de code ?

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 7 Novembre 2013

• #10

Re : [RESOLU] Affichage en temps réel de l'etat : Application.enableevents

Re...

Crisky à dit:

Tres bon conseil, je le testerais demain

les " : " dans ton code servent simuler 2 lignes de code ?

Cliquez pour agrandir...

À peu près : En fait, les deux lignes de code sont condensées en une seule. Au lieu de​

VB:

Application.EnableEvents = True
usrfrm.caseetat = Application.EnableEvents

on obtient :​

VB:

Application.EnableEvents = True: usrfrm.caseetat = Application.EnableEvents

Ça ne pose aucun problème lors de l'exécution.​

Bonne soirée.


ℝOGER2327
#6956

Jeudi 5 As 141 (Saint Van Meegeren, faussaire - fête Suprême Quarte)
17 Brumaire An CCXXII, 7,2131h - cresson
2013-W45-4T17:18:41Z

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 7 Novembre 2013

• #11

Re : [RESOLU] Affichage en temps réel de l'etat : Application.enableevents

salut

et Si... tu te dispensais de l'Usf ? Un bouton bascule pourrait suffire.

 

Pièces jointes

• Gestion des Evènements.xls

  39 KB · Affichages: 40

Dernière édition: 7 Novembre 2013

Vote positif 0 Vote négatif