Bonjour tlm,
Je souhaiterais ajouter une fonctionnalité à mon TCD, compter les valeurs uniques d'un champ.
Il me semble avoir vu kkpart que ça n'était pas possible.
(Si ce n'est pas le cas, ça m'éviterai le problème ci dessous ?)
J'ai donc eu l'idée d'écrire une macro qui va le faire.
Bref j'ai donc utilisé : Workbook_SheetBeforeDoubleClick
Mais je ne crois pas que l'objet target soit lié au TCD.
(Si ce n'est pas le cas, ça m'éviterai le problème ci dessous ?)
Je suis donc passé par une boucle de ce type :
Le problème c'est que cela ne fonctionne que si Famille 2 est développé, car dans ce cas "LabelRange" n'existe pas.
Comment puis-je savoir qu'un item ligne est développé ?
De plus la fonction ci-dessus ne fonctionnera plus s'il y a pls Famille2, dans une Famille1, est il possible de connaitre l'étendu de LabelRange ?
Merci pour votre aide,
Gabvoir
Je souhaiterais ajouter une fonctionnalité à mon TCD, compter les valeurs uniques d'un champ.
Il me semble avoir vu kkpart que ça n'était pas possible.
(Si ce n'est pas le cas, ça m'éviterai le problème ci dessous ?)
J'ai donc eu l'idée d'écrire une macro qui va le faire.
Bref j'ai donc utilisé : Workbook_SheetBeforeDoubleClick
Mais je ne crois pas que l'objet target soit lié au TCD.
(Si ce n'est pas le cas, ça m'éviterai le problème ci dessous ?)
Je suis donc passé par une boucle de ce type :
Code:
For Each r In sheet.PivotTables(1).RowFields("Famille 2").PivotItems
If r.LabelRange.Row = target.Row Then
Famille2 = r.name
Exit For
End If
Next r
Le problème c'est que cela ne fonctionne que si Famille 2 est développé, car dans ce cas "LabelRange" n'existe pas.
Comment puis-je savoir qu'un item ligne est développé ?
De plus la fonction ci-dessus ne fonctionnera plus s'il y a pls Famille2, dans une Famille1, est il possible de connaitre l'étendu de LabelRange ?
Merci pour votre aide,
Gabvoir