TCD par macro

O

Ophé

XLDnaute Junior

• 11 Juin 2009

• #2

Re : TCD par macro

Je joins un fichier pour que ce soit plus simple.

Je souhaite pouvoir effectuer un tableau croisé dynamique par mois (chaque mois étant sur une feuille), au moment où je le décide pour le mois que je choisis également.
Comment puis-je faire?

(le tableau croisé dynamique a les stat en ligne et les ventes et les livrées en valeur)

Merci d'avance.

Ophé

 

Pièces jointes

• ex commerciaux.xls

  46.5 KB · Affichages: 61
• ex commerciaux.xls

  46.5 KB · Affichages: 73
• ex commerciaux.xls

  46.5 KB · Affichages: 73

Vote positif 0 Vote négatif

O

Ophé

XLDnaute Junior

• 12 Juin 2009

• #3

Re : TCD par macro

Re,

est ce que quelqu'un voit une solution à mon problème faut-il que je sois plus claire??

 

Vote positif 0 Vote négatif

G

groota

XLDnaute Nouveau

• 12 Juin 2009

• #4

Re : TCD par macro

Coucou
Je sais pas trop si ton problème est le même que celui que j'ai eu auparavant. Est ce que ton tableau varie en ligne mais pas en colonne ?

 

Vote positif 0 Vote négatif

M

Minick

XLDnaute Impliqué

• 12 Juin 2009

• #5

Re : TCD par macro

Salut,

Essais ceci:

Code:

Option Explicit

Sub TCD()
    Dim ShtSrc As Worksheet, ShtDst As Worksheet
    
    Application.ScreenUpdating = False
        Set ShtSrc = ActiveSheet
        
        If ShtSrc.Range("A65536").End(xlUp).Row > 1 Then
            Set ShtDst = Sheets.Add
            
            On Error Resume Next
                Application.DisplayAlerts = False
                ThisWorkbook.Sheets("TCD " & ShtSrc.Name).Delete
                Application.DisplayAlerts = True
            On Error GoTo 0
            
            ShtDst.Name = "TCD " & ShtSrc.Name
            
            ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
                "'" & ShtSrc.Name & "'!" & ShtSrc.UsedRange.Address).CreatePivotTable TableDestination:="'" & ShtDst.Name & "'!R1C1", TableName:="TCD " & ShtSrc.Name, DefaultVersion:=xlPivotTableVersion10
            With ShtDst.PivotTables(ShtDst.Name)
                With .PivotFields("Stat ")
                    .Orientation = xlRowField
                    .Position = 1
                End With
                
                .AddDataField .PivotFields("Ventes        "), "Somme de Ventes", xlSum
                .AddDataField .PivotFields("LivrÚe       "), "Somme de Livrée", xlSum
            End With
            
            ThisWorkbook.ShowPivotTableFieldList = False
            
            Set ShtDst = Nothing
        End If
        Set ShtSrc = Nothing
    Application.ScreenUpdating = True
End Sub

++
Minick

 

Vote positif 0 Vote négatif

O

Ophé

XLDnaute Junior

• 12 Juin 2009

• #6

Re : TCD par macro

Bonjour groota,

oui en effet cela fais partie de mon problème.

Ce fichier possède des feuilles par mois (JANVIER, FEVRIER ... etc),
le tableau est le même dans chacune des feuilles mais le nombre de lignes varient.

Je souhaite pouvoir faire un TCD sur une nouvelle feuille à chaque fois, en me mettant sur un mois voulu, et en fesant en sorte que la sélection se fassent quelque soit le nombre de lignes.

Merci !!
Cdlt

Ophé

 

Vote positif 0 Vote négatif

G

groota

XLDnaute Nouveau

• 12 Juin 2009

• #7

Re : TCD par macro

Ophé à dit:

Bonjour groota,

oui en effet cela fais partie de mon problème.

Ce fichier possède des feuilles par mois (JANVIER, FEVRIER ... etc),
le tableau est le même dans chacune des feuilles mais le nombre de lignes varient.

