Sujet Précédent Sujet Suivant

Réalisation d'un TCD via une macro

Fermé
Mika - 3 janv. 2022 à 20:25
yg_be Messages postés 22777 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mai 2024 - 5 janv. 2022 à 22:50
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 22777 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mai 2024 1 481
3 janv. 2022 à 20:34
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
3 janv. 2022 à 21:19
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
3 janv. 2022 à 21:46
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 22777 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mai 2024 1 481
4 janv. 2022 à 12:15
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 22777 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mai 2024
Modifié le 4 janv. 2022 à 20:40
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 22777 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mai 2024 1 481 > Mika
4 janv. 2022 à 21:52
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
5 janv. 2022 à 15:55
Comment fait t'on pour partager le fichier?
0
yg_be Messages postés 22777 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mai 2024 1 481
5 janv. 2022 à 16:01
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
5 janv. 2022 à 16:14
https://docs.google.com/spreadsheets/d/1MqzXN1zyL3LABQx5bZqjNjJLX2XY0WyH/edit?usp=sharing&ouid=113444901287396211353&rtpof=true&sd=true
0
yg_be Messages postés 22777 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mai 2024 1 481
5 janv. 2022 à 16:22
le fichier n'est pas public.
0
Réponse 6 / 6
Mika
5 janv. 2022 à 16:27
et maintenant ? je viens de l'autoriser à toute personne qui a le lien
0
yg_be Messages postés 22777 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mai 2024 1 481
5 janv. 2022 à 22:43
c'est bon, merci
0
yg_be Messages postés 22777 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mai 2024 1 481 > yg_be Messages postés 22777 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mai 2024
5 janv. 2022 à 22:50
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
Que peut faire 3fois/j un homme, mais qu'1fois/j une femme
Soter -
Raymond PENTIER -

1 réponse
Calcul pourcentage d'un objectif
Leeloo2015 -
Leeloo2015 -

10 réponses
calculer taux de réalisation inversé
tulipe5772 -
FeLynX -

3 réponses
Taux de réalisation cumulé à date
valoch1 -
valoch1 -

5 réponses