Bonjour ! J'ai un tableau crois=E9 dynamique avec un=20
champs "Mois". Au d=E9part, le champs contenait les mois en=20
francais (Janvier, f=E9vrier, mars etc..). J'ai d=FB les=20
inscrires en anglais par la suite. Sauf que maintenant,=20
dans mon tableau crois=E9, les mois en fran=E7ais s'affiche=20
toujours dans le bouton "Mois". Donc j'ai les mois en=20
anglais et en francais, meme apr=E8s avoir supprim=E9 le=20
tableau et l'Avoir refait !!!!
Merci
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
Benead
Salut Doum,
Essaie ceci :
' *** Option Explicit
Sub SuppressionEnr() Dim wPvF As PivotField, Cpt1 As Long, Cpt2 As Long, wItem As PivotItem Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Application.EnableEvents = False On Error Resume Next For Each wPvF In ActiveSheet.PivotTables(1).PivotFields Cpt1 = Cpt1 + 1 Cpt2 = 0 For Each wItem In wPvF.PivotItems Cpt2 = Cpt2 + 1 Application.StatusBar = Cpt1 & "/" & ActiveSheet.PivotTables(1).PivotFields.Count & " - " & Cpt2 & "/" & wPvF.PivotItems.Count & " - Suppression de : " & wItem.Name wItem.Delete Next wItem Next wPvF On Error GoTo 0 Application.Calculation = xlCalculationAutomatic Application.StatusBar = False Application.ScreenUpdating = True Application.EnableEvents = True End Sub
' ***
Cette macro va supprimer tous les champs inutiles...
-- A+ Benead Bretagne Xl97 -------- ;-)
Doum a écrit:
Bonjour ! J'ai un tableau croisé dynamique avec un champs "Mois". Au départ, le champs contenait les mois en francais (Janvier, février, mars etc..). J'ai dû les inscrires en anglais par la suite. Sauf que maintenant, dans mon tableau croisé, les mois en français s'affiche toujours dans le bouton "Mois". Donc j'ai les mois en anglais et en francais, meme après avoir supprimé le tableau et l'Avoir refait !!!! Merci
Salut Doum,
Essaie ceci :
' ***
Option Explicit
Sub SuppressionEnr()
Dim wPvF As PivotField, Cpt1 As Long, Cpt2 As Long, wItem As PivotItem
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error Resume Next
For Each wPvF In ActiveSheet.PivotTables(1).PivotFields
Cpt1 = Cpt1 + 1
Cpt2 = 0
For Each wItem In wPvF.PivotItems
Cpt2 = Cpt2 + 1
Application.StatusBar = Cpt1 & "/" & ActiveSheet.PivotTables(1).PivotFields.Count & " - " & Cpt2 & "/" & wPvF.PivotItems.Count &
" - Suppression de : " & wItem.Name
wItem.Delete
Next wItem
Next wPvF
On Error GoTo 0
Application.Calculation = xlCalculationAutomatic
Application.StatusBar = False
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
' ***
Cette macro va supprimer tous les champs inutiles...
--
A+
Benead
Bretagne
Xl97
-------- ;-)
Doum a écrit:
Bonjour ! J'ai un tableau croisé dynamique avec un
champs "Mois". Au départ, le champs contenait les mois en
francais (Janvier, février, mars etc..). J'ai dû les
inscrires en anglais par la suite. Sauf que maintenant,
dans mon tableau croisé, les mois en français s'affiche
toujours dans le bouton "Mois". Donc j'ai les mois en
anglais et en francais, meme après avoir supprimé le
tableau et l'Avoir refait !!!!
Merci
Sub SuppressionEnr() Dim wPvF As PivotField, Cpt1 As Long, Cpt2 As Long, wItem As PivotItem Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Application.EnableEvents = False On Error Resume Next For Each wPvF In ActiveSheet.PivotTables(1).PivotFields Cpt1 = Cpt1 + 1 Cpt2 = 0 For Each wItem In wPvF.PivotItems Cpt2 = Cpt2 + 1 Application.StatusBar = Cpt1 & "/" & ActiveSheet.PivotTables(1).PivotFields.Count & " - " & Cpt2 & "/" & wPvF.PivotItems.Count & " - Suppression de : " & wItem.Name wItem.Delete Next wItem Next wPvF On Error GoTo 0 Application.Calculation = xlCalculationAutomatic Application.StatusBar = False Application.ScreenUpdating = True Application.EnableEvents = True End Sub
' ***
Cette macro va supprimer tous les champs inutiles...
-- A+ Benead Bretagne Xl97 -------- ;-)
Doum a écrit:
Bonjour ! J'ai un tableau croisé dynamique avec un champs "Mois". Au départ, le champs contenait les mois en francais (Janvier, février, mars etc..). J'ai dû les inscrires en anglais par la suite. Sauf que maintenant, dans mon tableau croisé, les mois en français s'affiche toujours dans le bouton "Mois". Donc j'ai les mois en anglais et en francais, meme après avoir supprimé le tableau et l'Avoir refait !!!! Merci
AV
Comme ça...
Sub zz_Sup_Items_Fantômes() On Error Resume Next For Each pivotT In ActiveSheet.PivotTables For Each pivotF In pivotT.PivotFields For Each pivotI In pivotF.PivotItems pivotI.Delete Next Next pivotT.RefreshTable Next End Sub
AV
Comme ça...
Sub zz_Sup_Items_Fantômes()
On Error Resume Next
For Each pivotT In ActiveSheet.PivotTables
For Each pivotF In pivotT.PivotFields
For Each pivotI In pivotF.PivotItems
pivotI.Delete
Next
Next
pivotT.RefreshTable
Next
End Sub
Sub zz_Sup_Items_Fantômes() On Error Resume Next For Each pivotT In ActiveSheet.PivotTables For Each pivotF In pivotT.PivotFields For Each pivotI In pivotF.PivotItems pivotI.Delete Next Next pivotT.RefreshTable Next End Sub
