Réalisation d'un TCD via une macro

Mika -  
yg_be Messages postés 24281 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai un gros souci lorsque j'essaye d'utiliser une macro pour réaliser un tcd.
Lorsque je le réalise manuellement sans passer par une macro tout marche nickel et j'ai le résultat voulu. Lorsque je fais une macro et que je réalise les mêmes manipulation celui-ci se plante avec erreur d'exécution "5" Argument ou appel de procédure incorrect.
J'ai lu que cela pouvait se produire car la macro enregistre L'instruction de ligne par la lettre L et qu'il faut la remplacer par la lettre R (row ) pour que le vba puisse le comprendre correctement.
Mais lorsque je regarde mon code VBA celui ci contient bien le R pour les lignes.
Voici ce que j'ai comme code en passant par le débogage.

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"NB Heures OC par Chantier!R1C1:R1048576C4", Version:=7).CreatePivotTable _
TableDestination:="NB Heures OC par Chantier!R1C8", TableName:= _
"Tableau croisé dynamique7", DefaultVersion:=7

C'est sur cette ligne de code qu'il se plante et je ne vois pas où est le problème. Qui peut m'aider à résoudre ce big problème?

Merci d'avance pour votre aide.
A voir également:

6 réponses

Réponse 1 / 6
yg_be Messages postés 24281 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 585
 
bonjour,
quand tu montres du code, il est préférable de montrer le code complet, et d'utiliser les balises de code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

as-tu utilisé l'enregistreur de macros?
0
Réponse 2 / 6
Mika
 
Je suis novice en excel et je ne sais pas comment te montrer tout le code avec la balise de code https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

J'ai utilisé en effet l'enregistreur de macro. Je vais aller voir le lien hypertexte que tu viens de m'envoyer sur ton message.

Je peux t'envoyer le fichier aussi. bien à toi
0
Réponse 3 / 6
Mika
 
voici mon code pour la macro complète qui ne fonctionne pas lorsque je l'active pour l'exécuter.
l'erreur apparait à la ligne ActiveWorkbook.pivotCaches ......... lorsque je passe par le débogage 



Sub Macro12()
'
' Macro12 Macro
'

'
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "NB Heures OC par Chantier!R1C1:R56C4", Version:=7).CreatePivotTable _
        TableDestination:="NB Heures OC par Chantier!R1C10", TableName:= _
        "Tableau croisé dynamique14", DefaultVersion:=7
    Sheets("NB Heures OC par Chantier").Select
    Cells(1, 10).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique14")
        .ColumnGrand = True
        .HasAutoFormat = True
        .DisplayErrorString = False
        .DisplayNullString = True
        .EnableDrilldown = True
        .ErrorString = ""
        .MergeLabels = False
        .NullString = ""
        .PageFieldOrder = 2
        .PageFieldWrapCount = 0
        .PreserveFormatting = True
        .RowGrand = True
        .SaveData = True
        .PrintTitles = False
        .RepeatItemsOnEachPrintedPage = True
        .TotalsAnnotation = False
        .CompactRowIndent = 1
        .InGridDropZones = False
        .DisplayFieldCaptions = True
        .DisplayMemberPropertyTooltips = False
        .DisplayContextTooltips = True
        .ShowDrillIndicators = True
        .PrintDrillIndicators = False
        .AllowMultipleFilters = False
        .SortUsingCustomLists = True
        .FieldListSortAscending = False
        .ShowValuesRow = False
        .CalculatedMembersInFilters = False
        .RowAxisLayout xlCompactRow
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique14").PivotCache
        .RefreshOnFileOpen = False
        .MissingItemsLimit = xlMissingItemsDefault
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique14").RepeatAllLabels _
        xlRepeatLabels
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("Tableau croisé dynamique14").PivotFields( _
        "Formateur Titulaire")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique14").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique14").PivotFields( _
        "Nbr H" & Chr(10) & "Formateur" & Chr(10) & "Titulaire"), "Nombre de Nbr H" & Chr(10) & "Formateur" & Chr(10) & "Titulaire", xlCount
    With ActiveSheet.PivotTables("Tableau croisé dynamique14").PivotFields( _
        "Nom CHANTIER")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique14").PivotFields( _
        "Nombre de Nbr H" & Chr(10) & "Formateur" & Chr(10) & "Titulaire")
        .Caption = "Somme de Nbr H"
        .Function = xlSum
    End With
    Selection.CurrentRegion.Select
    Selection.NumberFormat = "[h]:mm"
   End Sub
0
yg_be Messages postés 24281 Date d'inscription   Statut Contributeur Dernière intervention   1 585
 
Tu expliques peu.

Tu as mis en route l'enregistreur de macros,
tu as créé manuellement un TCD,
puis tu as arrêté l'enregistreur de macros?

C'est bien cela?

Ensuite, tu as supprimé le TCD créé, puis exécuté la macro?

C'est bien cela?
0
Mika > yg_be Messages postés 24281 Date d'inscription   Statut Contributeur Dernière intervention  
 
Tout à fait c'est ce que j'ai fais. J'ai lancé l'enregistreur de macro et réalisé ce que je voulais avoir comme TCD puis j'ai arrêté la macro. Là j'ai eu mon résultat escompté donc parfait. Ensuite j'ai effacé le tableau TCD ( que j'ai réalisé sur la même feuille que les données qui m'ont permis de faire le tcd). J'ai relancé la macro pour essayer d'avoir le TCD et c'est là que la macro se plante royalement sur la ligne de code ActiveWorkBook.PivotCaches.Create .........
0
yg_be Messages postés 24281 Date d'inscription   Statut Contributeur Dernière intervention   1 585 > Mika
 
Ma première hypothèse, c'est que le TCD n'avait pas été supprimé.
Peux-tu partager ton fichier?
0
Réponse 4 / 6
Mika
 
Comment fait t'on pour partager le fichier?
0
yg_be Messages postés 24281 Date d'inscription   Statut Contributeur Dernière intervention   1 585
 
Tu publies ton fichier sur Internet (google drive, cjoint.com, ...), et tu partages ici un lien vers le fichier.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
Mika
 
https://docs.google.com/spreadsheets/d/1MqzXN1zyL3LABQx5bZqjNjJLX2XY0WyH/edit?usp=sharing&ouid=113444901287396211353&rtpof=true&sd=true
0
yg_be Messages postés 24281 Date d'inscription   Statut Contributeur Dernière intervention   1 585
 
le fichier n'est pas public.
0
Réponse 6 / 6
Mika
 
et maintenant ? je viens de l'autoriser à toute personne qui a le lien
0
yg_be Messages postés 24281 Date d'inscription   Statut Contributeur Dernière intervention   1 585
 
c'est bon, merci
0
yg_be Messages postés 24281 Date d'inscription   Statut Contributeur Dernière intervention   1 585 > yg_be Messages postés 24281 Date d'inscription   Statut Contributeur Dernière intervention  
 
ceci semble mieux fonctionner: 
Dim destrg As Range
    Set destrg = Sheets("NB Heures OC par Chantier").Cells(1, 10)
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "NB Heures OC par Chantier!R1C1:R56C4", Version:=7).CreatePivotTable _
        TableDestination:=destrg, TableName:= _
        "Tableau croisé dynamique14", DefaultVersion:=7
0

Discussions similaires

calcul taux de realisation
naimgr -
naimgr -

3 réponses
Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
recup couleur de cellule sans macro
magouero -
JvDo -

7 réponses