Tcd

[ratou34]

Bonjour le forum
Et oui me revoila pour une nouvelle question (desolé!!!)

Je fais un TCD sur desig et somme de nombre.
Ensuite, je selectionne les deux colonne de mon TCD pour pouvoir faire des calcul.
Je voudrais que ma selection soit automatique en fonction du TCD car je n'aurais pas tout le temps le meme nombre de disig et par consequent pas le meme nombre de lignes dans mon TCD

Je voudrais remplacer:
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect _
"facteur:'(vide)'", xlDataAndLabel
par un code + general (car je n'aurais pas tout le temps facteur en 1ére case)

Cf code dans module

Merci d'avance

 

[ratou34]

Re : Tcd

j'ai oublié la piece jointe.

 

[Catrice]

Re : Tcd

Bonjour,

Un exemple ci-joint qui utilise une fonctionnalité implémentée dans les TCD
xlPercentOfTotal
Voir fichier joint.

Sub Test()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
[A1].CurrentRegion).CreatePivotTable TableDestination:= _
"[TCD.xls]Feuil1!R3C5", TableName:="Tableau croisé dynamique1"

With ActiveSheet.PivotTables("Tableau croisé dynamique1")
.AddFields RowFields:="desig"
With .PivotFields("nombre")
.Orientation = xlDataField
.Calculation = xlPercentOfTotal
End With
End With
End Sub

 

[ratou34]

Re : Tcd

re
Merci de ta rapidité à repondre, cependant, ce code ne fonctionne pas chez moi, j'ai un bug.
@+

 

[Catrice]

Re : Tcd

Ca plante où ?
Quelle version d'Excel ?

Comme d'habitude, il faut tester en enregistrant le fichier sur ta machine, pas in situ dans Internet Explorer !
C'est ce que tu as fait ?

 

[ratou34]

Re : Tcd

re
J'ai Excel 97 sr2
Le code erreur est:
'438'
Propriete ou methode non geree par objet
Merci

 

[ratou34]

Re : Tcd

non je l'execute toujours de ma machine

 

[Catrice]

Re : Tcd

Ah dur dur ...
Je n'ai pas XL97
Teste qd meme le fichier joint en cliquant sur le bouton Excel 2000

sinon c'est une fonctionnalité qui de memoire exite dans les TCD XL97
Tu peux faire un macro enregistrer

Pour slectionner la zone variable je crois que
[A1].CurrentRegion.Address
ou
[A1].CurrentRegion

doit fonctionner sous Excel 97

 

[Catrice]

Re : Tcd

Re,Re,

ci-joint une solution qui se base sur tes recherche du début et qui doit fonctionner en XL 97.
Et .... qui fonctionne quelle que soit la taille de la base 😉

Il n'y aura peut etre qu'à retoucher :
[A1].CurrentRegion.Address
en
[A1].CurrentRegion

 

[ratou34]

Re : Tcd

re
Je viens de le tester je dois faire une ou deux modif pour l'adapter mais ca m'a l'air pas mal du tout.
Merci bien.
Juste une toute petite question:
Pour construire mon TCD, je selectionne les deux colonnes entieres, dons dans le TCD, la derniere ligne est "(vide)" comment puis je faire pour qu'il me donne toutes les desig mais qu'il ne prenne pas les lignes vides.
Merci

 

[ratou34]

Re : Tcd

re
c super mais je vais te parraitre exigent et nul mais je n'arrive pas à classer mon TCD en decroissant par rapport au nombre.
Du plus grand au plus petit.
Merci

 

[Catrice]

Re : Tcd

Re,

Je n'ai pas bien compris les 2 derniers Fils.

Tu pars sur quelle solution ?
Celle qui construit un autre tableau ou celle qui fait le pourcentage automatiquement ?

comment puis je faire pour qu'il me donne toutes les desig mais qu'il ne prenne pas les lignes vides ?
De toutes façons, il ne prend jamais les lignes vides.
Et il n'est pas necessaire de selectionner des colonnes ...

mon TCD en decroissant par rapport au nombre.Du plus grand au plus petit.
Ca va donner un truc du genre :
Selection.Sort Key1:="R6C5", Order1:=xlAscending, Type:=xlSortValues

Où R6C5 est la cellule contenant la premiere valeur.
Reference à rendre variable (facilement identifiable, cf mon dernier exemple)
Il me faudrait ton code pour voir où tu en est ...

 

[ratou34]

Re : Tcd

re
Merci beaucoup en fait j'ai trouvé pour mettre les valeurs dans l'ordre.
Merci beaucoup pour ton aide qui encore une fois m'a ete indispoensable.
bonne fin de journee
@+