Discussion :

[sakhob]

Bonjour,
je viens de débuter sur VBA et suis bloqué sur une macro dont j'arrive pas trouver l'erreur qu'elle m'affiche.
je m'explique:
J'ai un TCD(tableau croisé dynamique) que je veux mettre à jour à chaque fois que les données sources sont mis à jour.
Dans ma source de données j'ai besoin que d'une colonne qui ne sera jamais vide.
Je veux qu'il me prenne dans la source que la colonne AM(de la 1ere à la derniere cellule active de cette colonne).
voici ce que j'ai écris:

Code :

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

1
2
3
4
5
6
7
Sub majtcd()
 
 Sheets("Tabcroisé_parctotal").Select
     Sheets("Tabcroisé_parctotal").PivotTables("TCD1").SourceData = _
   Worksheets("Parctotal").Range("AM1", Range("AM1").End(xlDown))
      ActiveSheet.PivotTables("TCD1").PivotCache.Refresh
  End Sub

j'ai l'erreur:application ou objet non trouvé.
ça fait 3 jours que je cherche .
Est ce que quelqu'un pourrait m'aider?.
Merci d'avance

[parmi]

Bonjour,

Essaie ceci

Code :

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

Worksheets("Parctotal").Range("AM1:AM" & Range("AM1").End(xlDown).Row)

[Invité]

bonjour,

Code :

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

1
2
3
4
Sub majtcd()
   Sheets("Tabcroisé_parctotal").PivotTables("TCD1").SourceData = "Parctotal!AM1:AM" & Worksheets("Parctotal").Range("AM1").End(xlDown).Row
    Sheets("Tabcroisé_parctotal").PivotTables("TCD1").PivotCache.Refresh
End Sub

[parmi]

Bien vu rdurupt
Je suis allé un peu vite là-dessus...

[sakhob]

Merci rdurupt et à parmi pour vos réponses rapides.
ça l'air de marcher mais j'ai un message qui me dit que le nom de champ n'est pas valide.
je ne sais pas ce que ça veut dire.

[Invité]

ça veut dire que le titre de la colonne M1 ne cadre pas avec le nom du champ présent dans ton TDC