VBA : tcd source de données

VBAHell Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
VBAHell Messages postés 8 Date d'inscription Statut Membre Dernière intervention - 17 janv. 2018 à 11:27

Bonjour à tous,

J'ai un premier petit problème qui devrait être tout bête mais qui me pose problème depuis une heure maintenant :

Erreur 5 : Argument ou appel de procédure incorrect

Ceci est pour la ligne suivante :

  ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "R03!R1C1:R" & lgc & "C3", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="TCD R03!R2C2", TableName:="Tableau croisé dynamique2", _
        DefaultVersion:=xlPivotTableVersion14

C'est au niveau de ma source de données avec ma variable lgc que j'ai défini juste au dessus...

Par la suite, je sais également que j'aurai un problème au niveau de ma RECHERCHEV dans la seconde feuille, car elle fait référence à une plage qui change (suppressions de colonnes à chaque fois que je lance la macro etc...) donc ça me fait "#REF". Est-ce qu'il y a une solution à cela? Je pense qu'il faut que je passe par vba pour la recherchev et non pas directement mettre la fonction dans la case sinon j'aurai ce problème longuement.

Voici le fichier : https://www.cjoint.com/c/HApoXNJC4DS

Merci d'avance pour toutes les pistes que vous me donnerez, j'essaye de comprendre par moi-même mais là je suis bloqué pour des choses futiles et je n'ai pas trouvé de lien semblable sur les forums...

Cordialement,

Thomas

A voir également:

VBA : tcd source de données
Excel compter cellule couleur sans vba - Guide
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Mkdir vba ✓ - Forum VB / VBA
Vba range avec variable ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

VBAHell Messages postés 8 Date d'inscription Statut Membre Dernière intervention

Toujours pas d'idée?

J'ai tenté de créer un nom de plage de cellule de la manière suivante afin que le TCD soit actualisé grace à cela mais j'ai toujours la même erreur 5 à la même ligne ...

ActiveWorkbook.Names.Add Name:="MonTableau", RefersToR1C1:= _
        "=OFFSET('R03'!R1C1,,,COUNTA('R03'!C1),3)"
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "MonTableau", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="TCD R03!R2C1", TableName:="Tableau croisé dynamique", _
        DefaultVersion:=xlPivotTableVersion14

Je ne vois vraiment pas d'où vient le problème d'appel de procédure...

HELP please

Réponse 2 / 2

VBAHell Messages postés 8 Date d'inscription Statut Membre Dernière intervention

Problème résolu :

Il s'agissait du TableDestination:= "TCD R03!R2C1" . Il faut enlever la destination et ça créé un tcd sur une nouvelle feuille. Ensuite, je renomme cette feuille comme je le voulais au début à l'aide de : ActiveSheet.Name = "TCD R03" et en début de macro j'ai une feuille qui me supprime l'ancienne.

J'espère que ça pourra aider quelqu'un un jour.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires