OVH Cloud OVH Cloud

Effacer les Totals nulls de la pivot table

9 réponses
Avatar
freightliner2006
Salut,

J'ai une feuille ou j'enregistre des operation in/out d'un entrepot.
Le format des lignes, (simplifie') est:

Article | quantite'
XYZ | 4
KLM | -2
XTR | 3
XYZ | -1

Il y a un signe moin - s'il s'agite d'une expedition. Si non, c'est un
recu.
La pivot table ajoute ou retranche les quantitees dependant le sign +
ou -,
et montre pour chaque Article, la quantite' qu'on a en stock.
Mais, une fois que la quantite' deviens 0 (total recu = total
expedite'),
j'ai encore une ligne par article avec total 0. Je voudrais ca soit
efface' de la pivot table.

Est-ce qu'il y a une maniere de faire ca?

merci pour l'aide

9 réponses

Avatar
MichDenis
' Published by Debra Dalgleish 21 Juin 2003
'Et améliorer par Daniel Maher

'===================== Sub DeleteOldItemsWB()
'gets rid of unused items in PivotTable based on MSKB (Q202232)
'had to go through procedure twice to clear items (for i= 1 to 2)
' Désactiver l'actualisation de l'écran (exécution plus rapide de la
macro)
Application.ScreenUpdating = False
' Désactiver le calcul automatique
Application.Calculation = xlCalculationManual
Application.CalculateBeforeSave = False
' Déclarer les variables
Dim ws As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Dim i As Integer
' Supprimer les éléments de tous les champs, de tous les tableaux
croisés dynamiques
On Error Resume Next
For i = 1 To 2
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
For Each pf In pt.PivotFields
For Each pi In pf.PivotItems
pi.Delete
Next
Next
pt.RefreshTable
Next
Next
Next
' Activer l'actualisation de l'écran
Application.ScreenUpdating = True
' Activer le calcul automatique
Application.Calculation = xlAutomatic
Application.CalculateBeforeSave = True
Msg = Msg & "La macro est terminée !"
MsgBox Msg, vbInformatin, "Rafraîchir les listes déroulantes d'un tableau croisé dynamique"
End Sub
'=======================


a écrit dans le message de news:

Salut,

J'ai une feuille ou j'enregistre des operation in/out d'un entrepot.
Le format des lignes, (simplifie') est:

Article | quantite'
XYZ | 4
KLM | -2
XTR | 3
XYZ | -1

Il y a un signe moin - s'il s'agite d'une expedition. Si non, c'est un
recu.
La pivot table ajoute ou retranche les quantitees dependant le sign +
ou -,
et montre pour chaque Article, la quantite' qu'on a en stock.
Mais, une fois que la quantite' deviens 0 (total recu = total
expedite'),
j'ai encore une ligne par article avec total 0. Je voudrais ca soit
efface' de la pivot table.

Est-ce qu'il y a une maniere de faire ca?

merci pour l'aide
Avatar
freightliner2006
Tu veux dire qu'il n'y a pas un maniere "native" de faire ca dans les
outils de la pivot table?

merci



MichDenis wrote:
' Published by Debra Dalgleish 21 Juin 2003
'Et améliorer par Daniel Maher

'======================
Sub DeleteOldItemsWB()
'gets rid of unused items in PivotTable based on MSKB (Q202232)
'had to go through procedure twice to clear items (for i= 1 to 2)
' Désactiver l'actualisation de l'écran (exécution plus rapide de la
macro)
Application.ScreenUpdating = False
' Désactiver le calcul automatique
Application.Calculation = xlCalculationManual
Application.CalculateBeforeSave = False
' Déclarer les variables
Dim ws As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Dim i As Integer
' Supprimer les éléments de tous les champs, de tous les tableaux
croisés dynamiques
On Error Resume Next
For i = 1 To 2
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
For Each pf In pt.PivotFields
For Each pi In pf.PivotItems
pi.Delete
Next
Next
pt.RefreshTable
Next
Next
Next
' Activer l'actualisation de l'écran
Application.ScreenUpdating = True
' Activer le calcul automatique
Application.Calculation = xlAutomatic
Application.CalculateBeforeSave = True
Msg = Msg & "La macro est terminée !"
MsgBox Msg, vbInformatin, "Rafraîchir les listes déroulantes d'un tab leau croisé dynamique"
End Sub
'========================



