Macro de création tableau croisé dynamique
Fermé
Geekette_en_herbe
Messages postés
2
Date d'inscription
mardi 24 avril 2012
Statut
Membre
Dernière intervention
25 avril 2012
-
24 avril 2012 à 20:32
Geekette_en_herbe Messages postés 2 Date d'inscription mardi 24 avril 2012 Statut Membre Dernière intervention 25 avril 2012 - 25 avril 2012 à 16:55
Geekette_en_herbe Messages postés 2 Date d'inscription mardi 24 avril 2012 Statut Membre Dernière intervention 25 avril 2012 - 25 avril 2012 à 16:55
A voir également:
- Macro tableau croisé dynamique
- Tableau croisé dynamique - Guide
- Tableau ascii - Guide
- Tableau croisé dynamique ne prend pas toutes les données ✓ - Forum Excel
- Les données fournies dans le fichier à télécharger peuvent être synthétisées par le tableau récapitulatif suivant. dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des 4 premières colonnes. cinq valeurs manquent dans le tableau suivant. retrouvez-les dans votre tableau puis reportez-les, arrondies à l’entier le plus proche, dans la zone de réponse. - Forum Excel
- Tableau word - Guide
7 réponses
Geekette_en_herbe
Messages postés
2
Date d'inscription
mardi 24 avril 2012
Statut
Membre
Dernière intervention
25 avril 2012
2
25 avril 2012 à 16:55
25 avril 2012 à 16:55
Il s'agit d'une version 2007. Je prépare le fichier pour vous le mettre à disposition.
Encore merci de votre aide
Encore merci de votre aide
PHILOU10120
Messages postés
6367
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
2 avril 2024
795
25 avril 2012 à 11:44
25 avril 2012 à 11:44
Bonjour
Ce problème est peut-être dû à l'exécution multiple de votre macro de création dans le classeur.
Je vous propose de créer une feuille que vous momerez Tableau et sur laquelle vous ferez créer par la macro votre tableau.
voici le début de cette macro
' efface_feuille Macro
'
'
Sheets("tableau").Select
Cells.Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.ClearContents
Range("A1").Select
'création Tableau croisé
Sheets("tableau").Select
Cells(5, 1).Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"table_article!R28C1:R230C8", Version:=xlPivotTableVersion10). _
CreatePivotTable TableDestination:="tableau!R5C1", TableName:= _
"Tableau croisé dynamique2", defaultVersion:=xlPivotTableVersion10
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Client" _
)
.Orientation = xlRowField
.Position = 1
End With
vous collerez ceci au début de votre macro actuelle et vous raccorderez à la ligne End With de client et après cela devrait fonctionner
Ce problème est peut-être dû à l'exécution multiple de votre macro de création dans le classeur.
Je vous propose de créer une feuille que vous momerez Tableau et sur laquelle vous ferez créer par la macro votre tableau.
voici le début de cette macro
' efface_feuille Macro
'
'
Sheets("tableau").Select
Cells.Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.ClearContents
Range("A1").Select
'création Tableau croisé
Sheets("tableau").Select
Cells(5, 1).Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"table_article!R28C1:R230C8", Version:=xlPivotTableVersion10). _
CreatePivotTable TableDestination:="tableau!R5C1", TableName:= _
"Tableau croisé dynamique2", defaultVersion:=xlPivotTableVersion10
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Client" _
)
.Orientation = xlRowField
.Position = 1
End With
vous collerez ceci au début de votre macro actuelle et vous raccorderez à la ligne End With de client et après cela devrait fonctionner
PHILOU10120
Messages postés
6367
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
2 avril 2024
795
25 avril 2012 à 12:37
25 avril 2012 à 12:37
RE:
Noubliez pas de changer votre source remplacer "table_article R28C1:R230C8" ma table d'essai par votre source "Tableau1"
Noubliez pas de changer votre source remplacer "table_article R28C1:R230C8" ma table d'essai par votre source "Tableau1"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour Philou.
Y'a rien à faire, j'ai toujours le même message d'erreur sur cette partie du code.
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"table_article!R28C1:R230C8", Version:=xlPivotTableVersion10). _
CreatePivotTable TableDestination:="tableau!R5C1", TableName:= _
"Tableau croisé dynamique2", defaultVersion:=xlPivotTableVersion10
je ne sais pas comment mettre un fichier joint au topic, ça aurait peut être permis de voir le soucis.
Bonne journée
Y'a rien à faire, j'ai toujours le même message d'erreur sur cette partie du code.
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"table_article!R28C1:R230C8", Version:=xlPivotTableVersion10). _
CreatePivotTable TableDestination:="tableau!R5C1", TableName:= _
"Tableau croisé dynamique2", defaultVersion:=xlPivotTableVersion10
je ne sais pas comment mettre un fichier joint au topic, ça aurait peut être permis de voir le soucis.
Bonne journée
PHILOU10120
Messages postés
6367
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
2 avril 2024
795
25 avril 2012 à 14:52
25 avril 2012 à 14:52
aller sur le site cjoint.fr etmettre votre fichier en allant dans l'arboressence du disque
jusqu'au dossier ou se trouve le fichier et créer le lien avec le bouton puis copier ce lien aussi avec le bouton et coller le sur la case répondre de comment ça marche
jusqu'au dossier ou se trouve le fichier et créer le lien avec le bouton puis copier ce lien aussi avec le bouton et coller le sur la case répondre de comment ça marche
PHILOU10120
Messages postés
6367
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
2 avril 2024
795
25 avril 2012 à 14:55
25 avril 2012 à 14:55
qu'elle est votre version d'Excel je suis sous 2010