Discussion :

[Stan_fr]

Bonjour à tous,

Voilà le problème : si on écrit application.enableevents = False/True ça a l'air de s'appliquer à "tout le monde" (i.e. si je suis sur la feuille 1 d'un classeur multi-feuille ça s'applique aux autres feuilles) est-ce qu'il y a moyen de créer par exemple un worksheet.enableevents ? Ou de mettre en place son propre gestionnaire d'évènement (mais ça doit dépasser mon niveau).

Merci de vos réponses.

[unparia]

Bonjour
Difficile de définir la stratégie ad hoc dans l'ignorance du contexte (que tu es seul à connaître).

Sans connaître le contexte, voilà un exemple de ce que l'on peut faire :

Code :

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

1
2
3
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  if sh.name = "toto" then application.enableevents = false else application.enableevents = true
End Sub

Qui inhibe les évènement de la seule feuille "toto".

Reste à savoir si utile dans ton contexte ! (tu es bien le seul à le savoir)

[Stan_fr]

Bonjour
Difficile de définir la stratégie ad hoc dans l'ignorance du contexte (que tu es seul à connaître).

Sans connaître le contexte, voilà un exemple de ce que l'on peut faire :

Code :

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

1
2
3
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  if sh.name = "toto" then application.enableevents = false else application.enableevents = true
End Sub

Qui inhibe les évènement de la seule feuille "toto".

Reste à savoir si utile dans ton contexte ! (tu es bien le seul à le savoir)

Bonsoir,

Merci de me répondre ça me permet de voir qu'il faut que je précise ma question :

supposons que je sois sur feuille1 dans une sub :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)  ' Worksheet_Change de feuille1

   Application.EnableEvents = False
   ...
   Application.EnableEvents = True

End Sub

et que je veuille faire exécuter :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)  ' Worksheet_Change de feuille2

   Application.EnableEvents = False
   ...
   Application.EnableEvents = True

End Sub

Ça ne marche pas (pas d'événement dans feuille2...), ça serait très pratique de pouvoir avoir :

Feuille1.Enableevents = False

Mais c'est peut-être très compliqué voire impossible ?

[unparia]

Ce que tu demandes est impossible puisque cette propriété est une propriété de l'objet Application et non une propriété d'un objet Worksheet.
Des parades existent bien évidemment pour faire face à d'éventuelles nécessités. Leur choix dépend TOUJOURS du contexte et peut être très différent entre deux cas de figure.

Tu peux par exemple faire en sorte que l'évènement change d'une feuille ne fasse rien dans certaines circonstances, en jouant par exemple et entre autres avec une variable booléenne générale et en quittant la procédure évènementielle si cette variable = True ou en en exécutant les instructions si = False.
Mais ce sera là la construction d'une stratégie qui ne peut bien évidemment être mise en oeuvre qu'en parfaite connaissance des mécanismes de ta propre application.
Je t'ai donné à cette fin le mécanisme (expression conditionnelle) à appliquer dans l'évènement Change de ta feuille. Tu es par contre bien évidemment seul à décider quand et où mettre à True ou à false la booléenne utilisée.

[Stan_fr]

Bonjour,

Je m'explique décidément mal : si j'ai deux feuilles T1 et T2, je peux avoir

T1 True ET T2 True ou T1 False ET T2 False mais pas :
T1 True ET T2 False ou T1 False ET T2 True ...

J'ai dans mes feuilles, pour T1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Sec1 As Single
Dim Sec2 As Single
 
Sec1 = Timer()
Application.EnableEvents = False
Worksheets("T2").Activate
Sec2 = Timer()
 
While Sec2 < Sec1 + 10
    Sec2 = Timer()
Wend
 
MsgBox " T1 "
Application.EnableEvents = True
 
End Sub

et pour T2 :

Code :

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

1
2
3
4
5
Option Explicit
 
Sub Worksheet_Activate()
MsgBox " T2 "
End Sub

Si je sélectionne une cellule dans T1, je ne peux plus RIEN faire avant la fin du "timer"...
Qui plus est à la fin de du Worksheet_SelectionChange :

- la msgbox de T1 est affichée (Normal),
- la feuille T2 est sélectionnée (??? ça voudrait dire que d'une certaine façon on peut l'atteindre...)
- la msgbox de T2 ne s'affiche pas après click sur celle de T1 (Normal elle n'a pas eu d'événement... ).

Et désolé mais je ne vois pas comment faire pour changer ça.

[unparia]

Je ne sais pas ce que tu fabriques, mais réitère ce que je t'ai déjà dit :
Il est toujours possible, en lieu et place d'inhiber un évènement, d'inclure dans sa procédure évènementielle une expression conditionnelle dont la vocation est d'exécuter ou non les instructions qu'elle contient.
Cette expression conditionnelle peut utiliser la valeur True ou False d'une variable booléenne générale créée à cette fin.
Ainsi (exemple valable quelle que soit la procédure) --->> shéma --->>

Code :

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

1
2
3
4
5
sub proc1
  if toto = false then
     ' instructions
  end if
end sub

il est clair que toto doit avoir une portée la rendant accessible depuis le module de code de la procédure proc1. Si plusieurs modules impliqués --->> déclarer toto en Public dans un module standard, ainsi

Code :

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

public toto as boolean

A partir de là :
- même si est lancée la procédure proc1, ses instructions ne seront pas exécutées si toto = true
Reste à donner (là où tu le veux dans ton code) à toto la valeur true ou false selon le résultat que tu veux.

Le mécanisme est le même, qu'il s'agisse ou non d'une procédure évènementielle.
Ce mécanisme est tel qu'il n'inhibe pas les évènements, mais que leurs instructions sont ou non exécutées. Ce n'est pas pareil, mais le résultat est bien évidemment le même.