Changer source d'un TCD sans creer nouveau ...
Clarinette13006
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
Clarinette13006 Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
Clarinette13006 Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
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
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 ...
- Changer dns - Guide
- Créer un compte google - Guide
- Comment créer un groupe whatsapp - Guide
- Créer un nouveau compte gmail - Guide
- Créer un lien pour partager des photos - Guide
1 réponse
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 :) :)
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 :) :)