Discussion :

[Frululu]

Bonjour à tous,

Je cherche un moyen de pouvoir cocher uniquement quelques champs dans un TCD sans à avoir à faire comme le générateur de macro, c'est à dire utiliser le code

Code :

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

.PivotItems(champ).Visible = False

pour chaque champs concerné.
Je sais pas si cela est possible mais j'aimerai partir de la logique inverse, c'est à dire que par défaut tous mes champs soient décochés, et que ma macro ne coche que les champs qui m'intéressent. De plus j'aimerais sécuriser le tout en permettant au code de passer à un autre champ si celui que je lui demande n'existe pas dans la plage de données à traiter, ce qui est possible dans mon cas car je récupère une plage de données variable..

Si vous avez des idées, je suis preneur !! merci beaucoup.

François

[Invité]

utilise l'enregistreur de macro et annalyse le code généré par excel.

[Frululu]

Bonjour rdurupt,

J'ai déjà essayé, c'est ce à quoi je faisais référence dans le début de mon message. Le générateur auto fait un listing de tout les champs et les marque en ".false".
Comme mes champs ne sont pas forcément tous présents sur chacune de mes plages car celles-ci sont variables (et j'imagine qu'un code plus "léger doit exister" car je me retrouve avec une quarantaine de lignes de code simplement pour décocher un par un les champs), il serait intéressant de pouvoir manipuler uniquement les champs qui nous intéressent et laisser décochés les autres.

Je creuse mais je ne vois toujours pas..!

[Daniel.C]

Bonjour,

Si tu veux te servir des cases à cocher, je ne pense pas que tu puisses faire autrement. Tu ne peux pas tout dé-cocher pour cocher seulement certaines cases. Tu peux peut-être utiliser les filtres textuels ou numériques mais c'est plus limité.

[Frululu]

Bonjour Daniel.C

Ok, à la limite il faut que je fasse mon tri en amont pour pouvoir limiter mes champs TCD. Je pensais qu'il existait une solution plus simple.

Merci de l'info en tout cas !

François

[Invité]

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
Sub test()
Dim t() As String
 
Dim trouve As Boolean
ReDim t(2)
t(0) = "1"
t(1) = "21"
 ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Champ2"). _
        ClearAllFilters
 
 
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Champ2")
    For i = 1 To .PivotItems.Count
        trouve = False
        For ti = 0 To UBound(t)
            If .PivotItems(i) = t(ti) Then trouve = True: Exit For
       Next
        If trouve = True Then .PivotItems(i).Visible = True Else .PivotItems(i).Visible = False
 
    Next
 
 
    End With
End Sub

[Frululu]

Ouah super rdurupt !

J'ai compris le principe, tu fais une boucle pour les tourner en "false" sauf si il trouve tel ou tel items spécifiques qu'il laisse alors "true". J'essaye ça de suite !

Merci beaucoup !

[danixdb]

Bonjour,

Je vois que j'arrive un peu tard.

Même principe que rdurupt, les valeurs à afficher dans le tcd sont dans la feuille Lists

Slts

[Invité]

c'est exactement ça navré de t'avoir volé la politesse