a écrit dans le message de news:

Salut,

J'ai une feuille ou j'enregistre des operation in/out d'un entrepot.
Le format des lignes, (simplifie') est:

Article | quantite'
XYZ | 4
KLM | -2
XTR | 3
XYZ | -1

Il y a un signe moin - s'il s'agite d'une expedition. Si non, c'est un
recu.
La pivot table ajoute ou retranche les quantitees dependant le sign +
ou -,
et montre pour chaque Article, la quantite' qu'on a en stock.
Mais, une fois que la quantite' deviens 0 (total recu = total
expedite'),
j'ai encore une ligne par article avec total 0. Je voudrais ca soit
efface' de la pivot table.

Est-ce qu'il y a une maniere de faire ca?

merci pour l'aide


Avatar
MichDenis
C'est ça.


a écrit dans le message de news:

Tu veux dire qu'il n'y a pas un maniere "native" de faire ca dans les
outils de la pivot table?

merci



MichDenis wrote:
' Published by Debra Dalgleish 21 Juin 2003
'Et améliorer par Daniel Maher

'===================== > Sub DeleteOldItemsWB()
'gets rid of unused items in PivotTable based on MSKB (Q202232)
'had to go through procedure twice to clear items (for i= 1 to 2)
' Désactiver l'actualisation de l'écran (exécution plus rapide de la
macro)
Application.ScreenUpdating = False
' Désactiver le calcul automatique
Application.Calculation = xlCalculationManual
Application.CalculateBeforeSave = False
' Déclarer les variables
Dim ws As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Dim i As Integer
' Supprimer les éléments de tous les champs, de tous les tableaux
croisés dynamiques
On Error Resume Next
For i = 1 To 2
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
For Each pf In pt.PivotFields
For Each pi In pf.PivotItems
pi.Delete
Next
Next
pt.RefreshTable
Next
Next
Next
' Activer l'actualisation de l'écran
Application.ScreenUpdating = True
' Activer le calcul automatique
Application.Calculation = xlAutomatic
Application.CalculateBeforeSave = True
Msg = Msg & "La macro est terminée !"
MsgBox Msg, vbInformatin, "Rafraîchir les listes déroulantes d'un tableau croisé dynamique"
End Sub
'======================= >


a écrit dans le message de news:

Salut,

