Re : Recherche de donnees avec index equiv
Bonjour,
tu cherches un total par référence ou par agent ?
tu peux être plus clair svp 🙂
(je suis dur de la comprenette, je l'admets)
peut être (dans un module VBA):
Sub SousTotal()
Dim Ws1, Ws2 As Worksheet
Set Ws2 = Sheets("totaux ")
Set Ws1 = Sheets("DONNEES ")
Set d = CreateObject("Scripting.Dictionary")
For Each c In Ws1.Range("b3", Ws1.[b65000].End(xlUp))
d(c.Value) = d(c.Value) + c.Offset(, 1) + c.Offset(, 2).Value
Next c
Ws2.[h3].Resize(d.Count, 1) = Application.Transpose(d.keys)
Ws2.[i3].Resize(d.Count, 1) = Application.Transpose(d.items)
End Sub