TCD plage variable avec VBA [Résolu/Fermé]

Re,

Je ne comprends pas pourquoi il faut rajouter un message box ? Sur mon onglet ou se situe ma base (base valabs), il y a toujours plus d'une ligne.

En plus, la le message box ce fait sur l'onglet ou doit etre cree le tableau croise dynamyque, mais le TDC ne se cree pas. Toujours un beuggue au niveau de :
Set plage = Worksheets(NomFeuille).Range(Cells(1, 1), Cells(DerLig, 14))

Cordialement

Si je te demande d'ajouter TEMPORAIREMENT ce MsgBox, c'est uniquement pour voir le numéro de la dernière ligne que tu récupère avec la variable "DerLig".
C'est tout !

edit: maintenant, il faut voir si tu récupères ..
on pourrait faire autrement :

MsgBox "Le numéro de la dernière ligne est : " & DerLig & " !!!"

sans le

If(DerLig<1) Then

De cette façon on connaîtra le numéro de la dernière ligne !!!

Ah, desolee, je ne comprenais pas :(
Dans ces cas la, le MsdBox me renvoi le chiffre 0

Ca veut dire quoi ?

Bonjour,

ca fait 3 fois que je reecris ce message ! lol
Merci pour ta reponse rapide. J'ai essaye ta solution ce matin et Excel bloque a l'endroit suivant :
Set plage = Worksheets(NomFeuille).Range(Cells(1, 1), Cells(DerLig, 14))

Je ne sais pas pourquoi. C'est pourtant ce que tu m'avais suggere, sauf que j'ai change Cells(20, 14) par Cells(DerLig, 14) car ma derniere ligme active est variable en fonction des mois.

Vois-tu ou est l'erreur ?
Merci encore pour ton aide.

Je te joins mon code en entier :

Option Explicit

Sub TCD_recap()

Dim plage As Range
Dim num_ligne As Long
Dim DerLig As Long
Dim NomFeuille As String

NomFeuille = "base valabs"
num_ligne = Range("A1").CurrentRegion.Rows.Count
DerLig = num_ligne - 1


'Creation du TCD
Set plage = Worksheets(NomFeuille).Range(Cells(1, 1), Cells(DerLig, 14))

Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
plage).CreatePivotTable TableDestination:=ActiveSheet.Range("A3"), TableName:="TCD_recap", DefaultVersion:=xlTable4


'Mise en forme
With ActiveSheet.PivotTables("TCD_recap")
'Ajoute un champ de lignes nommé "CZTDCS".
.AddFields RowFields:="CZTDCS"
'Définit l'orientation du champ nommé "CZPN" en tant que Donnée.
.PivotFields("CZPN").Orientation = xlDataField
'Définit l'orientation du champ nommé "VALEURECAR" en tant que Donnée.
.PivotFields("VALEURECAR").Orientation = xlDataField
'Définit l'orientation du champ nommé "VALABS" en tant que Donnée.
.PivotFields("VALABS").Orientation = xlDataField

End With


End Sub

re,

J'ai essayer ta proposition et ca beuggue toujours sur cette ligne. Quand je passe mon curseur sur DerLig ca me met "DerLig=1", hors il devrait me renvoyer 132.

Je te met mon code car j'ai peut etre fait des betises :

Option Explicit

Sub TCD_recap()

Dim plage As Range
Dim DerLig As Long
Dim NomFeuille As String

NomFeuille = "base valabs"
DerLig = Range("A" & Rows.Count).End(xlUp).Row


'Creation du TCD
Set plage = Worksheets(NomFeuille).Range(Cells(1, 1), Cells(DerLig, 14))

Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
plage).CreatePivotTable TableDestination:=ActiveSheet.Range("A3"), TableName:="TCD_recap", DefaultVersion:=xlTable4


'Mise en forme
With ActiveSheet.PivotTables("TCD_recap")
'Ajoute un champ de lignes nommé "CZTDCS".
.AddFields RowFields:="CZTDCS"
'Définit l'orientation du champ nommé "CZPN" en tant que Donnée.
.PivotFields("CZPN").Orientation = xlDataField
'Définit l'orientation du champ nommé "VALEURECAR" en tant que Donnée.
.PivotFields("VALEURECAR").Orientation = xlDataField
'Définit l'orientation du champ nommé "VALABS" en tant que Donnée.
.PivotFields("VALABS").Orientation = xlDataField

End With


End Sub


Merci :)

