Bonjour
j'ai un tcd qui depend d'une feuille Base
je renseigne ma feuille normale me direz vous avec Dupond, Durant, Duchnoc
maintenant sur ma feuille tcd je peux choisir l'un des trois, voire meme les
trois.
je supprime en totalité de ma base tout ce qui est Durant et Duchnoc
mon probleme est quand je revient sur mon tcd, dans le choix de mes nom ils
apparaissent toujours
alors qu'il ne devrait plus y avoir que Dupond et ce malgres le refresh
merci de votre aide
gege
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
lSteph
Bonsoir,
Se positionner dans le TCD Clic droit ou Menu Données Actualiser.
lSteph
gérard a formulé la demande :
Bonjour j'ai un tcd qui depend d'une feuille Base je renseigne ma feuille normale me direz vous avec Dupond, Durant, Duchnoc maintenant sur ma feuille tcd je peux choisir l'un des trois, voire meme les trois. je supprime en totalité de ma base tout ce qui est Durant et Duchnoc mon probleme est quand je revient sur mon tcd, dans le choix de mes nom ils apparaissent toujours alors qu'il ne devrait plus y avoir que Dupond et ce malgres le refresh merci de votre aide gege
-- - -
Bonsoir,
Se positionner dans le TCD
Clic droit ou Menu Données
Actualiser.
lSteph
gérard a formulé la demande :
Bonjour
j'ai un tcd qui depend d'une feuille Base
je renseigne ma feuille normale me direz vous avec Dupond, Durant, Duchnoc
maintenant sur ma feuille tcd je peux choisir l'un des trois, voire meme les
trois.
je supprime en totalité de ma base tout ce qui est Durant et Duchnoc
mon probleme est quand je revient sur mon tcd, dans le choix de mes nom ils
apparaissent toujours
alors qu'il ne devrait plus y avoir que Dupond et ce malgres le refresh
merci de votre aide
gege
Se positionner dans le TCD Clic droit ou Menu Données Actualiser.
lSteph
gérard a formulé la demande :
Bonjour j'ai un tcd qui depend d'une feuille Base je renseigne ma feuille normale me direz vous avec Dupond, Durant, Duchnoc maintenant sur ma feuille tcd je peux choisir l'un des trois, voire meme les trois. je supprime en totalité de ma base tout ce qui est Durant et Duchnoc mon probleme est quand je revient sur mon tcd, dans le choix de mes nom ils apparaissent toujours alors qu'il ne devrait plus y avoir que Dupond et ce malgres le refresh merci de votre aide gege
-- - -
Garette
Bonsoir,
Fais une recherche sur "Purger un tableau dynamique" dans ce meme forum, il y a une solution pour "nettoyer" le tcd.
Bonsoir,
Fais une recherche sur "Purger un tableau dynamique" dans ce meme forum, il
y a une solution pour "nettoyer" le tcd.
Fais une recherche sur "Purger un tableau dynamique" dans ce meme forum, il y a une solution pour "nettoyer" le tcd.
Céline Brien
Bonjour Gege, Ci-après les codes pour rafraîchir les listes déroulantes d'un TCD et les procédures pour copier les codes en VBA. Après avoir nettoyé les listes déroulantes, tu peux supprimer les codes en VBA. Salutations, Céline -------------------------------- Procédures pour copier les codes en VBA : ------------------- Fermer tous les autres classeurs, (c'est pas obligatoire mais c'est plus facile de se comprendre) ; Appuyer sur les touches Alt+F11 ; À gauche, dans la fenêtre Projet - VBAProjet, double-cliquer sur ThisWorkbook ; Coller les codes ci-après dans la fenêtre de droite ; -------------------------------- Codes VBA : ------------------- Sub DeleteOldItemsInPivotTable() 'gets rid of unused items in PivotTable ' based on MSKB (202232) ' Désactiver l'actualisation de l'écran (exécution plus rapide de la macro) Application.ScreenUpdating = False ' Désactiver le calcul automatique Application.Calculation = xlManual 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 Each WS In ActiveWorkbook.Worksheets For Each pt In WS.PivotTables pt.RefreshTable For Each pf In pt.PivotFields For Each pi In pf.PivotItems If pi.RecordCount = 0 And Not pi.IsCalculated Then pi.Delete End If Next 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 des tableaux croisés dynamiques" End Sub
"gérard" a écrit dans le message de news: 453bb5f7$0$27410$
Bonjour j'ai un tcd qui depend d'une feuille Base je renseigne ma feuille normale me direz vous avec Dupond, Durant, Duchnoc maintenant sur ma feuille tcd je peux choisir l'un des trois, voire meme les trois. je supprime en totalité de ma base tout ce qui est Durant et Duchnoc mon probleme est quand je revient sur mon tcd, dans le choix de mes nom ils apparaissent toujours alors qu'il ne devrait plus y avoir que Dupond et ce malgres le refresh merci de votre aide gege
Bonjour Gege,
Ci-après les codes pour rafraîchir les listes déroulantes d'un TCD et les
procédures pour copier les codes en VBA.
Après avoir nettoyé les listes déroulantes, tu peux supprimer les codes en
VBA.
Salutations,
Céline
--------------------------------
Procédures pour copier les codes en VBA :
-------------------
Fermer tous les autres classeurs, (c'est pas obligatoire mais c'est plus
facile de se comprendre) ;
Appuyer sur les touches Alt+F11 ;
À gauche, dans la fenêtre Projet - VBAProjet, double-cliquer sur
ThisWorkbook ;
Coller les codes ci-après dans la fenêtre de droite ;
--------------------------------
Codes VBA :
-------------------
Sub DeleteOldItemsInPivotTable()
'gets rid of unused items in PivotTable
' based on MSKB (202232)
' Désactiver l'actualisation de l'écran (exécution plus rapide de la macro)
Application.ScreenUpdating = False
' Désactiver le calcul automatique
Application.Calculation = xlManual
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 Each WS In ActiveWorkbook.Worksheets
For Each pt In WS.PivotTables
pt.RefreshTable
For Each pf In pt.PivotFields
For Each pi In pf.PivotItems
If pi.RecordCount = 0 And Not pi.IsCalculated Then
pi.Delete
End If
Next
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 des tableaux
croisés dynamiques"
End Sub
"gérard" <gege@wanadoo.fr> a écrit dans le message de news:
453bb5f7$0$27410$ba4acef3@news.orange.fr...
Bonjour
j'ai un tcd qui depend d'une feuille Base
je renseigne ma feuille normale me direz vous avec Dupond, Durant, Duchnoc
maintenant sur ma feuille tcd je peux choisir l'un des trois, voire meme
les trois.
je supprime en totalité de ma base tout ce qui est Durant et Duchnoc
mon probleme est quand je revient sur mon tcd, dans le choix de mes nom
ils apparaissent toujours
alors qu'il ne devrait plus y avoir que Dupond et ce malgres le refresh
merci de votre aide
gege
Bonjour Gege, Ci-après les codes pour rafraîchir les listes déroulantes d'un TCD et les procédures pour copier les codes en VBA. Après avoir nettoyé les listes déroulantes, tu peux supprimer les codes en VBA. Salutations, Céline -------------------------------- Procédures pour copier les codes en VBA : ------------------- Fermer tous les autres classeurs, (c'est pas obligatoire mais c'est plus facile de se comprendre) ; Appuyer sur les touches Alt+F11 ; À gauche, dans la fenêtre Projet - VBAProjet, double-cliquer sur ThisWorkbook ; Coller les codes ci-après dans la fenêtre de droite ; -------------------------------- Codes VBA : ------------------- Sub DeleteOldItemsInPivotTable() 'gets rid of unused items in PivotTable ' based on MSKB (202232) ' Désactiver l'actualisation de l'écran (exécution plus rapide de la macro) Application.ScreenUpdating = False ' Désactiver le calcul automatique Application.Calculation = xlManual 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 Each WS In ActiveWorkbook.Worksheets For Each pt In WS.PivotTables pt.RefreshTable For Each pf In pt.PivotFields For Each pi In pf.PivotItems If pi.RecordCount = 0 And Not pi.IsCalculated Then pi.Delete End If Next 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 des tableaux croisés dynamiques" End Sub
"gérard" a écrit dans le message de news: 453bb5f7$0$27410$
Bonjour j'ai un tcd qui depend d'une feuille Base je renseigne ma feuille normale me direz vous avec Dupond, Durant, Duchnoc maintenant sur ma feuille tcd je peux choisir l'un des trois, voire meme les trois. je supprime en totalité de ma base tout ce qui est Durant et Duchnoc mon probleme est quand je revient sur mon tcd, dans le choix de mes nom ils apparaissent toujours alors qu'il ne devrait plus y avoir que Dupond et ce malgres le refresh merci de votre aide gege
Modeste
Bonsour® gérard avec ferveur ;o))) vous nous disiez :
je supprime en totalité de ma base tout ce qui est Durant et Duchnoc mon probleme est quand je revient sur mon tcd, dans le choix de mes nom ils apparaissent toujours
voir plusieurs solutions dont une sans macro là : http://contextures.com/xlPivot04.html
-- -- @+ ;o)))
Bonsour® gérard avec ferveur ;o))) vous nous disiez :
je supprime en totalité de ma base tout ce qui est Durant et Duchnoc
mon probleme est quand je revient sur mon tcd, dans le choix de mes nom ils
apparaissent toujours
voir plusieurs solutions dont une sans macro là :
http://contextures.com/xlPivot04.html
Bonsour® gérard avec ferveur ;o))) vous nous disiez :
je supprime en totalité de ma base tout ce qui est Durant et Duchnoc mon probleme est quand je revient sur mon tcd, dans le choix de mes nom ils apparaissent toujours
voir plusieurs solutions dont une sans macro là : http://contextures.com/xlPivot04.html
-- -- @+ ;o)))
gérard
bonjour et maerci Celine c'est nickel merci encore "Céline Brien" a écrit dans le message de news:
Bonjour Gege, Ci-après les codes pour rafraîchir les listes déroulantes d'un TCD et les procédures pour copier les codes en VBA. Après avoir nettoyé les listes déroulantes, tu peux supprimer les codes en VBA. Salutations, Céline -------------------------------- Procédures pour copier les codes en VBA : ------------------- Fermer tous les autres classeurs, (c'est pas obligatoire mais c'est plus facile de se comprendre) ; Appuyer sur les touches Alt+F11 ; À gauche, dans la fenêtre Projet - VBAProjet, double-cliquer sur ThisWorkbook ; Coller les codes ci-après dans la fenêtre de droite ; -------------------------------- Codes VBA : ------------------- Sub DeleteOldItemsInPivotTable() 'gets rid of unused items in PivotTable ' based on MSKB (202232) ' Désactiver l'actualisation de l'écran (exécution plus rapide de la macro) Application.ScreenUpdating = False ' Désactiver le calcul automatique Application.Calculation = xlManual 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 Each WS In ActiveWorkbook.Worksheets For Each pt In WS.PivotTables pt.RefreshTable For Each pf In pt.PivotFields For Each pi In pf.PivotItems If pi.RecordCount = 0 And Not pi.IsCalculated Then pi.Delete End If Next 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 des tableaux croisés dynamiques" End Sub
"gérard" a écrit dans le message de news: 453bb5f7$0$27410$
Bonjour j'ai un tcd qui depend d'une feuille Base je renseigne ma feuille normale me direz vous avec Dupond, Durant, Duchnoc maintenant sur ma feuille tcd je peux choisir l'un des trois, voire meme les trois. je supprime en totalité de ma base tout ce qui est Durant et Duchnoc mon probleme est quand je revient sur mon tcd, dans le choix de mes nom ils apparaissent toujours alors qu'il ne devrait plus y avoir que Dupond et ce malgres le refresh merci de votre aide gege
bonjour et maerci Celine
c'est nickel
merci encore
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message de
news: OC5z17i9GHA.4620@TK2MSFTNGP02.phx.gbl...
Bonjour Gege,
Ci-après les codes pour rafraîchir les listes déroulantes d'un TCD et les
procédures pour copier les codes en VBA.
Après avoir nettoyé les listes déroulantes, tu peux supprimer les codes en
VBA.
Salutations,
Céline
--------------------------------
Procédures pour copier les codes en VBA :
-------------------
Fermer tous les autres classeurs, (c'est pas obligatoire mais c'est plus
facile de se comprendre) ;
Appuyer sur les touches Alt+F11 ;
À gauche, dans la fenêtre Projet - VBAProjet, double-cliquer sur
ThisWorkbook ;
Coller les codes ci-après dans la fenêtre de droite ;
--------------------------------
Codes VBA :
-------------------
Sub DeleteOldItemsInPivotTable()
'gets rid of unused items in PivotTable
' based on MSKB (202232)
' Désactiver l'actualisation de l'écran (exécution plus rapide de la
macro)
Application.ScreenUpdating = False
' Désactiver le calcul automatique
Application.Calculation = xlManual
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 Each WS In ActiveWorkbook.Worksheets
For Each pt In WS.PivotTables
pt.RefreshTable
For Each pf In pt.PivotFields
For Each pi In pf.PivotItems
If pi.RecordCount = 0 And Not pi.IsCalculated Then
pi.Delete
End If
Next
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 des tableaux
croisés dynamiques"
End Sub
"gérard" <gege@wanadoo.fr> a écrit dans le message de news:
453bb5f7$0$27410$ba4acef3@news.orange.fr...
Bonjour
j'ai un tcd qui depend d'une feuille Base
je renseigne ma feuille normale me direz vous avec Dupond, Durant,
Duchnoc
maintenant sur ma feuille tcd je peux choisir l'un des trois, voire meme
les trois.
je supprime en totalité de ma base tout ce qui est Durant et Duchnoc
mon probleme est quand je revient sur mon tcd, dans le choix de mes nom
ils apparaissent toujours
alors qu'il ne devrait plus y avoir que Dupond et ce malgres le refresh
merci de votre aide
gege
bonjour et maerci Celine c'est nickel merci encore "Céline Brien" a écrit dans le message de news:
Bonjour Gege, Ci-après les codes pour rafraîchir les listes déroulantes d'un TCD et les procédures pour copier les codes en VBA. Après avoir nettoyé les listes déroulantes, tu peux supprimer les codes en VBA. Salutations, Céline -------------------------------- Procédures pour copier les codes en VBA : ------------------- Fermer tous les autres classeurs, (c'est pas obligatoire mais c'est plus facile de se comprendre) ; Appuyer sur les touches Alt+F11 ; À gauche, dans la fenêtre Projet - VBAProjet, double-cliquer sur ThisWorkbook ; Coller les codes ci-après dans la fenêtre de droite ; -------------------------------- Codes VBA : ------------------- Sub DeleteOldItemsInPivotTable() 'gets rid of unused items in PivotTable ' based on MSKB (202232) ' Désactiver l'actualisation de l'écran (exécution plus rapide de la macro) Application.ScreenUpdating = False ' Désactiver le calcul automatique Application.Calculation = xlManual 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 Each WS In ActiveWorkbook.Worksheets For Each pt In WS.PivotTables pt.RefreshTable For Each pf In pt.PivotFields For Each pi In pf.PivotItems If pi.RecordCount = 0 And Not pi.IsCalculated Then pi.Delete End If Next 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 des tableaux croisés dynamiques" End Sub
"gérard" a écrit dans le message de news: 453bb5f7$0$27410$
Bonjour j'ai un tcd qui depend d'une feuille Base je renseigne ma feuille normale me direz vous avec Dupond, Durant, Duchnoc maintenant sur ma feuille tcd je peux choisir l'un des trois, voire meme les trois. je supprime en totalité de ma base tout ce qui est Durant et Duchnoc mon probleme est quand je revient sur mon tcd, dans le choix de mes nom ils apparaissent toujours alors qu'il ne devrait plus y avoir que Dupond et ce malgres le refresh merci de votre aide gege
