Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Pb avec ma macro sur un Tb Cr Dynamique

Pb avec ma macro sur un Tb Cr Dynamique

2 réponses
Avatar
Mesa
Slt tout le monde je comprend pas trop pourquoi ma macro=20
ne fonctionne pas ! ;-) Mon TCD est correctement nomm=E9 et=20
d=E8s le premier "ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems(1).Visible =3D True" il bloque.
J'ai beau la remettre dans diff=E9rent sens rien n'y fait.
J'ai fais un trie croissant dans les options du TCD pour=20
le champs secteur, si jamais =E7a aide qq'un.

Merci d'avance de votre aide.


Sub Macro1()

nbchamp =3D ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems.Count
chx =3D Range("B1").Value
Range("C41") =3D nbchamp
ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems(1).Visible =3D True

For I =3D 2 To nbchamp
If ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems(I).Visible =3D True Then
ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems(I).Visible =3D False
End If
Next I


ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems(chx).Visible =3D True

If chx =3D 1 Then
Else
ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems(1).Visible =3D False
End If
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
As-tu tout simplement essayé de faire référence à ton TCD par son numéro
d'index ?
En l'occurence s'il s'agit du seul TCD sur ta feuille :
ActiveSheet.PivotTables(1)
Cordialement
Pascal

"Mesa" a écrit dans le message de
news:52b601c4c644$f12f6f30$
Slt tout le monde je comprend pas trop pourquoi ma macro
ne fonctionne pas ! ;-) Mon TCD est correctement nommé et
dès le premier "ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems(1).Visible = True" il bloque.
J'ai beau la remettre dans différent sens rien n'y fait.
J'ai fais un trie croissant dans les options du TCD pour
le champs secteur, si jamais ça aide qq'un.

Merci d'avance de votre aide.


Sub Macro1()

nbchamp = ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems.Count
chx = Range("B1").Value
Range("C41") = nbchamp
ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems(1).Visible = True

For I = 2 To nbchamp
If ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems(I).Visible = True Then
ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems(I).Visible = False
End If
Next I


ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems(chx).Visible = True

If chx = 1 Then
Else
ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems(1).Visible = False
End If
End Sub
Avatar
Le prob semble venir du champs "vide" Et non pas du nom du
tableau. Apparement ça bugue, car je veux selectionner un
champs et pas les autres, donc tous les autres doivent
etre hide sauf le vide car sinon il y a bug dans le
tableau. Mais ma macro plante. Je ne comprend pas pk une
vraie horreur

-----Message d'origine-----
Bonjour
As-tu tout simplement essayé de faire référence à ton TCD
par son numéro

d'index ?
En l'occurence s'il s'agit du seul TCD sur ta feuille :
ActiveSheet.PivotTables(1)
Cordialement
Pascal

"Mesa" a écrit dans le message de
news:52b601c4c644$f12f6f30$
Slt tout le monde je comprend pas trop pourquoi ma macro
ne fonctionne pas ! ;-) Mon TCD est correctement nommé et
dès le premier "ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems(1).Visible = True" il bloque.
J'ai beau la remettre dans différent sens rien n'y fait.
J'ai fais un trie croissant dans les options du TCD pour
le champs secteur, si jamais ça aide qq'un.

Merci d'avance de votre aide.


Sub Macro1()

nbchamp = ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems.Count
chx = Range("B1").Value
Range("C41") = nbchamp
ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems(1).Visible = True

For I = 2 To nbchamp
If ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems(I).Visible = True Then
ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems(I).Visible = False
End If
Next I


ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems(chx).Visible = True

If chx = 1 Then
Else
ActiveSheet.PivotTables("TCD").PivotFields
("Secteur").PivotItems(1).Visible = False
End If
End Sub


.