Discussion :

[pierre.watelet]

Comment empêcher l'exécution du script MonObjet_Change() dans un dialogue lors qu'on lui affecte une valeur par programmation ?

J'ai tenté d'encadrer l'affectation comme ceci :

Code :

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

1
2
3
Application.EnableEvents = False
MonChamp = 999
Application.EnableEvents = True

mais le script MonObjet_Change() est malgré tout exécuté...

[patbou]

bonjour,

rends les evenements inactif à l ouverture du fichier

Code :

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

1
2
3
4
 
Private Sub Workbook_Open()
application..EnableEvents = False
End Sub

puis lorsque la boite de dialogue est validée tu rends les evenements actifs

[pierre.watelet]

bonjour,

rends les evenements inactif à l ouverture du fichier

Code :

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

1
2
3
4
 
Private Sub Workbook_Open()
application..EnableEvents = False
End Sub

puis lorsque la boite de dialogue est validée tu rends les evenements actifs

Tu as une explication du pourquoi ce n'est pas possible de "juste" encadrer l'affectation ?

[patbou]

c une question forte interessante

j ai fait l essais avec 2 txtbox , et je constate qu on ne peut " arreter" le message evenement que ce soit en rendant le control enable ou l application.
j ai essayé de rajouter une boucle ,ss resultat

je vais regarder d un peu plus pres le fct des evenements !!!

[Singular]

Crées une variable globale dans la section Déclarations du UserForm, comme ça :

Code :

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

1
2
 
Public MonObjet_ProcessusEnCours as Boolean

et avant d'affecter une nouvelle valeur au contrôle, mets une ligne comme

Code :

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

1
2
 
MonObjet_ProcessusEnCours = True

Ensuite, dans MonObjet_Change(), vérifies MonObjet_ProcessusEnCours avant de procéder aux opérations.

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub MonObjet_Change()
    If MonObjet_ProcessusEnCours = True Then
        MonObjet_ProcessusEnCours = False
        Exit Sub
    End If
    ...
End Sub

[pierre.watelet]

Crées une variable globale dans la section Déclarations du UserForm, comme ça :

Code :

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

1
2
 
Public MonObjet_ProcessusEnCours as Boolean

et avant d'affecter une nouvelle valeur au contrôle, mets une ligne comme

Code :

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

1
2
 
MonObjet_ProcessusEnCours = True

Ensuite, dans MonObjet_Change(), vérifies MonObjet_ProcessusEnCours avant de procéder aux opérations.

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub MonObjet_Change()
    If MonObjet_ProcessusEnCours = True Then
        MonObjet_ProcessusEnCours = False
        Exit Sub
    End If
    ...
End Sub

Oui, j'y avais pensé aussi, de faire cela pour tous mes objets de mon formulaire... Mais je trouvais ca tellement lourd comme solution, alors qu'il doit s'agir d'un probleme que tout le monde rencontre... Je me suis dis qu'il devait y avoir une manière plus simple de régler l'affaire...

[Singular]

Désolé mais l'objet UserForm est membre de la référence MSForms et non de Excel.

Il est donc impossible pour Application de gérer les évènements des UserForms.

Et comme il n'y a pas d'équivalent à EnableEvents dans MSForms...

J'ai longtemps bossé sur le problème mais, pas de gâteau!!!

[pierre.watelet]

Il n'y a plus qu'à implementer la technique de Montréal...

[pierre.watelet]

En fait, au lieu de gérer soit meme un booleen, on peut dans les script tester (Application.EnableEvents = true)

[patbou]

mais j ai essayé en rendant un controle enable :
le controle passe bien inactif (du moins celui ci n est plus en surbrillance) par contre l evenement associé est detecté et realisé.

ds un userforms place 2 txtbox puis ce code

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub TextBox1_Change()
TextBox2.Enabled = False
TextBox2.Value = TextBox1.Value
End Sub
 
Private Sub TextBox2_Change()
MsgBox "raté"
End Sub

tu verras le resultat

[Benevole V1]

Bonjour à tous,

Presque 10 ans, jour-pour-jour par rapport à l'ouverture de cette discussion (non encore fermée !) que je viens de découvrir, je voudrais vous soumettre une solution au problème posé que j'ai souvent appliquée depuis 3 ans, qui fonctionne très bien et qui me semble bien plus simple que toutes celles proposées.
Je suis un nouveau membre et encore loin de maitriser VBA comme la plupart d'entre vous. Si vous pouviez me faire savoir si ma solution tient la route, cela me ferait le plus grand plaisir !

Je résume le problème : éviter que l'action sur un contrôle d'un UserForm ne déclenche en cascade d'autres procédures évènementielles que celle qui lui est associée (lorsque ce contrôle modifie, même indirectement, les propriétés d'autres contrôles associés à des procédures du type "_Change").
Pour éviter cela, je défini une seule variable "Public" du type "Boolean" que je nomme "CE".

Voici, en quelques lignes, la structure de mes procédures:

Sub (NomProcédure)
If Ce = False then Ce = True else Exit Sub
... instructions
Ce = False
End Sub

Merci de vos réponses que j'attends avec impatience...