salut tout le monde
ce poste ou je suis tombé au hasard ma vraiment aider
je voulais vous demandé si c’était possible au lieu de fusionner et de sommer les doublon sur une autres cellules(E11)
d'effectuer ce procéder sur la base de référence en effaçant d'abord les donnés de bases (A2:C23)
mercie
j' en ai retenu ceux model que vous avez proposé
Sub SousTotalNonTrié()
Set d1 = CreateObject("Scripting.Dictionary")
a = Range("A2:C" & [a65000].End(xlUp).Row)
j = 0
For i = LBound(a) To UBound(a)
If Not d1.exists(a(i, 1)) Then j = j + 1: d1(a(i, 1)) = j
Next i
Dim b(): ReDim b(1 To d1.Count, 1 To UBound(a, 2))
For ligne = LBound(a) To UBound(a)
p = d1(a(ligne, 1))
b(p, 2) = b(p, 2) + a(ligne, 2)
b(p, 3) = a(ligne, 3)
b(p, 1) = a(ligne, 1)
Next ligne
[E11].Resize(UBound(b), UBound(b, 2)) = b
End Sub