zebanx
XLDnaute Accro
Bonjour à tous,
En reprenant le (super) code de Laetitia90 () - et étant bien rouillé sur le sujet - , pourriez-vous l'amender SVP pour incorporer le nombre d'occurences ?
Faut-il créer un deuxième dictionnaire SVP ? Ou peut-on se débrouiller avec une instruction de type dico.items SVP ?
Je vous remercie par avance pour votre aide.
zebanx
En reprenant le (super) code de Laetitia90 () - et étant bien rouillé sur le sujet - , pourriez-vous l'amender SVP pour incorporer le nombre d'occurences ?
Faut-il créer un deuxième dictionnaire SVP ? Ou peut-on se débrouiller avec une instruction de type dico.items SVP ?
Je vous remercie par avance pour votre aide.
zebanx
Code:
Sub somme()
' code transmis par laetitia90
Dim t(), i As Long, m As Object, c As Byte, z
Set m = CreateObject("Scripting.Dictionary")
t = Range("a2:c" & Cells(Rows.Count, 1).End(3).Row).Value2
For i = 1 To UBound(t)
z = t(i, 1)
If m.Exists(z) Then
For c = 2 To 3: t(m(z), c) = t(m(z), c) + t(i, c): Next c
Else
x = x + 1
For c = 1 To 3: t(x, c) = t(i, c): Next c: m(z) = x
End If
Next i
[F2].Resize(x, 3) = t
[I2].Resize(x, 1) = Application.Transpose(m.items)
End Sub