Macro création TCD

Bonjour tout le monde

J'aimerai comprendre ce code est ce que l'un d'entres vous pourrez m'expliquer deux petits trucs

Via l'assistant de création macro mon code VBA donne ça :

et je ne comprends pas comment définir la source data si je le fais avec l'assistant il écrit ça mais mes sources sont en colonnes D et E

et je ne les retrouve pas dans le codes

Sub Syntese_TBC()

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Synthèse!R1C5:R65535C6", Version:=6).CreatePivotTable TableDestination:= _
        "Synthèse!R2C11", TableName:="Tableau croisé dynamique1", DefaultVersion:=6
    Sheets("Synthèse").Select
    Cells(2, 11).Select
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Modèle Sonde")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique1").PivotFields("N° de Série"), _
        "Nombre de N° de Série", xlCount
    Application.CommandBars("Format Object").Visible = False
    Range("K3").Select
    ActiveWorkbook.ShowPivotTableFieldList = False
    Range("K2") = "Type de Sonde"
    Range("L2") = "Nombre de sondes"
End Sub

Oh mince toutes mes excuses je viens de comprendre.

"Synthèse!R1C5:R65535C6"

ça veut dire de la ligne 1 colonne 5 à la ligne 65535 colonne 6

c’était trop facile en fait

Désolé !!!

Bonjour

La définition des colonnes se trouvent dans cette instruction

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Synthèse!R1C5:R65535C6", Version:=6).CreatePivotTable TableDestination:= _
        "Synthèse!R2C11", TableName:="Tableau croisé dynamique1", DefaultVersion:=6

R1C5 --> R1 = Ligne 1, C5 = colonne 5

R65535C6 --> Ligne 65535, colonne 6

Ce serait bien de voir le fichier mais sinon essaie comme ceci pour le code

Sub Syntese_TBC()
With ThisWorkbook
    .PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Synthèse!R1C5:R65535C6").CreatePivotTable TableDestination:= _
        "Synthèse!R2C11", TableName:="Tableau croisé dynamique1"
        Sheets("Synthèse").Cells(2, 11).Select
    .ShowPivotTableFieldList = True
    With .PivotTables("Tableau croisé dynamique1")
        .PivotFields("Modèle Sonde").Orientation = xlRowField
        .PivotFields("Modèle Sonde").Position = 1
        .AddDataField .PivotFields("N° de Série"), "Nombre de N° de Série", xlCount
    End With
    Application.CommandBars("Format Object").Visible = False
    Range("K3").Select
    .ShowPivotTableFieldList = False
    Range("K2") = "Type de Sonde"
    Range("L2") = "Nombre de sondes"
End With
End Sub

Cordialement