Discussion :

[Traputaca]

Bonsoir à tous,

J'utilise une macro sous excel 2013 dans un fonctionnement simple.

J'ai un fichier avec 3 onglets

- Base de donnée avec ma matière "brut"
- un onglet "référence" pour une listbox
- un onglet "résultat" dans lequel je veux afficher un graphique croisée dynamique en fonction d'un paramètre choisis


Ce paramètre à étudier est choisi dans un Userform, et permet de faire un graph croisé dynamique en fonction de 3 paramètre (dont 2 fixe) (nom pièce, date et le paramètre choisi)

Le code que j'utilise pour faire mon tableau est le suivant :

Code :

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

1
2
3
4
Sub appelChoix()
' appel du Userform de choix du paramètre
choixstat.Show
End Sub

et ce userform renvoie vers la macro

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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Sub stat()
 
 
Application.ScreenUpdating = False
'************* inititalisation**** ***
Application.DisplayAlerts = False
Sheets("resultat").Delete
Worksheets.Add
ActiveSheet.Name = "resultat"
Application.DisplayAlerts = True
'************* inititalisation*******
 
CreationTableau 1, 1, choixstat.ComboBox1.Value, 220, 5, "tableau", "Graphique 1"
'*********** renvoie vers la procedure creation tableau *********************
 
Worksheets(1).Select
Range("A1").Select
 
Worksheets("resultat").Select
 
    ActiveWindow.Zoom = 160
    ActiveWindow.SmallScroll ToRight:=2
    ActiveWindow.SmallScroll Down:=6
    ActiveWindow.ScrollRow = 6
Application.ScreenUpdating = True
Unload choixstat
 
 
End Sub
Sub CreationTableau(posLeft As Single, posTop As Single, donnee As String, _
LeftGraph As Single, TopGraph As Single, nom As String, graphique As String)
 
Dim PTCache As PivotCache
Dim PT As PivotTable
 
 
 
 
Sheets("BDD").Select
'----------------------------------------------------------------------------
 
   Set PTCache = ActiveWorkbook.PivotCaches.Add _
             (SourceType:=xlDatabase, _
              SourceData:=Range("A1").CurrentRegion.Address)
 
Set PT = PTCache.CreatePivotTable _
        (TableDestination:="resultat!R" & posTop & "C" & posLeft, _
        TableName:="graph")
 
With PT
    .PivotFields("date").Orientation = xlRowField
    .PivotFields("Nom d'ordre").Orientation = xlPageField
    .PivotFields(donnee).Orientation = xlDataField
End With
 
On Error Resume Next
 
        With Worksheets("resultat").PivotTables("graph").PivotFields("Nombre de " & donnee)
 
            .Function = xlAverage
        End With
 
 
On Error Resume Next
        With Worksheets("resultat").PivotTables("graph").PivotFields("Somme de " & donnee)
 
            .Function = xlAverage
        End With
 
 
 
 
Worksheets("resultat").Shapes.AddChart2(LeftGraph, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Worksheets("resultat").Range(Range("A1").Offset(0, posLeft - 1), Range("A1").Offset(0, posLeft).End(xlDown).End(xlDown))
 
 
'----------------------------------------------------------------------------
 
 
End Sub

C'est la que se pose mon problème :

Si j'exécute mon processus à partir d'un Bouton (un bouton me fait "appelchoix") pour faire apparaître le userform de sélection, le graphique croisée dynamique bug, je ne peux pas filtrer en fonction de plusieurs paramètres. par contre si je change d'onglet et reviens sur mon graphique sa se "débloque" et peux exécuter mes actions.

Si j'exécute mon processus à partir du ruban : développer - macro - appelchoix, mon userform apparait tout pareil, mon graphique se créer et je peux filtrer ...

Est-ce un bug Excel ? ou une erreur de ma part ? y'a t-il moyen d'y faire quelque chose ?

[Traputaca]

hello,

J'ai trouvé, enfin contourné mon problème ... j'ai remplacé mon code

Code :

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

Worksheets("resultat").Shapes.AddChart2(LeftGraph, xlColumnClustered).Select

par

Code :

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

1
2
3
Worksheets("resultat").Select
  ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered