|
|
|
|
Configuration: Windows XP Internet Explorer 7.0
Bonjour,
Faisable uniquement en vba. Tu nommes la cellule recevant le nom de l'entreprise sélectionnée 'EntSelect' et dans cette feuille de selection tu colles le code suivant: Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Target.Address <> [EntSelect].Address Then Exit Sub
With Sheets("Feuil4").PivotTables("Tableau croisé dynamique1").PivotFields("entreprise")
.PivotItems([EntSelect].Value).Visible = True
For i = 1 To .PivotItems.Count
If .PivotItems(i).Name <> .PivotItems([EntSelect].Value).Name Then .PivotItems(i).Visible = False
Next i
End With
End Sub
Bien sûr dans Sheets("Feuil4").PivotTables("Tableau croisé dynamique1").PivotFields("entreprise") il faut adapter les noms aux noms de ton TCD Ex: http://www.cijoint.fr/cjlink.php?file=cj200810/cijXjLUhTP.xls eric |
Résultats pour Mettre en forme un tableau croisé dynamique
Résultats pour Mettre en forme un tableau croisé dynamique
Résultats pour Mettre en forme un tableau croisé dynamique
Résultats pour Mettre en forme un tableau croisé dynamique