[RESOLU] Grouper doublons et effectuer un calcul sur les valeurs

Enerjp

XLDnaute Junior
Bonjour tout le monde,

Alors je dispose d'un tableau ou la première colonnes comporte des identifiants et les autres contenant des critères relatifs à cet ID. Le but étant , ayant des ID en doubles de faire la sommes des valeurs ayant un ID commun.

J'ai trouver ce qu'il me faut chez M. Boigontier, cependant:

J'aimerai afficher les résultats sur une nouvelle page.

Et effectuer des opérations simples entre les valeurs ayant le même ID (faire la somme des puissances par exemples).

Le problème est que je ne sais pas comment changer de page avec la fonction dictionary et lorsque je veux faire la somme (via barre de formule Excel) le résultat reste 0.

Merci de votre attention,
enerjp
 

Pièces jointes

  • Demo.xlsm
    17.8 KB · Affichages: 46
  • Demo.xlsm
    17.8 KB · Affichages: 39
  • Demo.xlsm
    17.8 KB · Affichages: 38
Dernière édition:

Misange

XLDnaute Barbatruc
Re : Grouper doublons et effectuer un calcul sur les valeurs

Bonjour

voici une belle occasion d'apprendre les tableaux croisés dynamiques :)
je t'ai fait une copie de ton tableau que j'ai mise sous forme de tableau excel. Tu as comme ça tous les outils de tri de filtre et autre dont tu peux avoir besoin. Ce tableau est ensuite utilisé comme source d'un TCD dans lequel je t'ai mis un exemple avec la somme par étiquette de tes différentes colonnes. Mais tu peux faire plein d'autres choses (moyennes, nombre de ...)
Plus d'infos ici
Ce lien n'existe plus
 

Pièces jointes

  • Copie de Demo.xlsm
    27 KB · Affichages: 34
  • Copie de Demo.xlsm
    27 KB · Affichages: 35
  • Copie de Demo.xlsm
    27 KB · Affichages: 37

Enerjp

XLDnaute Junior
Re : Grouper doublons et effectuer un calcul sur les valeurs

Merci beaucoup Misange, c'est tout à fait ça.

A chercher en VBA je passe à coté des outils excel...

Cependant, j'aimerai quand même savoir pourquoi la somme (en feuille Donnee colonne T) m'affiche 0,
et comment afficher le résultat sur une autre page.

Merci encore
enerjp
 

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : [RESOLU] Grouper doublons et effectuer un calcul sur les valeurs

Bonjour,


Code:
Sub test()
  Set f1 = Sheets("donnee")
  Set f2 = Sheets("feuil2")
  Set d = CreateObject("Scripting.Dictionary")
  For Each c In f1.[A2].Resize(Application.CountA(f1.[a:a]))
    d(c.Value) = d(c.Value) & c.Offset(, 9) & " "
  Next c
  b = d.keys
  For i = LBound(b) To UBound(b)
    Cells(i + 2, "o") = b(i)
    a = Split(d.Item(b(i)), " ")
    f2.Cells(i + 2, "a").Offset(, 1).Resize(, UBound(a) + 1) = Application.Transpose(Application.Transpose(a))
  Next i
End Sub

JB
 

Statistiques des forums

Discussions
311 725
Messages
2 081 944
Membres
101 849
dernier inscrit
florentMIG