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

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 !

Bonjour,


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

remplacer

Code:

---

$A$1:$B$3

---

par

Code:

---

Feuil1!$A:$B

---

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!

le code pour changer le datasource

Code:

---

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

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:

---

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

---

Il faut mettre l'adresse au format R1C1

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

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

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:

---

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!

Code:

---

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

---

Merci pour ta réponse.

Cependant je ne comprends pas ta variable derco ... :?

Elle permet d'indiquer sur quelle colonne se trouve ma dernière cellule ???

Excel 2003, la dernière colonne est IV
la dernière cellule (N° de colonne) non vide de la ligne 1 est

Code:

---

range("IV1").end(xltoleft).column

---

Regarde dans la FAQ, tu trouves des explications étendues (désolé, je n'ai pas le lien)

C'est bon j'ai trouvé la solution dans la FAQ.

Merci beaucoup pour votre aide! :ccool: