Tableaux croisé dynamique

Bonjour,

L'enregistreur de macros est ton ami hali (ça rime en plus !)
Ci dessous un exemple.

Il ne reste plus qu'à créer un bouton (depuis la barre d'outils
'Formulaire') et à lui affecter ta macro enregistrée.

Ca répond à ta question ?

Cordialement

Rai


---------


Sub TCD()
'
' TCD Macro
' Macro enregistrée le 11/11/2004 par Rai pour Hali
'

'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"OPComm!R1C1:R2386C13").CreatePivotTable TableDestination:="",
TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:¬tiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé
dynamique1").PivotFields( _
"Enseigne")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé
dynamique1").PivotFields("Région")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField
ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Facturé"), _
"Nombre de Facturé", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField
ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Devis"),
"Somme de Devis" _
, xlSum
End Sub

Bjr

J'ai un tableau sur mon feuil 1
avec plusieurs titres sur mon tableau au niveau de la cellule A1:A10
donc il y a dix colonne a peu pres
et je voudrai via un bouton de commande sur ce meme onglet
génerer un TCD avec seluement Les valeurs de 4 ou 5 colonne que j'aurai
choisi.
une sorte requete

savez vous comment ?
merci

merci mais ton programme ne marche pas

Bonjour,

L'enregistreur de macros est ton ami hali (ça rime en plus !)
Ci dessous un exemple.

Il ne reste plus qu'à créer un bouton (depuis la barre d'outils
'Formulaire') et à lui affecter ta macro enregistrée.

Ca répond à ta question ?

Cordialement

Rai


---------


Sub TCD()
'
' TCD Macro
' Macro enregistrée le 11/11/2004 par Rai pour Hali
'

'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"OPComm!R1C1:R2386C13").CreatePivotTable TableDestination:="",
TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:¬tiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé
dynamique1").PivotFields( _
"Enseigne")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé
dynamique1").PivotFields("Région")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField
ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Facturé"), _
"Nombre de Facturé", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField
ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Devis"),
"Somme de Devis" _
, xlSum
End Sub

Bjr

J'ai un tableau sur mon feuil 1
avec plusieurs titres sur mon tableau au niveau de la cellule A1:A10
donc il y a dix colonne a peu pres
et je voudrai via un bouton de commande sur ce meme onglet
génerer un TCD avec seluement Les valeurs de 4 ou 5 colonne que j'aurai
choisi.
une sorte requete

savez vous comment ?
merci

Evidemment.
Il faut que tu utilises l'enregistreur de macros pour avoir une macro
adaptée à ta situation.
Cela aurait-été surprenant que tes colonnes et tes noms de champs soient
identiques à ceux de mon exemple.

Peut-être devrais-tu te reposer un peu et relire tout ça
tranquillement... ;o))

Ou, est-ce que tout est 'Urgent' ??
Mr Hali-Urgent.

-----

Signé
Rai

merci mais ton programme ne marche pas

Bonjour,

L'enregistreur de macros est ton ami hali (ça rime en plus !)
Ci dessous un exemple.

Il ne reste plus qu'à créer un bouton (depuis la barre d'outils
'Formulaire') et à lui affecter ta macro enregistrée.

Ca répond à ta question ?

Cordialement

Rai

non merci beaucoup

Evidemment.
Il faut que tu utilises l'enregistreur de macros pour avoir une macro
adaptée à ta situation.
Cela aurait-été surprenant que tes colonnes et tes noms de champs soient
identiques à ceux de mon exemple.

Peut-être devrais-tu te reposer un peu et relire tout ça
tranquillement... ;o))

Ou, est-ce que tout est 'Urgent' ??
Mr Hali-Urgent.

-----

Signé
Rai

merci mais ton programme ne marche pas

Bonjour,

L'enregistreur de macros est ton ami hali (ça rime en plus !)
Ci dessous un exemple.

Il ne reste plus qu'à créer un bouton (depuis la barre d'outils
'Formulaire') et à lui affecter ta macro enregistrée.

Ca répond à ta question ?

Cordialement

Rai

Bonjoir(c) Rai

Le 11/11/2004 18:02 vous avez écrit ceci :

Evidemment.
Il faut que tu utilises l'enregistreur de macros pour avoir une macro
adaptée à ta situation.
Cela aurait-été surprenant que tes colonnes et tes noms de champs soient
identiques à ceux de mon exemple.

CCCCCOOOOOOMMEEENNNNNNNTTTTT ??? tu ne lui as pas fais SA macro personnel à
lui adapté à SA situation ? !!!
C'est un scandale, on ne peut même plus compter sur les chaouches sur ce
forum !

;-)))))))))))))

Peut-être devrais-tu te reposer un peu et relire tout ça
tranquillement... ;o))

Trop difficile... je ne comprend pas pourquoi tu n'est pas en train de lui
faire son application en fait

Ou, est-ce que tout est 'Urgent' ??
Mr Hali-Urgent.

;-)
Même en changeant de pseudo le fond reste le même
puis cette phrase "ton programme ne marche pas" est toujours trés agréable à
lire quand on s'est cassé la tête pour un autre.

--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application
http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm