Faire la moyenne d'une liste de doublons alphanumériques

benibi · 3 Avril 2013

Bonjour à tous, je me suis inscrit sur ce forum afin de vous demander de l'aide car je bloque.

Je suis sur Excel 2002, voici un extrait de mon fichier (il y a 3778 lignes)

ACTS 16
ACTS 10
ACTS 11
AD AIR SOLUTIONS 12
ADLER TECHNOLOGIES 20
ADLER TECHNOLOGIES 13
ADLER TECHNOLOGIES 10
ADLER TECHNOLOGIES 13
ADLER TECHNOLOGIES 0
ADLER TECHNOLOGIES 9
ADLER TECHNOLOGIES 80
AEROMETROLOGIE SA 10
AEROMETROLOGIE SA 9

Mon problème :

Je souhaite faire disparaitre les doublons tout en calculant leurs moyenne,

Par exemple pour ACTS, qu'il n’apparaisse qu'une seule fois suivi de la moyenne de 16, 10 et 11 soit (16+10+11)/3

GG à celui ou celle qui trouve la solution, je penche sur ce problème depuis presque 24 heures 🙂

Je suis ouvert à toute les solutions, macro compris mais je n'ai aucunes connaissance dans ce domaine donc je joint mon fichier Excel pour que vous puissiez l'appliquer (si vous en trouvez un).

Merci de votre aide et bonne chance

Ben

klin89 · 3 Avril 2013

Re : Faire la moyenne d'une liste de doublons alphanumériques

Bonsoir à tous,

Avec 2 dictionnaires, résultat en Feuil3.

VB:

Sub Moyenne()
Set d = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
With Sheets("Feuil1")
  For Each c In .Range("a2", .[a65000].End(xlUp))
    If IsError(c.Offset(, 1).Value) Then c.Offset(, 1).Value = 0
    d(c.Value) = d(c.Value) + c.Offset(, 1).Value
    d2(c.Value) = d2(c.Value) + 1
  Next c
End With
With Sheets("Feuil3")
  .Cells.ClearContents
  .Range("A1") = "Tiers"
  .Range("A2").Resize(d.Count, 1) = Application.Transpose(d.keys)
  a = d.items
  b = d2.items
  For i = LBound(a) To UBound(a)
    .Cells(i + 2, "B") = a(i) / b(i)
  Next i
  .Select
End With
End Sub

Klin89

Faire la moyenne d'une liste de doublons alphanumériques

benibi

XLDnaute Nouveau

Pièces jointes

klin89

XLDnaute Accro

Discussions similaires

Faire la moyenne d'une liste de doublons alphanumériques

benibi

XLDnaute Nouveau

Pièces jointes

klin89

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency