Discussion :

[lilou89]

Bonjour à tous,

Je souhaiterai obtenir un TDC à partir d'un bouton que j'ai crée sur mon classeur.

le bouton TDC devrait creer et afficher le TDC dès que je clique dessus pour le tableau de CAEN-Lot 1.

1- j'ai déjà créer le bouton avec l'outil développeur puis insérer bouton contrôle formulaire.
2- j'ai utilisé l'icône Visual basic pour mettre le code suivant .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub CreerTCD()
 
ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
[CAEN-Lot 1!A1].CurrentRegion.Address(, , xlB2J35, True)).CreatePivotTable _
TableDestination:="RECAP Prises non livrées!D16", _
TableName:=" TCD"
 
 
With RECAP Prises non livrées.PivotTables(" TCD")
.AddFields RowFields:="TCD"
 
End With
 
End Sub

Cependant mon code ne fonctionne pas parceque je n'arrive pas à faire le lien entre le code et le bouton..
Serait -ce par incompréhension du code :

Pourriez -vous m'aidez dans ce sens s'il vous plait.

Je vous remercie d'avance :o

[Invité]

Bonjour regarde ce lien
http://www.developpez.net/forums/d14...t/#post7912734
Ouvre mon fichier Excel;
Ouvre ton Fichier Excel;
vas dans vba raccourci clavier [Alt] + [F11];
maintiens le click gauche de la sourie sur le module de classe ClsTdcRd et fais le glisser vers ton projet vb.
regardes l'exemple de test et adapte le à ton projet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim TDC As New clsTdcRD
Sheets("Data").UsedRange = Sheets("Data").UsedRange.Value
TDC.CreerTableau ActiveWorkbook, "Data!" & Sheets("Data").UsedRange.Address, "TDC", "Data"
TDC.NewPivotTables "Qualification", TypeFiltre
TDC.NewPivotTables "Motif", TypeFiltre
TDC.NewPivotTables "Affecté à", Typeligne
TDC.NewPivotTables "Services", Typeligne
TDC.NewDataField "CA", Somme
TDC.AfficheTotal True, True
TDC.Style PivotStyleMedium9
If TDC.FiltreTypeFiltre("Qualification", "Développement ") = False Then MsgBox "Pastrouvé"
If TDC.FiltreTypeFiltre("Motif", "Commercial ") = False Then MsgBox "Pastrouvé"
End Sub

[lilou89]

Merci pour ta réponse étant très grande débutante en VBA je vais essayer de comprendre ton code et de l'adapter si possible.

Merci pour ton aide

[Invité]

je l'ai créer pour les très grand débutant de ce forum car je me suis rendus compte que la question était récurrente.

[78chris]

Bonjour

Je n'ai peut-être pas tout compris mais tu sembles recourir au VBA pour tout et si je me réfère à tes autres messages, il n'est pas certain que cela soit nécessaire...

Le propre d'un TCD est de s'adapter aux changements dans la source de données et de les refléter lors de l'actualisation.

Pourquoi vouloir refaire le TCD par VBA ?

Pour associer un bouton à un code il suffit de faire un clic droit sur le bouton puis Affecter une macro et sélectionner la macro concernée. Il faut que le code soit dans le classeur, au format xlsm ou un classeur ouvert (xlam par exemple).

Edit : cela n'enlève rien à la qualité du module de rdurupt :

[lilou89]

Bonjour,
Oui effectivement je me rend compte au fur et à mesure que c'est pas forcément du VBA. je te remercie pour les instructions je me remets au boulot.

Cordialement

[78chris]

RE

Regarde aussi la mise sous forme de tableau de tes sources et des sources des listes déroulantes.
Un peu de lecture sur l'intérêt des tableaux (mauvaise traduction du mot table qui correspond en français aussi à table comme dans une base de donnée) ici http://www.excel-formations.fr/Trucs...Tableaux01.php

Le VBA sert avant tout à mettre de l'huile dans les rouages : il faut donc bien analyser le besoin, les rouages nécessaires, les possibilités natives d'Excel et ensuite on peut automatiser si nécessaire certains aspects...