Enlever (blanks) d'un TCD

Bonjour,

J'ai un TCD qui provient d'un autre tableau source.

Dans certaines lignes, il y a des valeurs "vides".

Du coup, mon TCD reprend des (blank).

Or mon fichier source fait quelque 3000 lignes, du coup il y a beaucoup de blanks...

Ce que je souhaiterais, c'est ne pas afficher le (blanc).

Pour info, ceci (voir copie d'écran) ne fonctionne pas (car le TCD est lié un un tableau source).

Sur le net je trouve des suggestions via une MEFC. Hors, mes colonnes ont des couleurs différentes, mais il peut y avoir des blanks dans plusieurs colonnes, du coup cela change ma mise en page...

Des suggestions?

Bonjour

Il faudrait voir le fichier pour se rendre compte et adapter une proposition

En première approcher, vous pouvez voir ce lien dans lequel je proposais un code VBA --> Enlever Vide dans un TCD

A vous relire

Cordialement

bonjour

salut Dan

un filtre sur les valeurs dans le TCD ?

(valeur différente de 0 )

Bonjour,

Merci de joindre un fichier pour illustrer ta question.

Cdlt.

Bonjour,

Il y a déjà un fichier joint, avec un cas très simple (en deux lignes).

Concernant ce qui a été suggéré (filtres dans TCD) -> je n'ai malheureusement pas une colonne avec des blank, mais des dizaines. Le fait de filtrer les blank dans une colonne, va te filtrer les autres colonnes avec des valeurs.

Bonjour,

Essaie :

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim pf As PivotField, Cell As Range
    Application.ScreenUpdating = False
    For Each pf In Target.PivotFields
        For Each Cell In pf.DataRange
            If Cell.Value = "(vide)" Then
                Cell.NumberFormat = ";;;"
            Else
                Cell.NumberFormat = "General"
            End If
        Next Cell
    Next pf
End Sub

Re

Avez-vous essayé le code dans le lien que je vous ai proposé

Cordialement