VBA et segments

Version imprimable

10/06/2024, 18h59
hboisteau

VBA et segments

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
11/06/2024, 09h56
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
11/06/2024, 14h11
hboisteau

1 pièce(s) jointe(s)

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

1 pièce(s) jointe(s)

tu dois intercepter le changement de segment
tester avec prudence

Code:

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

11/06/2024, 17h22
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
11/06/2024, 19h55
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
12/06/2024, 09h55
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.
12/06/2024, 17h56
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é

bonjour
teste avec prudence

Code:

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