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