Bonjour,
Je débute avec VBA. Je voudrais créer plusieurs macros pour mon tableau simple. le tableau contient un nombre de colonne fixe: (ville, emploi, ..), mais le nombre de ligne varie.
chaque macro doit créer un tableau croisés dynamiques. Dans cet exemple, je traite le nombre d'occurence pour la ville, qui se trouve sur la colonne B.
J'ai utilisé l'enregistreur de macro pour écrire le code.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub CommandButton2_Click()
 
    Columns("B:B").Select

    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _

        "Feuil1!C2").CreatePivotTable TableDestination:="", TableName:= _

->        "Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion10


    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)

    ActiveSheet.Cells(3, 1).Select

    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ville")

        .Orientation = xlRowField

        .Position = 1

    End With

    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _

        PivotTables("Tableau croisé dynamique2").PivotFields("ville"), "Nombre de ville", _

        xlCount

     Sheets("Feuil1").Select

End Sub
Apres execution de la cette macro, on m'indique cette erreur que je ne comprends pas.

Merci pour votre aide