Discussion :

[elo1978]

Bonjour,

j'ai un problème que je résume ainsi.

J'ai la procédure suivante :

Code :

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

1
2
3
4
5
     sub test()
 
     formulaire.checkbox1.value = false
 
     end sub

cela déclenche la procédure checkbox1_Click() associée à la checkbox.

J'ai essayé de rajouté Application.EnableEvents = false mais ca ne fonctionne pas. Que faire ?

(en fait j'applique cette procédure test a une dizaine de checkbox, et dont les procédure Click() sont tres longues a executer )

Merci d'avance

[pgz]

Bonsoir.

C'est curieux, mais si enableEvents = false ne fonctionne pas, tu peux faire ainsi :
tu déclares une variable publique dans un module standard

Code :

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

Dim bEnableUFormEvents as boolean

Au début de la procédure évennementielles

Code :

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

If not bEnableUFormEvents then exit sub

Et quand tu veux modifier les ChechBoxes

Code :

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

1
2
3
4
bEnableUFormEvants = False
MonUForm.Checkbox1 = ...
'et autres modif des checkboxes
bEnableUFirmEvents ) True

En espérant que cela t'aide,

PGZ