Graphe croisé dynamique par macro
Fermé
massimo888
Messages postés
203
Date d'inscription
mercredi 11 juin 2014
Statut
Membre
Dernière intervention
7 avril 2017
-
16 juil. 2014 à 14:47
massimo888 Messages postés 203 Date d'inscription mercredi 11 juin 2014 Statut Membre Dernière intervention 7 avril 2017 - 17 juil. 2014 à 10:30
massimo888 Messages postés 203 Date d'inscription mercredi 11 juin 2014 Statut Membre Dernière intervention 7 avril 2017 - 17 juil. 2014 à 10:30
A voir également:
- Graphe croisé dynamique par macro
- Tableau croisé dynamique - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Tableau croisé dynamique ne prend pas toutes les données ✓ - Forum Excel
- Liste déroulante dynamique excel - Guide
2 réponses
benol3
Messages postés
569
Date d'inscription
lundi 29 juillet 2013
Statut
Membre
Dernière intervention
7 mai 2015
87
16 juil. 2014 à 14:49
16 juil. 2014 à 14:49
Salut,
Utilise l'enregistreur de macro, tu auras un modèle de ce que tu souhaites faire
Utilise l'enregistreur de macro, tu auras un modèle de ce que tu souhaites faire
benol3
Messages postés
569
Date d'inscription
lundi 29 juillet 2013
Statut
Membre
Dernière intervention
7 mai 2015
87
17 juil. 2014 à 09:56
17 juil. 2014 à 09:56
Re,
Utilises ce code :
Ou
SourceData sont tes données (R1C1 =1ère ligne 1ère colonne ="A1") R3C1:R5C10=>"A3:E10"
TableDestination est la celulle où va être créé le tableau croisé dynamique
TableName est le nom du tableau qui va être créé
Ps : Si tu veux reproduire plusieurs tableaux avec ce code, Veille bien à ce que la celulle de destination ne soit pas déjà occupée et que le nom du nouveau tableau croisé dynamique ne soit pas déjà attribué.
Pour ajouter des champs, utilise ces instructions :
Utilises ce code :
ActiveSheet.PivotTableWizard _
SourceType:=xlDatabase, _
SourceData:="CS!R3C1:R5C10", _
TableDestination:=Range("A12"), _
TableName:="TCD1"
Ou
SourceData sont tes données (R1C1 =1ère ligne 1ère colonne ="A1") R3C1:R5C10=>"A3:E10"
TableDestination est la celulle où va être créé le tableau croisé dynamique
TableName est le nom du tableau qui va être créé
Ps : Si tu veux reproduire plusieurs tableaux avec ce code, Veille bien à ce que la celulle de destination ne soit pas déjà occupée et que le nom du nouveau tableau croisé dynamique ne soit pas déjà attribué.
Pour ajouter des champs, utilise ces instructions :
With ActiveSheet.PivotTables("TCD1").PivotFields("Barbu") 'Met barbu en ligne
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("TCD1").PivotFields("Colonne1") 'Met colonne1 en colonne
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("TCD1").AddDataField ActiveSheet.PivotTables("TCD1" _
).PivotFields("Barbu"), "Nombre de Barbu", xlCount 'Met Barbu en valeurs
massimo888
Messages postés
203
Date d'inscription
mercredi 11 juin 2014
Statut
Membre
Dernière intervention
7 avril 2017
Modifié par massimo888 le 17/07/2014 à 10:53
Modifié par massimo888 le 17/07/2014 à 10:53
Merci pour le code mais ça marche pas, en débogage j'ai le même message d'erreur que celui que j'ai avec l'enregistreur!!
16 juil. 2014 à 15:26
merci pour ta réponse
Je l'ai déjà fais mais la macro fais fais des bugs ça ne marche pas du tout!!
16 juil. 2014 à 15:30
16 juil. 2014 à 15:37
Voila et merci.
16 juil. 2014 à 15:42
16 juil. 2014 à 16:01
Merci