Plus de réponse de Excel

Version imprimable

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:

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

05/01/2015, 10h38
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 …
02/06/2015, 16h15
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
02/06/2015, 16h55
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:

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

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:

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

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

23/02/2016, 13h58
ALEX80800

Anomalie qui a disparue