Changer source d'un TCD sans creer nouveau ...

Fermé

Clarinette13006 Messages postés 6 Date d'inscription mardi 15 juillet 2014 Statut Membre Dernière intervention 17 juillet 2014 - 17 juil. 2014 à 12:19
Clarinette13006 Messages postés 6 Date d'inscription mardi 15 juillet 2014 Statut Membre Dernière intervention 17 juillet 2014 - 17 juil. 2014 à 17:06

Bonjour les internautes !!

je suis depuis quelques jours sur une matrice VBA, et je rencontre une ultime problème pour optimiser la saisie .....

Alors avant de renoncer, car j'ai tout essayé, je vous expose mon pb

J'ai une base de donner sur une feuille et sur une autre feuille j'ai un TCD, je voudrais que ma matrice changer ma source

Sachant que j'ai un nombre de ligne aléatoire selon ma base de donnees (nb colonne reste 17)
et sachant que j'ai déjà paramétré mon TCD donc c juste l'action de changer ma source et non pas créer nouveau ...

Voici ou mon code s'arrete ... il ne fonctionne pas ... j'en ai essayé plein..

Si vous avez une reponse une idée, svp n'hésitez pas :)

MERCI

Sub Bouton4_Clic()

Dim shdata As Worksheet
Dim shreefer As Worksheet

Dim DerLig As Long
DerLig = shdata.Range("A" & Rows.Count).End(xlUp).Row

shreefer.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
shdata.Range(Cells(1, 1), Cells(DerLig, 17)), Version:=xlPivotTableVersion14). _

End Sub

A voir également:

Changer source d'un TCD sans creer nouveau ...
Créer un compte gmail - Guide
Créer un compte google - Guide
Changer dns - Guide
Créer un groupe whatsapp - Guide
Créer un compte instagram - Guide

1 réponse

Réponse 1 / 1

Clarinette13006 Messages postés 6 Date d'inscription mardi 15 juillet 2014 Statut Membre Dernière intervention 17 juillet 2014
17 juil. 2014 à 17:06

Dim shdata As Worksheet
Dim shreefer As Worksheet
Dim shpoid As Worksheet
Dim shtc As Worksheet

Set shdata = ActiveWorkbook.Sheets("DATABASE")
Set shreefer = ActiveWorkbook.Sheets("REEFERS")
Set shpoid = ActiveWorkbook.Sheets("POID")
Set shtc = ActiveWorkbook.Sheets("TC")

Dim DerLig As Long

DerLig = Sheets("DATABASE").Range("A" & Rows.Count).End(xlUp).Row

Range1 = Sheets("DATABASE").Range("A1" & DerLig)

Sheets("REEFERS").Select
ActiveSheet.PivotTables("Tableau croisé dynamique3").ChangePivotCache _
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Range1" _
, Version:=xlPivotTableVersion12)

Ca ne marche toujours pas...
Si quelqu'un a une idée :) :)

Discussions similaires

créer une adresse gmail pour une autre personne

Discussions similaires

Newsletters