pivot sur plusieurs tables

[actarus]

bonjour,

j'ai des tables identiques de données avec:

item | Nb | veri | satu                    item | Nb | veri | satu
X1   | 23 | yes  | yes                     X1   | 24 | yes  | no
X2   | 35 | yes  | yes                     X2   | 29 | yes  | no
X1   | 54 | no   | yes                     X3   | 45 | no   | yes
X3   | 12 | yes  | yes                     X4   | 79 | yes  | yes
X5   | 78 | yes  | yes                     X5   | 17 | no   | yes
X1   | 16 | no   | yes                     X1   | 96 | yes  | no

je voudrais faire un pivot mais comme mes tables ne sont pas l'une en dessous de l'autre je n'y arrive pas.

Il me faut donc 4 pivots:

somme avec
- veri= yes; satu=yes
- veri= yes; satu=no
- veri= no; satu=yes
- veri= no; satu=no

j'ai essayé "pivot mulltiple consolidation range" mais sans succès.

Merci pour le coup de main.

 

[Catrice]

Re : pivot sur plusieurs tables

Bonsoir,

Je propose le fichier joint

 

[actarus]

Re : pivot sur plusieurs tables

merci beaucoup pour ton aide mais ça sera trop lourd car mes tables sont très grandes et j'en ai plus de 20. De plus, le nombre d'items différents varie toujours.

le meilleur moyen reste le pivot je pense.

en tout cas encore merci pour ta proposition. 😉

 

[Catrice]

Re : pivot sur plusieurs tables

Re,

Ci-joint une autre solution à adapter.
Elle dépend de la façon dont sont disposés tes tableaux.

 

[actarus]

Re : pivot sur plusieurs tables

merci c'est du code que je dois adapter mais je suis newbie en VB; pourrais-tu m'expliquer ton code stp?

Sub Test()
With Sheets("Feuil2")
    .Cells.Clear
    Set MaVar = Sheets("Feuil1").Cells.SpecialCells(xlCellTypeConstants, 23)
    i = 0
    For Each X In MaVar.Areas
        X.Offset(i, 0).Copy .Range("A65536").End(xlUp).Offset(1, 0)
        i = 1
    Next
    Set MaZone = .Range("A2").CurrentRegion
    With .Range("A2")
        .Offset(0, MaZone.Columns.Count).Resize(1, 1) = "Var1"
        .Offset(1, MaZone.Columns.Count).Resize(MaZone.Rows.Count - 1, 1).FormulaR1C1 = "=RC[-2]&"" ""&RC[-1]"
    End With
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    "Feuil2!" & Sheets("Feuil2").Range("A2").CurrentRegion.Address).CreatePivotTable TableDestination:= _
    .Range("A2").Offset(0, MaZone.Columns.Count + 2).Address(1, 1, xlR1C1), TableName:="TCD1", DefaultVersion:=xlPivotTableVersion10
    .PivotTables("TCD1").AddFields RowFields:="item"
    .PivotTables("TCD1").PivotFields("Nb").Orientation = xlDataField
End With
End Sub

 

[actarus]

Re : pivot sur plusieurs tables

en faite je le voudrais sur cet forme.

peux tu m'expliquer comment adapter les zones de tables?

Merci encore

 

[Catrice]

Re : pivot sur plusieurs tables

Bonjour,

Tu veux un TCD par tableau ?
J'avais compris un TCD pour tous les tableaux ...
Peux tu fournir un exhantillon de tes tableaux ?

 

[actarus]

Re : pivot sur plusieurs tables

oui bien sur

en attaché.

j'ai réduit le nombre de ligne afin de ne pas dépasser la taille tolérée du fichier mais les lignes sont limitées à 500.

il y a dans mon fichier plusieurs tables l'une a coté de l'autre (en tout 20)

il y a aussi une condition: il faut que la cellule de la colonne B soit éguale à "OK" pour comptabiliser la ligne dans le pivot.

Merci

 

[Catrice]

Re : pivot sur plusieurs tables

Re,

Ok, les tableaux commencent donc en colonne E.
Le OK de la colonne B conditionne tous les tableaux ?
Je regarde ça ...

 

[actarus]

Re : pivot sur plusieurs tables

oui le ok conditionne toute sa ligne.

 

[actarus]

Re : pivot sur plusieurs tables

apprends moi à pêcher en commentant ton code stp.

 

[Catrice]

Re : pivot sur plusieurs tables

Bonsoir,

Ci-joint un exemple spécial pécheur à tester 😉
Si tu as un probleme avec un hameçon, dis moi ...

 

[actarus]

Re : pivot sur plusieurs tables

merci beaucoup ça me va très bien

 

[actarus]

Re : pivot sur plusieurs tables

dis moi tu aurais un email perso? j'aimerais apporter d'autres modif