Eclater un Tableau Croisé Dynamique en plusieurs onglets

tototiti2008

XLDnaute Barbatruc

• 19 Novembre 2010

• #2

Re : Eclater un Tableau Croisé Dynamique en plusieurs onglets

Bonjour Tabalori,

une technique manuelle pour commencer

en face de chaque nom de direction de la colonne B, fait un double-clic sur le nombre en colonne C

à chaque fois une feuille sera créée avec les enregistrements de la base correspondants

Reviens-nous pour dire si ça correspond et si tu veux l'automatiser

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 19 Novembre 2010

• #3

Re : Eclater un Tableau Croisé Dynamique en plusieurs onglets

Bonjour à toutes et à tous,

tototiti2008 à dit:

en face de chaque nom de direction de la colonne B, fait un double-clic sur le nombre en colonne C à chaque fois une feuille sera créée avec les enregistrements de la base correspondants

Cliquez pour agrandir...

Merci, tototiti2008, pour cette astuce !

 

Vote positif 0 Vote négatif

T

Tabalori

XLDnaute Nouveau

• 19 Novembre 2010

• #4

Re : Eclater un Tableau Croisé Dynamique en plusieurs onglets

tototiti2008 à dit:

Bonjour Tabalori,

une technique manuelle pour commencer

en face de chaque nom de direction de la colonne B, fait un double-clic sur le nombre en colonne C

à chaque fois une feuille sera créée avec les enregistrements de la base correspondants

Reviens-nous pour dire si ça correspond et si tu veux l'automatiser

Cliquez pour agrandir...

Merci d'avoir pris la peine de me répondre,

j'utilise le double clic et en suis très moyennement satisfait

je cherche à éviter cette procédure répétitive et également à faire en sorte que je ne saute accidentellement une ou plusieurs lignes, d'où mon désir d'automatisation.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 19 Novembre 2010

• #5

Re : Eclater un Tableau Croisé Dynamique en plusieurs onglets

Bonjour à tous,

Tu devrais avoir "Afficher les Pages" dans la barre d'outils du TCD...

Cette option est grisée donc non accessible sur ton fichier.

Un essai par code :

VB:

Option Explicit

Sub Test()
    Dim X As Integer
    For X = 5 To Feuil2.Range("C65536").End(xlUp).Row
        On Error Resume Next
        If Feuil2.Range("B" & X) = "" Then X = X + 1
        Feuil2.Range("C" & X).ShowDetail = True
        ActiveSheet.Name = Left(ActiveSheet.Range("C2"), 26)
    Next X
    Sheets("TCD").Move Before:=Sheets(2)
End Sub

A+ à tous

Édition : Oups, Pas vu Toto... Salut

 

Pièces jointes

• JC TCD Feuilles.xls

  49 KB · Affichages: 438

Dernière édition: 19 Novembre 2010

Vote positif 0 Vote négatif

T

Tabalori

XLDnaute Nouveau

• 19 Novembre 2010

• #6

Re : Eclater un Tableau Croisé Dynamique en plusieurs onglets

Merci

Je vais essayer de l'adapter à mon tableau

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 19 Novembre 2010

• #7

Re : Eclater un Tableau Croisé Dynamique en plusieurs onglets

Salut,JCGL me pardonnera je me suis permis "d'améliorer" son code avec un test d'existence ou non des feuilles, donc à voir

 

Pièces jointes

• TCD Feuilles.zip

  21.3 KB · Affichages: 234

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 19 Novembre 2010

• #8

Re : Eclater un Tableau Croisé Dynamique en plusieurs onglets

Bonjour à tous,
Salut Kiki,

Améliore mon cher, améliore...
C'est toujours enrichissant de lire les évolutions de code et formule

A+ à tous

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 19 Novembre 2010

• #9

Re : Eclater un Tableau Croisé Dynamique en plusieurs onglets

Bonsoir,

N'apporte rien au fil. Juste pour le plaisir, n'en déplaise à quiconque,de dire bonjour à mon Ami JC

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 19 Novembre 2010

• #10

Re : Eclater un Tableau Croisé Dynamique en plusieurs onglets

Bonjour à tous,
Salut mon ami Hasco,

N"apporte rien à la discussion...

Juste pour le plaisir de saluer mon ami Ges

A++ (les vacances sont presque finies... Tout va bien et ce ne fut que du bonheur... Un citron à ta santé et à celle de la DT... (Private Joke)
A+ à tous

 

Vote positif 0 Vote négatif