J'ai un dans un TCD des cellules vides, ce qui est normal en raison de
la structure de ma source.
Je voudrai savoir s'il est possible de filtrer un tcd comme une
feuille normale pour n'avoir à l'affichage que les cellules non vides.
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
michdenis
Bonjour Zambohanga,
C'est lorsque l'on trie une colonne que les cellules vides se retrouvent toutes à la fin de la liste et cela change la disposition des données du tableau ... cela ne s'applique pas lorsqu'on les filtres sauf si on y applique un critère spécifique à cet effet !
Pour ce qui est d'un exemple de filtre, voici un exemple donné par AV
Il faut adapter les noms des objets de la procédure ... '-------------------------- Sub zz_TCD() laVar = InputBox("", "") Application.ScreenUpdating = False With ActiveSheet.PivotTables("MonTableau").PivotFields("Dates") Dim monPivIt As Object For Each monPivIt In .PivotItems monPivIt.Visible = True Next On Error Resume Next For Each monPivIt In .PivotItems If monPivIt.Name <> laVar Then monPivIt.Visible = False Next End With End Sub '--------------------------
Salutations!
"Zambohanga" a écrit dans le message de news: Bonjour à tous,
J'ai un dans un TCD des cellules vides, ce qui est normal en raison de la structure de ma source. Je voudrai savoir s'il est possible de filtrer un tcd comme une feuille normale pour n'avoir à l'affichage que les cellules non vides.
Merci pour vos suggestions Z
Bonjour Zambohanga,
C'est lorsque l'on trie une colonne que les cellules vides se retrouvent toutes à la fin de la liste et cela change la
disposition des données du tableau ... cela ne s'applique pas lorsqu'on les filtres sauf si on y applique un critère
spécifique à cet effet !
Pour ce qui est d'un exemple de filtre, voici un exemple donné par AV
Il faut adapter les noms des objets de la procédure ...
'--------------------------
Sub zz_TCD()
laVar = InputBox("", "")
Application.ScreenUpdating = False
With ActiveSheet.PivotTables("MonTableau").PivotFields("Dates")
Dim monPivIt As Object
For Each monPivIt In .PivotItems
monPivIt.Visible = True
Next
On Error Resume Next
For Each monPivIt In .PivotItems
If monPivIt.Name <> laVar Then monPivIt.Visible = False
Next
End With
End Sub
'--------------------------
Salutations!
"Zambohanga" <domr67@hotmail.com> a écrit dans le message de news:37e15888.0405140331.497287d4@posting.google.com...
Bonjour à tous,
J'ai un dans un TCD des cellules vides, ce qui est normal en raison de
la structure de ma source.
Je voudrai savoir s'il est possible de filtrer un tcd comme une
feuille normale pour n'avoir à l'affichage que les cellules non vides.
C'est lorsque l'on trie une colonne que les cellules vides se retrouvent toutes à la fin de la liste et cela change la disposition des données du tableau ... cela ne s'applique pas lorsqu'on les filtres sauf si on y applique un critère spécifique à cet effet !
Pour ce qui est d'un exemple de filtre, voici un exemple donné par AV
Il faut adapter les noms des objets de la procédure ... '-------------------------- Sub zz_TCD() laVar = InputBox("", "") Application.ScreenUpdating = False With ActiveSheet.PivotTables("MonTableau").PivotFields("Dates") Dim monPivIt As Object For Each monPivIt In .PivotItems monPivIt.Visible = True Next On Error Resume Next For Each monPivIt In .PivotItems If monPivIt.Name <> laVar Then monPivIt.Visible = False Next End With End Sub '--------------------------
Salutations!
"Zambohanga" a écrit dans le message de news: Bonjour à tous,
J'ai un dans un TCD des cellules vides, ce qui est normal en raison de la structure de ma source. Je voudrai savoir s'il est possible de filtrer un tcd comme une feuille normale pour n'avoir à l'affichage que les cellules non vides.