DerLig est maintenant egal a 132
Mais mon code continu a bloquer au niveau :
Set plage = Worksheets(NomFeuille).Range(Cells(1, 1), Cells(DerLig, 14))

plage=nothing

ok et la valeur de "DerLig " ?

Quel est la dernière ligne VISIBLE en colonne "A" ?
Sur quel onglet dois-tu récupérer la valeur "DerLig" ?

Quand je passe mon curseur dessus dans la partie de code suivant :
Set plage = Worksheets(NomFeuille).Range(Cells(1, 1), Cells(DerLig, 14))

DerLig=132

La derniere ligne visible en colonne A est 132, en colonne C, c'est 133.

La valeur DerLig doit etre recuperee sur l'onglet "base valabs" afin de definir ma plage, soit
de la cellule A1 a N & DerLig

J'ai fait la même chose que toi, sur classeur Excel, version 2003, et ça fonctionne .. bizarre !
Après le "Set ..", peux-tu mettre ce code

MsgBox "plage: " & plage.Address

et me dire ce qu'il y est écrit, merci

le MsgBox inscrit : "plage $A$1:$N$132"

Je te remets mon code pour voir si des choses different par rapport a ton code :

Option Explicit

Sub TCD_recap()

Dim plage As Range
Dim DerLig As Long
Dim NomFeuille As String

NomFeuille = "base valabs"
DerLig = Worksheets(NomFeuille).Range("A" & Rows.Count).End(xlUp).Row


'Creation du TCD
Set plage = Worksheets(NomFeuille).Range(Cells(1, 1), Cells(DerLig, 14))
MsgBox "plage: " & plage.Address

Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
plage).CreatePivotTable TableDestination:=ActiveSheet.Range("A3"), TableName:="TCD_recap", DefaultVersion:=xlTable4


'Mise en forme
With ActiveSheet.PivotTables("TCD_recap")
'Ajoute un champ de lignes nommé "CZTDCS".
.AddFields RowFields:="CZTDCS"
'Définit l'orientation du champ nommé "CZPN" en tant que Donnée.
.PivotFields("CZPN").Orientation = xlDataField
'Définit l'orientation du champ nommé "VALEURECAR" en tant que Donnée.
.PivotFields("VALEURECAR").Orientation = xlDataField
'Définit l'orientation du champ nommé "VALABS" en tant que Donnée.
.PivotFields("VALABS").Orientation = xlDataField

End With


End Sub

NB : Je precise que la je travaille sur Excel 2007 mais qu'il est en mode compatibilite car au travail, je dois pouvoir l'utiliser sur Excel 2003.

Chez moi, le code me fait une erreur a "set...."
et une, au niveau de "ActiveWorkbook..." comme tu l'indiques. Par contre, il ne me met pas de type d'erreur.

Peux-tu me mettre le code que toi tu as essaye chez toi ?
En tout cas merci pour ton aide.
J'espere reussir a debbeugguer le code pour la creation du TCD
Cordialement

Tu m'avais dit que dans le msgbox, le résultat était "plage $A$1:$N$132".
- Donc, si tu es passé ce message, le "Set" devrait être bon ?!?
- Est-ce qu'il te crée une nouvelle feuillé ?
- Et à quelle position te met-il cette nouvelle feuille ?

Il me cre une feuille devant la feuille ou se situe ma base (base valabs)

et en effet, je n'ai plus de probleme avec "Set ..." sauf si je ne supprime pas la nouvelle feuille cree et que je reexecute la macro

non, je n'en ai pas. Je pensais que sous "TableName" , il fallait indiquer le nom que l'on souhaitait donner a notre TCD

Je me trompe ?

Le soucis est que mes connaissances en ce qui concerne les tableaux croisés dynamique ne sont .. pas au top.

Par contre, je sais que, quand on crée une feuille, Excel lui donne un nom quelconque directement .. et après .. pour aller la rechercher, il faut faire un boucle sur la collection de feuille pour, par exemple, la renommer à sa façon perso.

La question que je me pose : comment peut-on créer une table pivot dans une feuille inconnue ? car, je pense que cette nouvelle feuille crée par le code, dont le nom lui est totalement inconnu ...

Pour moi, avec la partie du code :
TableDestination:=ActiveSheet.Range("A3")

il devrait me creer le TCD dans la feuille active (pour moi la nouvelle feuille creer) en cellule A3.

Par contre, je ne suis pas sur que pour lui, la nouvelle feuille cree soit bien la feuille active