Discussion :

[didierwarembourg]

Bonjour à toutes et à tous et meilleurs vœux pour cette nouvelle année.
Je souhaiterais générer un tableau croisé dynamique via une macro qui prendrait à partir d'une base excel de la cellule A28 à la colonne E mais dont le nombre de lignes serait indéterminé.
J'ai fait un test mais sur une base figée et cela donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Range("A28").Select
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Analyse_par_mission!R28C1:R71C5", Version:=xlPivotTableVersion14). _
        CreatePivotTable TableDestination:="Feuil1!R3C1", TableName:= _
        "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion14
    Sheets("Feuil1").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Anomalie")
        .Orientation = xlPageField
        .Position = 1
    End With

Je me demande s'il serait possible de changer le 71 de la formule R28C1:R71C5 par une variable ?
Qu'en pensez-vous ?
Je vous remercie d'avance pour l'aide que vous pourrez m'apporter.
Cordialement.

[mat955]

Bonjour, et bonne année.

Premièrement, je t'invite à mettre des balise CODE afin de rendre ton code plus lisible pour les utilisateurs du forum. Tu auras de l'aide plus rapidement

Par rapport à ta demande, c'est tout à fait possible.
Pour cela, tu peux créer une variable Range et lui affecter la plage qui servira de source au TCD.
Ensuite, tu utiliseras cette variable dans l'argument SourceData.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Set PlageTCD = Range(...)  'Ta plage qui sera utilisée dans le TCD

Range("A28").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
PlageTCD, Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="Feuil1!R3C1", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion14
Sheets("Feuil1").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Anomalie")
.Orientation = xlPageField
.Position = 1
End With

[didierwarembourg]

Merci MAT pour ta réponse. Pardon pour les balises mais c'est la première fois que j'utilise le forum.
Concernant la sélection de la plage TCD, sachant que la source du TCD sera la ligne de départ sera la ligne 28 de la colonne A à E mais la ligne d'arrivée est inconnue.
Je pratique peu le VBA et c'est cette variable que je ne parviens pas à écrire.
C'est certainement simple mais à force d'y penser, j'ai tendance à m'embrouiller.
Merci pour ton aide.

[mat955]

Dans ce cas, le code suivant te permet d'avoir la plage que tu souhaites, même si elle est variable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim PlageTCD as Range
 
Set PlageTCD = Range(Range("A28"), Cells(Range("A28").End(xlDown).Row, 5)) 'Ta plage qui sera utilisée dans le TCD
 
Range("A28").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
PlageTCD, Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="Feuil1!R3C1", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion14
Sheets("Feuil1").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Anomalie")
.Orientation = xlPageField
.Position = 1
End With

[didierwarembourg]

UN MILLION DE MERCI MAT955 !
Ton code fonctionne du tonnerre.

Bon week-end et au plaisir de te lire à nouveau.