Discussion :

[ALEX80800]

Bonjour et je vous présente meilleurs vœux pour cette année 2015

Voici ma problématique

Lorsque je double-clique sur un TCD pour obtenir le détail, une feuille se génére. Je consulte et je supprime cette feuille ("Feuil1").
Sauf qu'après suppression, je ne peux plus cliquer soit sur le ruban ou sur une cellule ou sur le scrollbar. Excel reste figé.

Pour info et je ne sais pas si cela a une incidence, le TCD est actualisé par une macro dont voici le code :

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
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
53
54
55
56
57
58
59
60
Private Sub Worksheet_Activate()
 
Dim Pt As PivotTable
 
Dim LActivitee As String
Dim LLibellee As String
Dim LComptee As String
 
 On Error GoTo errorHandler
 
 Application.ScreenUpdating = False
 
 
 
'******************************************************************************************************
''*****************************************************************************************************
'''****************************************************************************************************
 
LActivitee = Worksheets("TCD ").Range("C1").Value
LLibellee = Worksheets("TCD ").Range("C2").Value
LComptee = Worksheets("TCD ").Range("C3").Value
 
 
 
 Set Pt = Worksheets("TCD ").PivotTables("GLBis")
With Pt
 
                With Pt.PivotFields("Activité")
                    .ClearAllFilters
                    .CurrentPage = LActivitee
                End With
 
                With Pt.PivotFields("Libellé_synergie")
                    .ClearAllFilters
                    .CurrentPage = LLibellee
                End With
 
               With Pt.PivotFields("Compte")
                    .ClearAllFilters
                    .CurrentPage = LComptee
                End With
 
End With
 
 ThisWorkbook.RefreshAll
 
 
 
 
Set Pt = Nothing
 
 
 
errorHandler:
Exit Sub
 
 
Application.ScreenUpdating = True
 
End Sub

Dois je saisir un code au "desactivate" de la feuille TCD?

Merci de votre aide

[Marc-L]

Bonjour,

certainement une mauvaise gestion d'erreur …

B-A-BA du débogage : placer un point d'arrêt en début de code (en ligne n°9 par exemple)
afin de voir ce qu'il se passe en mode pas à pas via la touche F8 …

[ALEX80800]

Je reviens tres tardivement sur sujet et j'en suis honteux
Mais ca bloque toujours
Je m'explique le double clic fait bien affiché une feuille détaillant le Tcd
Mais par contre une fois consultée impossible de sortir de la feuille, de cliquer sur une cellule ou le ruban
Merci de votre aide ou piste de réflexion
 ce propos, c'est à 80% des cas de piste de réflexion que je finis mes codes

[vinc_bilb]

Bonjour,

Essayer en désactivant les évènements peut-être .... ou en le passant sur la gestion du Workbook: vous pouvez contrôler sur quelle feuille vous êtes, par exemple ... et mettre un point d'arrêt

Code :

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

1
2
3
4
5
6
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 
      If Sh.Name = "titi" then
 
        Application.EnableEvents = False
        Application.ScreenUpdating = False

[Djohn92]

J'ai l'impression que ton programme gère le cas ou le TCD déconne, mais ajoute "exit sub" tout de suite après, ca ressemble à une itervertion de ligne non ?

Remplace

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set Pt = Nothing
 
 
 
errorHandler:
Exit Sub
 
 
Application.ScreenUpdating = True
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set Pt = Nothing
 
 
'V_désactiver la ligne ci-dessous si le programme réactive  le raffraichissementpar la suite
 Application.ScreenUpdating = True
Exit Sub
errorHandler: 
 
Application.ScreenUpdating = True
 
End Sub

[ALEX80800]

Anomalie qui a disparue