L'instruction Application.EnableEvents = False ne fonctionne pas

Version imprimable

15/11/2012, 16h06
CatherineRennes

L'instruction Application.EnableEvents = False ne fonctionne pas

Bonjour,

Attaché à une feuille Excel, j'ai plusieurs sub dont:
-une sub Generate qui me génére automatiquement ma feuille de saisie
-une sub Worksheet_change pour contrôler certains éléments de saisie

Si j'exécute celle qui me génère le fichier, j'ai des erreurs liées à des contrôles présents dans le worksheet_change.
J'ai cherché et vu que l'instruction Application.EnableEvents = False permettait de désactiver les contrôles du Worksheet_Change.
J'ai donc rajouté Application.EnableEvents = False au début de ma sub Generate et Application.EnableEvents = True à la fin mais cela ne fonctionne pas. Il continue à me mettre une erreur liée à des contrôles du Worksheet_Change.

Quelqu'un a-t-il une idée?
Merci
15/11/2012, 16h19
Philippe Tulliez

Bonjour,
C'est peut-être une boîte de dialogue qui s'affiche alors sans certitude essaye ceci plutôt application.DisplayAlerts =False
15/11/2012, 16h37
CatherineRennes
Merci mais cela ne fonctionne pas.

L'erreur est précisément liée à la ligne
Code:

1 2 If Target.Cells.Count = 1 Then ...
et le message affiché est:
Erreur d'exécution '6':
Dépassement de capacité
15/11/2012, 16h41
Philippe Tulliez

Bonjour,
Et tu as cliqué sur quelle cellule ?
15/11/2012, 16h44
Philippe Tulliez

Bonjour,
Il y a une forte chance que ce soit lié à ce problème http://blog.developpez.com/office/p1...ange_dang_2007
15/11/2012, 16h59
CatherineRennes

Je n'ai pas cliqué sur une cellule, c'est ma macro qui génére mon fichier de saisie qui fait des tas de manips (des formules, des copies, etc.). Je n'arrive pas à identifier quelle action exacte génére l'erreur.

Avec la fonction CountLarge, je ne rencontre plus le problème, merci ;)
Toutefois, cela ne me plaît pas trop (ça n'a pas de sens fonctionnellement et cela peut ralentir les choses) qu'il rentre quand même dans les tests du Worksheet_change malgré l'instruction Application.EnableEvents = False :(
Quelqu'un a-t-il une idée?
Merci !
15/11/2012, 17h40
Philippe Tulliez

Bonjour,
L'instruction Application.EnableEvents = False est bien placée dans une procédure de démarrage de process, pas dans la procédure événementielle elle même ?

L'instruction Application.EnableEvents = False est placée dans ma sub qui génère ma feuille de saisie :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub generate()
    Dim icount As Integer
    Dim wb As Workbook
    Dim ws_act, ws_in As Worksheet
    Dim sRowNumber As String
    Dim nColData As Integer
    Dim nColProdDept, nColProdAttr, nColProd, nColSF, nColCustAttr, nColCust, nColGeoArea As Integer
    Dim sColProdDept, sColProdAttr, sColProd, sColSF, sColCustAttr, sColCust, sColGeoArea As String
    Dim nColFamily, nColSubFamily As Integer
    Dim sColFamily, sColSubFamily As String
 
 
    Set wb = Application.ActiveWorkbook
    Set ws_act = wb.Worksheets("ActiveForm")
    Set ws_in = wb.Worksheets("Input")
 
   'Pour ne pas que le Worksheet_Change soit activé
    Application.EnableEvents = False
 
    Application.DisplayAlerts = False
 
    icount = 0
 
    Application.ScreenUpdating = False
 
    ws_in.AutoFilterMode = False
 
    'Vérification des sélections
    If Range("P_RESPONSIBILITY_AREA").Value = "" Then
        MsgBox "Please select a responsibility area", vbInformation
        GoTo SecurityError
    End If
    If Range("P_ACCOUNT").Value = "" Then
        MsgBox "Please select an account", vbInformation
        GoTo SecurityError
    End If
 
...
ETC.
...
 
    Application.ScreenUpdating = True
 
   'Pour que le Worksheet_Change soit activé
    Application.EnableEvents = True
 
 
SecurityError:
    Application.ScreenUpdating = True
    Exit Sub
 
End Sub