TCD problème pour sélectionner "vide" ou "blanck" en fonction de l'ordinateur utilisé

tototiti2008

XLDnaute Barbatruc

• 26 Avril 2011

• #2

Re : TCD problème pour sélectionner "vide" ou "blanck" en fonction de l'ordinateur ut

Bonjour La braise,

Et le système (Windows) il est en quelle langue sur les postes avec "blanck" ?

Peut-être

Code:

    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("a")
        On Error Resume Next
        .PivotItems("(blanck)").Visible = False
        .PivotItems("(vide)").Visible = False
        On Error GoTo 0
    End With

 

Vote positif 0 Vote négatif

Hippolite

XLDnaute Accro

• 26 Avril 2011

• #3

Re : TCD problème pour sélectionner "vide" ou "blanck" en fonction de l'ordinateur ut

Bonjour,
As-tu essayé d'utiliser : ""
A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Avril 2011

• #4

Re : TCD problème pour sélectionner "vide" ou "blanck" en fonction de l'ordinateur ut

Bonjour,

essaye comme ceci :

Code:

Dim pf As PivotField
Set pf = ActiveSheet.PivotTables(1).PivotFields("NomDuchamp")
pf.PivotItems(pf.PivotItems.Count).Visible = False

bon après midi
@+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 26 Avril 2011

• #5

Re : TCD problème pour sélectionner "vide" ou "blanck" en fonction de l'ordinateur ut

Bonjour Pierrot, Bonjour Hippolite
Re,

Ou en utilisant l'astucieux code de Pierrot, et pour s'assurer qu'il y a bien des "vides" :

Code:

Dim pf As PivotField
Set pf = ActiveSheet.PivotTables(1).PivotFields("NomDuChamp")
If pf.PivotItems(pf.PivotItems.Count).Name Like "(*)" Then pf.PivotItems(pf.PivotItems.Count).Visible = False

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Avril 2011

• #6

Re : TCD problème pour sélectionner "vide" ou "blanck" en fonction de l'ordinateur ut

Re,

bien vu le test Toto🙂....

 

Vote positif 0 Vote négatif

L

La braise

XLDnaute Occasionnel

• 26 Avril 2011

• #7

Re : TCD problème pour sélectionner "vide" ou "blanck" en fonction de l'ordinateur ut

Merci à vous pour toutes vos réponses.
Je teste tout ça et je reviens vers vous.
🙂

 

Vote positif 0 Vote négatif

L

La braise

XLDnaute Occasionnel

• 26 Avril 2011

• #8

Re : TCD problème pour sélectionner "vide" ou "blanck" en fonction de l'ordinateur ut

Super ça marche nickel. 🙂

En fait c'est l'inverse que je souhaite faire : sélectionner uniquement le "blank" ou le "vide".

J'ai donc adapté le code comme suit :

Dim pf As PivotField
Dim TT As Long

Set pf = ActiveSheet.PivotTables("TDC_New").PivotFields("Réseau")
For TT = 1 To pf.PivotItems.Count
pf.PivotItems(TT).Visible = False
Next TT
If pf.PivotItems(pf.PivotItems.Count).Name Like "(*)" Then pf.PivotItems(pf.PivotItems.Count).Visible = True

Vos commentaires d'amélioration de ce bout de code (qui fonctionne) sont les bienvenus.

Merci pour l'aide que vous m'avez déjà apporté. 😛

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Avril 2011

• #9

Re : TCD problème pour sélectionner "vide" ou "blanck" en fonction de l'ordinateur ut

Re,

tu as testé, en principe au moins un item doit être visible.... et là ta boucle les cache tous....

 

Vote positif 0 Vote négatif

L

La braise

XLDnaute Occasionnel

• 26 Avril 2011

• #10

Re : TCD problème pour sélectionner "vide" ou "blanck" en fonction de l'ordinateur ut

Pierrot93,

Oui j'ai testé sur 2 tableaux différents. (7 valeurs+vide dans le pivotfield pour le 1er et 15+vide pour le deuxième)

je précise, que ce code n'est lancé que quand je suis sûr (via test nb de lignes) que le fichier source contient bien des vides.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Avril 2011

• #11

Re : TCD problème pour sélectionner "vide" ou "blanck" en fonction de l'ordinateur ut

Re,

et pas de "bogue", donc impeccable...

 

Vote positif 0 Vote négatif