Suppression de doublons avec somme de données

Question

Bonjour tout le monde,

je dispose d'une base de données comportant l'entrée de tous les articles par mois.

Colonne A : Code produit
Colonne B : Référence produit
Colonne C : Quantité livrée

Il est fréquent qu'un produit rentre plusieurs fois dans le mois, donc je me retrouve avec des doublons au sein de mes colonnes A et B.

Je souhaiterai construire un tableau me permettant de supprimer les doublons de 2 premières colonnes tout en additionnant les contenu de la colonne C.

L'automatisation de cette tâche me permetrait un gain de temps considérables.

C'est assez urgent 

Merci d'avance  et Gloire à Commentçamarche ;)

lermite222 · Answer

Bonjour,  
Test uniquement la colonne A pour les doublons, s'il faut tester également la colonne B je dois modifier.  
Sub Add_Doublon()  
Dim MyDico, L As Long  
Dim Lig As Long, Col As Integer  
    Set MyDico = CreateObject("Scripting.Dictionary")  
    Lig = 7 'première ligne où commencer  
    Col = 1 'numéro de la colonne
    Application.ScreenUpdating = False
  
    With Sheets("Feuil1")  
        Do  
            If MyDico.exists(.Cells(Lig, Col).Value) Then  
                L = MyDico.Item(.Cells(Lig, Col).Value)  
                .Cells(L, Col).Offset(, 2) = .Cells(L, Col).Offset(, 2) + .Cells(Lig, Col).Offset(, 2)  
                .Rows(Lig).Delete  
            Else  
                MyDico.Add .Cells(Lig, Col).Value, Lig  
                Lig = Lig + 1  
            End If  
              
        Loop While .Cells(Lig, Col) <> ""  
    End With  
End Sub
   
 Tu dis.  
A+  
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)  
NOTE : Je ne répond pas aux MP pour les questions techniques.

Suppression de doublons avec somme de données

1 réponse

Discussions similaires

Newsletters