Je souhaite pouvoir faire un TCD sur une nouvelle feuille à chaque fois, en me mettant sur un mois voulu, et en fesant en sorte que la sélection se fassent quelque soit le nombre de lignes.

Merci !!
Cdlt

Ophé

Cliquez pour agrandir...

Si tu veux aller de la colonne A à la colonne P (par exemple) (peut importe le nombre de ligne), il faut que tu mette à la place de SourceData:= _
"JANVIER!L1C1:L362C27 : SourceData:= _ "JANVIER!A😛

Dis moi si ça marche

 

Vote positif 0 Vote négatif

O

Ophé

XLDnaute Junior

• 12 Juin 2009

• #8

Re : TCD par macro

Re,

désolée mais je n'aipas pu testé de suite!!

J'ai testé de changé mais ça ne fonctionne pas, ca me créer un beug.????

Et mon problème de changement de feuille selon le mois n'est pas réglé,

avez-vous une idée?

Merci d'avance

Ophé

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 12 Juin 2009

• #9

Re : TCD par macro

bonjour Ophé, groota, Minick,


as-tu testé le code de Minick ?
il a l'air de fonctionner impec sur l'exemple que tu as mis : il fait un TCD avec la feuille active.

a+

 

Vote positif 0 Vote négatif

M

Minick

XLDnaute Impliqué

• 12 Juin 2009

• #10

Re : TCD par macro

Oui mais ou???

J'ai repris ton classeur, mis la macro et je n'ai pas de bug...

++
Minick

 

Pièces jointes

• ex commerciaux.zip

  17.5 KB · Affichages: 93

Vote positif 0 Vote négatif

O

Ophé

XLDnaute Junior

• 12 Juin 2009

• #11

Re : TCD par macro

Bonjour tout le monde,

je n'avais pas vu la macro de minick, je devais être en train d'écrire donc pas rafraichi !!!!
je vais testé !!!!! désoléeeeee

 

Vote positif 0 Vote négatif

O

Ophé

XLDnaute Junior

• 12 Juin 2009

• #12

Re : TCD par macro

Bonjour, en effet cette macro marche parfaitement, mais comme d'habitude vous me direz j'ai encore un souci, je souhaite effectué cette macro sur 2007, d'habitude ça ne me pose pas de problème mais ici j'en ai un, il me marque erreur 400.

Faut-il modifier quelque chose dans le code??

Merci en tout cas, c'est génial !!!

Ophé

 

Vote positif 0 Vote négatif

O

Ophé

XLDnaute Junior

• 12 Juin 2009

• #13

Re : TCD par macro

Autant pour moi, ça fonctionne également sur 2007. J'avais un beug qui ne venais pas de ton code !!!

Merci à tous les 3 en tout cas !!!!

C'est parfait !!!!

Juste une petite demande mais c'est seulement si tu as le temps sinon je me débrouillerais, c'est pour commenter le code ?

Merci encore.

Ophé

 

Vote positif 0 Vote négatif

O

Ophé

XLDnaute Junior

• 12 Juin 2009

• #14

Re : TCD par macro

Re,

aïe si, j'ai un petit souci mais ce n'est pas gd chose (je pense), le tableau répète somme de livrées et de ventes, et je n'arrive pas a faire en sorte par le code de mettre les sommes de valeurs en étiquette de colonnes, comment faire???
Dans le même temps, une "mise en page" se met automatiquement sur 2007, je n'arrive pas à la mettre avec cette macro, est ce possible??

Merci encore

Ophé

 

Vote positif 0 Vote négatif

O

Ophé

XLDnaute Junior

• 12 Juin 2009

• #15

Re : TCD par macro

re,

j'ai trouvé pour le problème de la mise en page, il me reste le problème des étiquettes de données, je joins un fichier.

Merci

ophé

 

Pièces jointes

• image.jpg

  50.7 KB · Affichages: 61
• image.jpg

  50.7 KB · Affichages: 83
• image.jpg

  50.7 KB · Affichages: 76

Vote positif 0 Vote négatif