Discussion :

[hboisteau]

Bonjour le forum,

je recherche une macro, qui me permette de colorier ma feuille (cela ne pose pas de problème) mais maintenant j'ai un TCD sur ma feuille commander par plusieurs segments (c'est là que ca se complique)

mon TCD étant une table certaines fois j'ai plus ou moins de lignes et donc je me retrouve avec un blanc sous mon TCD.

donc voila ma recherche après la sélection d'un bouton d'un segment, je voudrais que le fond de ma feuille se colorie.

En espérant avoir et clair,

HB

[BENNASR]

Bonjour
La demande n'est pas claire.. peux tu afficher un capture écran sans données confid
Si non dans la propriété du TCD coché : ajusté selon contenu

[hboisteau]

Bonjour,

merci pour la réponse.

je me permets donc de vous joindre un fichier exemple pour meilleure compréhension.

Le fond de ma feuille est bleu.

je créer une TCD sur cette feuille, avec un segment (date en l'occurrence)

Quand je sélection le mois Avril alors j'ai une ligne blanche sous mon TCD, en faite c'est cette ligne blanche que je souhaite colorié en bleue avec une macro ou autres solution.

En vous remerciant par avance,

HB

[BENNASR]

tu dois intercepter le changement de segment
tester avec prudence

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
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    If Target.Name <> "Tableau croisé dynamique1" Then Exit Sub
    For Each Cas In ActiveWorkbook.SlicerCaches("Segment_date").SlicerItems
        If Cas.Selected = True Then
        Application.ScreenUpdating = False
    With Sheets("TCD").Cells.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = -0.499984740745262
        .PatternTintAndShade = 0
    End With
 Exit For
 Application.ScreenUpdating = True
    End If
    Next Cas
End Sub

[hboisteau]

Bonjour BENNASR,

merci pour ton retour rapide, mais j'ai un souci de macro.

elle bloque sur cette ligne.

For Each Cas In ActiveWorkbook.SlicerCaches("Segment_Year2").SlicerItems

Merci par avance,

HB

[BENNASR]

Si ça fonctionne avec mon fichier ça doit qu un problème de nom de segment
Pour vérifier démarre l enregistreur auto du macro... Clic sur un élément du segment... Arrête l enregistreur et va voir le code... Vérifier le nom du segment

[deedolith]

Hello,

Si le but est de colorer toute la feuille sauf le TCD,
les propriétés RowRange et ColumnRange de l'objet PivotTable permettent de connaitre les plages utilisées par ce dernier.

[hboisteau]

Bonjour BENNASR et le forum,

en faite je viens de comprendre pourquoi il y avait un bug sur le slicer.

Celui est créer a partir d'un power pivot.

Quand je fait un enregistrement de macro alors il pointe bien sur ma feuille et la colonne de mes données power pivot.

Comment faire alors pour faire une boucle comme cela.

Hervé

[BENNASR]

bonjour
teste avec prudence

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
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    If Target.Name <> "Tableau croisé dynamique1" Then Exit Sub
    For Each Cas In ActiveWorkbook.SlicerCaches("Segment_Année").SlicerItems
        If Cas.Selected = True Then
        Application.ScreenUpdating = False
      '  Sheets("TCD").PivotTable.RowRange.Select
 
        Sheets("TCD").Range("B8").Select 'te positionne dans le TCD ... A Adapter
        ActiveCell.PivotTable.RowRange.Select
 
    With Sheets("TCD").Cells.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = -0.499984740745262
        .PatternTintAndShade = 0
    End With
 Exit For
 Application.ScreenUpdating = True
    End If
    Next Cas
End Sub