Macro pour modifier source de données d'un TCD

**Jay29** · 02/10/2009, 11h39

Bonjour à tous!

Je viens vers vous car j'ai un petit soucis avec mes TCD. Ce sont des TCD déjà crées et ils me suffit de les actualiser. Cependant, le problème est que la source de données (qui se trouve dans ma première feuille) varie en nombre de ligne mais pas en nombre de colonne. Je voudrais donc changer la source de donnée ou du moins faire en sorte que mes TCD prennent automatiquement les nouvelle ligne en compte. Je voudrais donc automatisé cela en créant une macro mais le problème est que je ne sais pas quelle formule il faut utiliser. J'ai essayé de faire un enregistrement manuel mais rien n'est apparu dans le code excel. J'espère que je suis assez clair dans mon explication, dans le cas contraire n'hésitez pas à m'en faire part!

Merci d'avance à vous !

**jfontaine** · 02/10/2009, 12h03

Bonjour,

Tu pourrais tout simplement changer manuellementla source des données en choississant les colonnes entieres

remplacer

Code :

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

$A$1:$B$3

par

Code :

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

Feuil1!$A:$B

**Jay29** · 02/10/2009, 13h36

Oui mais je voudrais savoir s'il existe un code VBA permettant de le faire. J'ai fais quelque recherche et je crois que c'est avec Datasource.

Merci quand même pour ta réponse!

**jfontaine** · 02/10/2009, 14h08

le code pour changer le datasource

Code :

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

1
2
    ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
        "Feuil1!R1C1:R5C2"

Code donné par l'enregistreur de macro. Bizard que ca ne t'ais rien donnée

**Jay29** · 02/10/2009, 14h52

Merci pour ta réponse!

Alors j'ai essayé de remanier ton code de cette façon pour qu'il prenne la dernière cellule non vide cependant j'ai une erreur lors de l'exécution et je pense que la syntaxe n'est pas bonne non plus. Le voici :

Code :

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

1
2
3
4
For i = 1 to ActiveSheet.UsedRange.Rows.Count
WorkSheet(2).PivotTableWizard SourceType:=xlDatabase, SourceData:= _
        "Export!A & i : AF & i"
Next i

**jfontaine** · 02/10/2009, 14h53

Il faut mettre l'adresse au format R1C1

**Jay29** · 02/10/2009, 14h58

Ah d'accord et R1C1 correspond à la première ligne de la première colonne c'est ça ?

**jfontaine** · 02/10/2009, 15h37

Je ne suis pas un expert de ce mode d'adressage, mais ca correspond a l'adresse par rapport a la cellule active

**Jay29** · 05/10/2009, 13h20

En effet, après quelque recherche R correspond au numéro de la ligne et C au numéro de la colonne. Ta formule fonctionne bien et je te remercie cependant il me reste un dernier problème. Je voudrais sélectionner la première cellule (R1C1) et la dernière cellule non vide de ma dernière colonne pour qu'il s'adapte a mon export selon s'il est plus grand ou plus petit que le précédent. Mais je ne sais pas trop comment m'y prendre, j'ai essayé de faire comme ci-dessous mais ça ne fonctionne pas :

Code :

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

1
2
3
4
Plage = "Export" & "!" & Range("A1").Resize(Cells.SpecialCells(xlCellTypeLastCell).Row, Cells.SpecialCells(xlCellTypeLastCell).Column).Address(ReferenceStyle:=xlR1C1, _
            RowAbsolute:=True, ColumnAbsolute:=True)
 
 ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:=Plage

Il me met une erreur d'exécution 1004 sur la dernière ligne.
Merci!

**mercatog** · 05/10/2009, 13h34

Code :

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

1
2
3
4
5
derli = Range("AF65536").End(xlUp).row  'je suis en excel 2003
derco=range("IV1").end(xtoleft).column  'je suis en excel 2003
 
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
        "Export!R1C1:R" & derli & "C" & derco