XL 2010 Vba Regrouper par item unique

[dev_co]

Bonjour
J'aimerai regrouper un tableau comme j'ai commencé dans l'exemple ; le Total est bon
mais je n'arrive pas à laisser le produit unique
je teste dans un tableau à 2 dim. pour commencer
par contre le final est à 4 dim. , j'ai vu des exemples style > Dim TblS(1 To UBound(TblE), 1 To 4 ou avec tableau trié
Quelle est la méthode
merci

 

[patricktoulon]

bonjour
revois ta définition de "4 dim" ton tableau x ligne colonne A B C D EST !! un tableau a 2 dimensions

 

[eriiic]

Bonjour,

pas besoin de formule ou de vba, un simple TCD suffit.
Tableau Croisé Dynamique (TCD) : http://www.mdf-xlpages.com/modules/smartsection/item.php?itemid=109
eric

 

[chris]

Bonjour à tous

pas besoin de formule ou de vba, un simple TCD suffit.

Et un tableau structuré comme source ne serait pas un luxe ....

Tableaux structurés Excel

Tableaux structurés Excel

fauconnier.developpez.com

complété, si on veut le manipuler par VBA par https://www.developpez.net/forums/d...erform-table-donnees-excel-tableau-structure/

 

[patricktoulon]

re
sinon en VBA ca pourrait etre cela

Option Explicit
Sub groupe()
    Dim tableau, dic, i&, c&, ligne, x&
    Set dic = CreateObject("scripting.dictionary")
    tableau = Range("A2:D" & Cells(Rows.Count, "A").End(xlUp).Row).Value
    ReDim tableau2(Rows.Count - 1, 4)
    For i = 1 To UBound(tableau, 1)
        If Not dic.exists(tableau(i, 1)) Then
            dic(tableau(i, 1)) = Join(WorksheetFunction.Index(tableau, i, 0), ",")
            x = x + 1
        Else
            ligne = Split(dic(tableau(i, 1)), ",")
            For c = 1 To 3
                ligne(c) = Val(ligne(c)) + Val(tableau(i, c + 1))
            Next
            dic(tableau(i, 1)) = Join(ligne, ",")
        End If
    Next
    With [F2].Resize(dic.Count, 1)
        .Resize(, 4).Value = ""
        .Value = Application.Transpose(dic.items)
        .TextToColumns Destination:=.Cells(1), DataType:=xlDelimited, Comma:=True
    End With
End Sub

 

[dev_co]

re Merci je vais répondre dans l'ordre

pas besoin de formule ou de vba, un simple TCD suffit.

j'avais signalé puis effacé ( car dans le titre il y avait VBA !!) que c'est pour une utilisation autre que la feuille ( plus complexe) ... sinon le tcd ... je connais , ensuite

Et un tableau structuré comme source ne serait pas un luxe ...

Désolé normalement ce n'est pas un tableau , ce sont des données collectées déjà en VBA et pire celles-ci ne sont pas contigües et je vais les retourner par produit ( donc par page) dans un squelette Word via des signets ( je sais faire)
Je maîtrisais bien le VBA avec de grosses appli pour le boulot , mais bien longtemps que je fais plus ( 10 ans) j'ai commencé en 1998

Je vais donc décortiquer le code de Patrick , c'est bien ce que je pensais il y a du "scripting.dictionary" & du Ubound de tableau
il faut aussi que j'épluche tous les cours de JB à ce propos
encore Merci si il y a d'autres suggestions

 

[dev_co]

Bon vite fait j'ai testé la sub de Patrick .. cela fonctionne , je vais donc regarder pour adaptation
pour bien il faudrait qu'avec une boucle ( celle de mon pg) je puisse incorporer une ligne par ligne donc ici nous sommes à 4
au lieu de 10 et c'est plus parlant