Localiser le TCD qui pose probleme

Résolu
abourakba Messages postés 89 Statut Membre -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Si on a plusieurs TCD et le message ci-dessous sort quand on fait "actualiser tout "

Comment peut-on détecter celui qui pose problème sans avoir besoin de vérifier chacun car il y'a autant !!? Merci pour votre aide:)



Configuration: Windows / Chrome 70.0.3538.102

2 réponses

  1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Essaie avec ça :
    Sub testMajTCD()
        Dim sh As Worksheet, pt As PivotTable
        For Each sh In Worksheets
            For Each pt In sh.PivotTables
                On Error GoTo erreur
                pt.PivotCache.Refresh
                On Error GoTo 0
            Next pt
        Next sh
        Exit Sub
    erreur:
        MsgBox "Erreur en " & sh.Name & pt.DataBodyRange.Address
        Resume Next
    End Sub

    n'ayant pas de fichier avec cette erreur je n'ai pu tester.
    eric
    1
    1. abourakba Messages postés 89 Statut Membre
       
      Salut Eric,
      Merci beaucoup , je vais le tester sur mon fichier et tenir informé du résultat:)
      Amicalement,
      0
    2. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      Bonjour,

      MsgBox "Erreur en " & sh.Name & "!" & pt.DataBodyRange.Address

      pour séparer le nom de la feuille et de la plage
      eric
      0
  2. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    le plus souvent s'en est un qui manque de place.
    Il cherche à s'étendre (en lignes ou colonnes) et n'a pas la place. Ecarte-les si tu en as plusieurs sur une même feuille.
    eric
    0
    1. abourakba Messages postés 89 Statut Membre
       
      Bonjour Eric,
      On est effet, je pense qu'il n'ya pas autre moyen de detecter celui qui pose probleme sans verifier chacun.
      Merci
      0