Discussion :

[GADENSEB]

Hello le Forum,
Je patoge un peu dans la semoule
J'ai une petite macro qui fait apparaitre des objets (graphiques....) une feuille excel

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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Faire apparaitre ou disparaitre les graphiques
    Select Case ActiveCell.Address
        Case "$E$4"
            ActiveSheet.ChartObjects("GR_LignesReserves").Visible = True
        Case "$F$4"
            ActiveSheet.ChartObjects("GR_LignesReserves").Visible = False
        Case "$A$4"
           ' ActiveSheet.ChartObjects("Gr_Comptes").Visible = True
            ActiveSheet.ChartObjects("Gr_AnalyseDepenses").Visible = True         
        Case "$B$4"
           ' ActiveSheet.ChartObjects("Gr_Comptes").Visible = False
           ActiveSheet.ChartObjects("Gr_AnalyseDepenses").Visible = False
        Case "$R$2"
            Tb_NoteDeVersion.Visible = True
            Tb_NoteDeBudget.Visible = True
        Case "$S$2"
            Tb_NoteDeVersion.Visible = False
            Tb_NoteDeBudget.Visible = False
        Case "$A$38"
            ActiveSheet.ChartObjects("GR_CourbeDeTresorerie").Visible = True
        Case "$B$38"
            ActiveSheet.ChartObjects("GR_CourbeDeTresorerie").Visible = False
        Case Else
        'Do nothing
    End Select
End Sub

Ce vba tourne super mais je voudrais faire apparaitre / masquer les slicers que j'ai incorporés
comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
 Case "$A$4"
.......................
     activeWorkbook.Slicercaches("Se_LIGNE").Visible = True
     ActiveWorkbook.Slicercaches("Se_GROUPE").Visible = True
 
Case "$B$4"
.......................
     activeWorkbook.Slicercaches("Se_LIGNE").Visible = False
     activeWorkbook.Slicercaches("Se_GROUPE").Visible = False

Mais je tourne en rond cela ne marche pas

J'ai ce message d'erreur sur les lignes de code que je veux rajouter


Je pense que la propriété Slicercaches n'est pas bonne mais j'arrive pas à trouver la bonne ....
QQn aurait une idée ?

[eric4459]

Bonjour,
Essayes ceci, source Microsoft,

Code :

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

("Se_LIGNE").VisibleSlicerItems

ou ceci

Code :

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

Slicercaches("Se_LIGNE").VisibleSlicerItems

Eric

[GADENSEB]

Pas mieux ....

Code :

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

ActiveWorkbook.SlicerCaches("Se_LIGNE").VisibleSlicerItems = True

erreur : utilisation incorrect de la propriété...

J'ai l'impression que cela est pour les données à l'interieur du slicer pas pr le slicer lui mm ....

[GADENSEB]

Bon c'est moche mais cela marche avec
Pour l''affichage

Code :

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

1
2
ActiveSheet.Shapes.Range(Array("Se_LIGNE")).Visible = msoTrue
 ActiveSheet.Shapes.Range(Array("Se_GROUPE")).Visible = msoTrue

Pour Masquer

Code :

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

1
2
 ActiveSheet.Shapes.Range(Array("Se_GROUPE")).Visible = msoFalse
 ActiveSheet.Shapes.Range(Array("Se_LIGNE")).Visible = msoFalse

ouf !!!

a+ eric4459