[Excel] Tableau croisé dynamique avec macro Résolu

Question

Bonjour à tous,

Je cherche à faire un tableau croisé dynamique à l'aide d'une macro.
Mais un message d'erreur s'affiche lorsque j'exécute le code fourni par l'enregistreur de macros (je sais que c'est mal).

Ci-joint le fichier (simple) qui pose problème :

http://www.cijoint.fr/cjlink.php?file=cj200908/cijITG1Saz.xls

et voici le code fourni par l'enregistreur (il est aussi dans le fichier) :

Sub TestTCD()
'
' TestTCD Macro
' Macro enregistrée le 19/08/2009 par LIBGR15
'
'
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!C1:C7").CreatePivotTable TableDestination:="", TableName:= _
        "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique1")
        .ColumnGrand = False
        .RowGrand = False
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields:= _
        Array("TITRE", "Données")
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("SALAIRE" _
        )
        .Orientation = xlDataField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("SALAIRE" _
        )
        .Orientation = xlDataField
        .Caption = "Somme de SALAIRE2"
        .Function = xlSum
    End With
    Range("B3").Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").DataPivotField
        .Orientation = xlColumnField
        .Position = 1
    End With
End Sub
Merci d'avance pour vos réponses, et bon courage.

gbinforme · Accepted Answer

bonjour

Tu devrais vérifier ceci "Feuil1!C1:C7" car il me semble qu'il n'y a pas toutes les données que tu veux utiliser ensuite.

Il est toujours préférable en plus de nommer ta plage de données du TCD avec DECALER pour qu'elle suive les modifications d'ajout et suppression.

Arn's · Answer

Merci beaucoup gbinforme, c'était donc ça. Je comprends pas pourquoi l'enregistreur s'est planté. J'ai recommencé en sélectionnant les colonnes A à G, comme la première fois, et dans le code j'obtiens toujours C1 à C7. Mais en modifiant cette plage à la main, tout rentre dans l'ordre.

gbinforme · Answer

bonjour

"DJ!c1:c2290" n'a pas grand chose de commun avec "DJ!A1:N2000" car tu n'as mis qu'une colonne.

Faudrait aussi supprimer le premier ordre "Feuil1!C1:C7" qui fait tout planter probablement.

gbinforme · Answer

bonjour

Ca doit etre facile, mais pour moi c est titanesque

Facile non, titanesque oui car faire un bouton par ligne c'est plus compliqué et plus long que de faire un seul bouton qui traite la ligne sélectionnée.

Avec cette macro, dans ta feuille concernée tu copie la ligne que tu veux, sans bouton, simplement avec un double clis sur une des cellules de la ligne.
Private Sub Worksheet_BeforeDoubleClick(ByVal sel As Range, Cancel As Boolean)
Dim dest As Range
    Set dest = Workbooks("classeur1").Sheets("copie").Range("B7")
    Cancel = True
    Cells(sel.Row, "B").Copy Destination:=dest
    Cells(sel.Row, "F").Copy Destination:=dest.Offset(1, 0)
    Cells(sel.Row, "G").Copy Destination:=dest.Offset(2, 0)
    Cells(sel.Row, "H").Copy Destination:=dest.Offset(3, 0)
    Cells(sel.Row, "J").Copy Destination:=dest.Offset(4, 0)
End Sub

Bien sûr tu remplaces les valeurs en gras par les tiennes propres et si tu veux tu peux choisir le classeur de copie avec une fenêtre de sélection.

[Excel] Tableau croisé dynamique avec macro

4 réponses

Newsletters