Discussion :

[jonleboss44]

Bonjour à tous les pros d’Excel !

Je me permets de faire appel à vos compétences car je suis au bout de mes possibilités malgré mes nombreuses recherches et essais.

Dans un onglet, j’ai réussi à associer à un tableau croisé dynamique les fonctions suivantes, lorsque l’on active l’onglet :

- Rafraichissement du TCD ;
- Répétition des valeurs d’étiquettes de ligne pour les versions office 2003
- Sélection de l’ensemble des valeurs du filtre « N° série/lot » sauf des valeurs vide

Maintenant, je souhaiterai conserver les fonctions 1 & 2, mais avoir l’inverse de la fonction 3, c.a.d. n’afficher que les lignes du TCD où la valeur « N° série/lot » est vide. J’ai tout essayé avec l’enregistreur de macro et les forums mais n’y arrive pas notamment quand j’ajoute des lignes à la source de données du TCD et que je l’actualise. J’ai imaginé, via l’enregistreur de macro, la sélection de l’ensemble des valeurs pour prendre en compte les nouvelles lignes, la désélection de l’ensemble des valeurs et enfin la sélection uniquement des valeurs « vide ». Cela ne fonctionne pas automatiquement …

Voici mon code actuel :

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Activate()
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
        ActiveSheet.PivotTables("Tableau croisé dynamique1").RepeatAllLabels _
        xlRepeatLabels
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("N° série/lot")
        .PivotItems("(blank)").Visible = False
    End With
End Sub

Comment dois-je changer la dernière partie, ci-dessous, pour avoir uniquement les valeurs « vide » dans le filtre « N° série/lot » du TCD ?

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("N° série/lot")
        .PivotItems("(blank)").Visible = False
    End With

Merci par avance.

Jonathan

[parmi]

Bonjour,

Si je comprends bien, tu pourrais essayer comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    Dim I As Long
 
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
        ActiveSheet.PivotTables("Tableau croisé dynamique1").RepeatAllLabels xlRepeatLabels
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("N° série/lot")
        .PivotItems("(blank)").Visible = True
        For I = 1 To .PivotItems.Count
            If .PivotItems(I).Caption <> "(blank)" Then
                .PivotItems(I).Visible = False
            End If
        Next
    End With

[jonleboss44]

Bonjour Parmi,

Merci pour ce retour.

Dois-je le coller entre un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Worksheet_Activate()

et un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

End Sub

?

Merci.

[parmi]

Oui,
désolé pour l'oubli...

[jonleboss44]

Parmi,

Solution proposée, solution testée ! Elle fonctionne parfait sur une source de données avec peu de ligne

Par contre, dans le cas d'une grosse quantité donnée, il y a un message d'erreur :



et dans le débogueur cela indique :



J'ai plus de 2000 lignes et donc beaucoup de N° série/lot différents, c'est peut être à cause de ça ?

[parmi]

D'après moi le nombre de lignes n'a pas d'influence.
Par contre, on ne peut pas décocher tous les filtres.
S'il n'y a pas de champs "blank", ça va probablement planter.

Il faudrait voir quelle est la valeur retournée par PivotItems(I) quand ça plante et t'assurer qu'il y a bien des champs à "blank".

[jonleboss44]

euh ...

Comment puis-je vérifier cette valeur ?

Désolé mais là c'est un peu premium comme difficulté enfin, pour moi !

[parmi]

Quand ça plante et que tu vas dans le débogage, la ligne est surlignée en jaune.
Passe ta souris au-dessus de PivotItems(I) pour voir sa valeur.

[78chris]

Bonjour

Non c'est un bug Microsoft. Voir solution ici http://www.developpez.net/forums/d13...eme-item-vide/ post #8

[jonleboss44]

Merci Parmi,

Je n'avais jamais pensé à passer ma souris au-dessus des lignes jaunes du débogueur ...



J'ai fais des essais et en fait, cette fonction ne fonctionne pas quand j'ai un 2ème filtre dans le TCD. Ce 2ème filtre s'appelle "Transférée" est doit être sur "Non" pour que j'obtienne les résultats souhaités. Comment puis-je cumuler ces 2 conditions ( vide + non ) ?

Encore merci !

[parmi]

En fait, j'aurais aimé voir le PivotItems(I).Caption ou encore la valeur du "I" pour voir s'il ne s'agit pas du dernier de la liste.
Parce que, comme mentionné, il doit y avoir au moins un filtre activé.

[jonleboss44]

Bonjour Parmi,

Finalement, cela fonctionne ... erreur de mon coté !

Merci pour tout.

Jonathan

[Chtulus]

Bonjour,

Pensez au bouton en bas de la discussion la prochaine fois