Suppression de doublons avec somme de données
maxmons
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
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 ;)
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 ;)
A voir également:
- Suppression de doublons avec somme de données
- Fuite données maif - Guide
- Forcer suppression fichier - Guide
- Doublons photos - Guide
- Somme de plusieurs cellules excel - Guide
- Effacer les données de navigation sur android - Guide
1 réponse
Bonjour,
Test uniquement la colonne A pour les doublons, s'il faut tester également la colonne B je dois modifier.
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.
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.