J'ai une feuille ou j'enregistre des operation in/out d'un entrepot.
Le format des lignes, (simplifie') est:

Article | quantite'
XYZ | 4
KLM | -2
XTR | 3
XYZ | -1

Il y a un signe moin - s'il s'agite d'une expedition. Si non, c'est un
recu.
La pivot table ajoute ou retranche les quantitees dependant le sign +
ou -,
et montre pour chaque Article, la quantite' qu'on a en stock.
Mais, une fois que la quantite' deviens 0 (total recu = total
expedite'),
j'ai encore une ligne par article avec total 0. Je voudrais ca soit
efface' de la pivot table.

Est-ce qu'il y a une maniere de faire ca?

merci pour l'aide


Avatar
freightliner2006
MichDenis wrote:
C'est ça.



J'ai essaye la macro, ma ca ne marche pas. Mes donnes sont groupe'.
L'article parle de "le degrouper", mais... comment?


merci

Avatar
MichDenis
| J'ai essaye la macro, ma ca ne marche pas. Mes donnes sont groupe'.
| L'article parle de "le degrouper", mais... comment?

Si tu as un champ groupé dans ton TDC, la macro devrait
s'exécuter normalement non ?

Qu'entends-tu par : "Mes donnes sont groupe'" ?

As-tu un message d'erreur ? Si oui, lequel ?
Avatar
freightliner2006
Aucun message d'erreur. Tout simplement, les 0s sont pas efface'.

Ici il y a une image de ma pivot table:
http://i12.tinypic.com/47ssehs.jpg

Les donnes sont groupes par style, fabwash, ... made_in et finallement
pour size.


merci pour l'aide



MichDenis wrote:
| J'ai essaye la macro, ma ca ne marche pas. Mes donnes sont groupe'.
| L'article parle de "le degrouper", mais... comment?

Si tu as un champ groupé dans ton TDC, la macro devrait
s'exécuter normalement non ?

Qu'entends-tu par : "Mes donnes sont groupe'" ?

As-tu un message d'erreur ? Si oui, lequel ?


Avatar
MichDenis
Désolé, j'ai relu ta question originale, ce n'est pas suite à une
mise à jour que tu obtiens des zéros mais suite à l'affichage
de vrai valeur dans ton tableau originale qui affiche 0

c'est ce 0 que tu veux voir s'effacer dans ton tdc.

Pour ce faire, il s'agisse que tu donnes à tes données
de ton tdc, le format suivant
0,00;-0,00;;
Pour ce faire, Paramètre de champs / Bouton Nombre

Cela n'a rien à voir avec des données "fantômes" suite à une mise à jour d'un tdc.



a écrit dans le message de news:

Aucun message d'erreur. Tout simplement, les 0s sont pas efface'.

Ici il y a une image de ma pivot table:
http://i12.tinypic.com/47ssehs.jpg

Les donnes sont groupes par style, fabwash, ... made_in et finallement
pour size.


merci pour l'aide



MichDenis wrote:
| J'ai essaye la macro, ma ca ne marche pas. Mes donnes sont groupe'.
| L'article parle de "le degrouper", mais... comment?

Si tu as un champ groupé dans ton TDC, la macro devrait
s'exécuter normalement non ?

Qu'entends-tu par : "Mes donnes sont groupe'" ?

As-tu un message d'erreur ? Si oui, lequel ?


Avatar
MichDenis
celle-ci me fatique :

il s'agisse -> s'agit évidemment




"MichDenis" a écrit dans le message de news:

Désolé, j'ai relu ta question originale, ce n'est pas suite à une
mise à jour que tu obtiens des zéros mais suite à l'affichage
de vrai valeur dans ton tableau originale qui affiche 0

c'est ce 0 que tu veux voir s'effacer dans ton tdc.

Pour ce faire, il s'agisse que tu donnes à tes données
de ton tdc, le format suivant
0,00;-0,00;;
Pour ce faire, Paramètre de champs / Bouton Nombre

Cela n'a rien à voir avec des données "fantômes" suite à une mise à jour d'un tdc.



a écrit dans le message de news:

Aucun message d'erreur. Tout simplement, les 0s sont pas efface'.

Ici il y a une image de ma pivot table:
http://i12.tinypic.com/47ssehs.jpg

Les donnes sont groupes par style, fabwash, ... made_in et finallement
pour size.


merci pour l'aide



MichDenis wrote:
| J'ai essaye la macro, ma ca ne marche pas. Mes donnes sont groupe'.
| L'article parle de "le degrouper", mais... comment?

Si tu as un champ groupé dans ton TDC, la macro devrait
s'exécuter normalement non ?

Qu'entends-tu par : "Mes donnes sont groupe'" ?

As-tu un message d'erreur ? Si oui, lequel ?


Avatar
freightliner2006
MichDenis wrote:
Désolé, j'ai relu ta question originale, ce n'est pas suite à une
mise à jour que tu obtiens des zéros mais suite à l'affichage
de vrai valeur dans ton tableau originale qui affiche 0


Non.
C'est suite a' des operations de addition et soustraction. Par example,
pour l'article XYYZ
je peux avoir, dan le feuille qui enregistre les operations:

XYYZ +3
XYYZ -1
XYYZ -2

A' ce point la', en refreichant la pivot table, j'ai une ligne XYYZ
avec quantite' 0.
Je ne veux pas la voire! C'est une inventoire, les articles qui sont
pas dans l'inventoire, m'interessent pas.


Pour ce faire, il s'agisse que tu donnes à tes données
de ton tdc, le format suivant
0,00;-0,00;;


???? Ca resolve pas mon problem original.


merci pour l'aide