Bordures variables TCD

Version imprimable

20/01/2016, 10h04
Pope17

Bordures variables TCD

Bonjour,

Voici mon problème: j'ai un TCD qui génère + ou - de colonnes suivant l'intervalle de dates du critère de recherche. Je mets des bordures entre chaque colonnes, mais une fois que le tcd s'agrandit ou se rapeticit, les bordures ne se conserve pas toutes, et je dois alors à nouveau les fixées manuellement. Je voulais donc créer une macro à ajouter derrière le bouton "actualiser" du tcd. Mais ne connais pas le paramètre pour selectionné jusqu'à la dernière colonnes du tcd vu que la taille est variable.

Merci d'avance pour votre aide !
20/01/2016, 10h58
Daniel.C

Bonjour,

Clique dans le TCD. Onglets Outils de TCD, Création, Styles de TCD. Tu peux ou choisir le style ou en définir un nouveau qui te conviennes.
20/01/2016, 13h01
sogedic

Bonjour
Une astuce, que j'utilise, ajouter des lignes fictives à la source de donnée (une par zone affichée en colonne) afin qu'il ait toujours le même nombre de colonnes.
20/01/2016, 13h06
Pope17

2 pièce(s) jointe(s)

Oui mais cela ne fonctionne pas,

Pièce jointe 198472

Pièce jointe 198473

Voici sur la première image le tableau avec les bordure que j'ai mise, et sur la deuxième après mise à jour des données, les bordures n’apparaissent pas sur les nouveaux éléments (Titre de colonne).
20/01/2016, 13h23
sogedic

Ajouter des lignes fictives à la source de donnée
mais il faut connaître toutes les colonnes possibles ce qui n'est pas forcément ton cas
20/01/2016, 13h29
Pope17

Justement, n'y a-t-il pas un moyen en vba de faire une macro qui sélectionne ces colonnes et leur ajoute la bordure ? En tout cas merci de votre aide !
20/01/2016, 14h19
Daniel.C

Si, il y a moyen. Est-ce que tu peux mettre un classeur sans données complémentaires en pièce jointe ?
20/01/2016, 14h35
Pope17

Aïe je ne peux pas faire ça malheureusement...
20/01/2016, 15h01
Daniel.C

Oups. Je voulais écrire "Si, il y a moyen. Est-ce que tu peux mettre un classeur sans données confidentielles en pièce jointe ?"

parce que, sinon, ça va être dur. Je veux bien t'envoyer un exemple mais est-ce que tu sauras l'adapter ?
20/01/2016, 15h13
Pope17

Si tu pouvais m'envoyer l'exemple ce serait top ;) , je pense pouvoir l'adapter.

1 pièce(s) jointe(s)

Il y a quelques améliorations à ajouter. S'il n'y a pas d'autres bordures sur la feuille, on les efface avant de les refaire. Sinon, i faudra utiliser un nom. Regarde si tu vois d'autres modifications.
La macro se déclenche automatiquement à l'update du TCD :

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)
    Dim PT As Range, C As Range
    If Res <> "" Then
        With Range(Res)
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
            .Borders(xlEdgeLeft).LineStyle = xlNone
            .Borders(xlEdgeTop).LineStyle = xlNone
            .Borders(xlEdgeBottom).LineStyle = xlNone
            .Borders(xlEdgeRight).LineStyle = xlNone
            .Borders(xlInsideVertical).LineStyle = xlNone
            .Borders(xlInsideHorizontal).LineStyle = xlNone
        End With
    End If
    Set PT = Union(Target.DataLabelRange, Target.DataBodyRange, Target.PivotFields("Nom").DataRange, _
    Target.PivotFields("Ville").DataRange, Target.PivotFields("Date").DataRange)
    PT.Select
    For Each C In PT
        C.BorderAround xlContinuous, xlMedium
    Next C
    Res = Target.TableRange2.Address
End Sub

PJ : Pièce jointe 198498

22/01/2016, 08h22
Pope17

Merci beaucoup et désolé pour la réponse tardive. Je vais regarder tout ça ;)
22/01/2016, 11h18
Daniel.C

Aucun problème, chacun répond quand il a le temps (c'est la différence avec le téléphone).