Bonjour,
je souhaite avoir des informations concernant le codage pour supprimer des doublons.
Je veux suppimer des lignes correspondant à un meme num identifiant avec le meme cleint mais en sommant la valeur de leur chiffre d'affaire sur une période.
ce code supprimer les doublon mais pas tt le tps mais sans me faire la somme du CA
je veux donc un seul client avec la somme total du CA sachant qu'un seul identifiant peut gérer plusieurs client.
Sub SupRapide1Critere()
Application.ScreenUpdating = False
[L1].Sort Key1:=Range("L2"), Order1:=xlAscending, _
Header:=xlGuess
Columns("e:e").Insert Shift:=xlToRight
[E1] = "ColE"
[E2].FormulaR1C1 = "=IF(RC[-1]=R[-1]C[-1],1,0)"
[E2].AutoFill Destination:=Range("E2:E" & [L65000].End(xlUp).Row)
[E:E].Value = [E:E].Value
[L2].CurrentRegion.Sort Key1:=Range("L2"), Order1:=xlAscending, Header:=xlGuess
[E:E].Replace What:="1", Replacement:="", LookAt:=xlPart
Range("E2:E65000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Columns("e:e").Delete Shift:=xlToLeft
End Sub