Suppression ligne avec doublon et addition

**SixteenVBA** · 05/04/2018, 16h54

Bonjour à tous, je fais à nouveau appel à votre aide.

Voici mon besoin : Je souhaite supprimer les lignes où la valeur en colonne C est identique pour n'en garder qu'une, mais dans un même temps, chacune des lignes contient une quantité, donc la ligne restante devra avoir le total. Voici un exemple :
Départ :

Article	Quantité
IAC1008806	3
IAC1008807	3
IAC1008806	3
IAC1008808	3
IAC1008807	3
IAC1008806	3

Résultat :

Article	Quantité
IAC1008806	9
IAC1008807	6
IAC1008808	3

Merci de votre aide

**mfoxy** · 05/04/2018, 19h55

Hello,

Un chouette petit code que j ai trouvé il y a quelques temps
Qui permet de faire ce que tu souhaites je pense

Bat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub CombineRows()
'Update 20130829
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
    Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 2)
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

**BENNASR** · 05/04/2018, 21h45

Bonsoir
je sais pas la finalité de ton travail mais je crois que garder tes lignes sans les supprimer et insérer un tableau croisé dynamique avec des segments , les articles comme étiquettes de lignes et les quantités en valeur et tu aura ce que tu cherches
si tu insistes sur VBA penses à envoyer sur une autres feuilles au lieu de supprimer les lignes
BONNE CONTINUATION

**SixteenVBA** · 06/04/2018, 08h21

Envoyé par mfoxy

Hello,

Un chouette petit code que j ai trouvé il y a quelques temps
Qui permet de faire ce que tu souhaites je pense

Bat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub CombineRows()
'Update 20130829
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
    Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 2)
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

Merci pour ta réponse

J'ai testé et je ne comprends pas le code... Que fait cette macro? Elle ne m'a supprimé que la cellule que j'ai renseigné dans la box qui s'affiche...

**SixteenVBA** · 06/04/2018, 08h23

Envoyé par BENNASR

Bonsoir
je sais pas la finalité de ton travail mais je crois que garder tes lignes sans les supprimer et insérer un tableau croisé dynamique avec des segments , les articles comme étiquettes de lignes et les quantités en valeur et tu aura ce que tu cherches
si tu insistes sur VBA penses à envoyer sur une autres feuilles au lieu de supprimer les lignes
BONNE CONTINUATION

Bonjour

j'y ai pensé mais la finalité doit être une liste à imprimer pour de la préparation de commandes. Après avoir supprimer les lignes je vais faire une recherche d'emplacements complexe suivant les quantités nécessaires et les quantités dispos aux emplacements. Avec un croisé dynamique je pense être bloquée.

**patricktoulon** · 06/04/2018, 09h06

re
Bonjour
@mmarpaud

en bouclant sur les cellule de ta colonne A et metant les references dans ses clés et la valeur de la cellule offset(0,1) d'un dico tu obtiens simplement ce que tu a demandé
a savoir une liste sans doublons et les valeur additionnées dans les items

autrement dit il faut voir un dico comme un variable tableau de 2 colonnes (col1 les references, col2 les valeurs )
comme un dico n'accepte pas les doublons de lui meme cette ligne n'ajoute pas d'item au dico mais ajoute la valeur a celle qui y est deja ,si il n'y est pas il ajoute la reference et sa valeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for x= 1 to ...
dico(cells(x,y))=dico(cells(x,y))+cells(x,y+1)
next

c'est pas plus compliqué que ca
il ne te reste plus qu'a transposer tes keys/items ou tu veux dans le sheets si tu veux garder sinon annalyser dans le dico en VBA selon tes besoins

**SixteenVBA** · 06/04/2018, 09h26

Bonjour patricktoulon,

Merci de votre aide. Je ne connais pas cette fonction d'Excel. Pouvez-vous m'en dire plus? Sur mon fichier je dois comparer les valeurs des cellules en colonne C à partir de la ligne 7, et si doublon, additionner les quantités de la colonne E.
J'ai fait des recherches sur internet mais ca ne m'a pas franchement aidé...

**Marc-L** · 06/04/2018, 10h51

Bonjour,

déjà réalisable simplement juste avec les fonctionnalités d'Excel et donc sans code !
Évidemment via l'Enregistreur de macro, c'est automatisable …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

**SixteenVBA** · 06/04/2018, 11h04

Envoyé par Marc-L

Bonjour,

déjà réalisable simplement juste avec les fonctionnalités d'Excel et donc sans code !
Évidemment via l'Enregistreur de macro, c'est automatisable …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonjour Marc-L, oui pour la partie de vérifier si l'article suivant est identique je peux le faire avec un VRAi/FAUX, mais pour additionner les quantités seulement si c'est le cas, je n'ai pas d'idée. Et vous? merci

**Marc-L** · 06/04/2018, 11h16

Merci de ne pas quoter l'intégralité du message juste précédent, aucun intérêt à part nuire à la lisibilité !

Solutions niveau débutant :

• Une entièrement par formules mais comme ici c'est le forum VBA (cf règles du forum) …

• Une autre simple & manuelle et donc automatisable (et en deux lignes de code !) :

- Créer la liste des articles sans doublon via un filtre avancé (voir l'aide Excel interne et le tutoriel du forum).

- Appliquer à droite de cette liste une simple formule de calculs SOMME.SI …

S'entraîner déjà manuellement donc ne requérant aucune compétence de codage VBA.
Une fois le résultat désiré obtenu, recommencer entièrement les manipulations après
avoir activé l'Enregistreur de macro : une base de code est livrée sur un plateau !

En consultant l'aide VBA interne suite à ce code ainsi généré, il est possible alors de le nettoyer …
Évidemment en cas de doute, le poster dans cette discussion, on se fera un plaisir de l'optimiser !

**mfoxy** · 06/04/2018, 21h14

Envoyé par mmarpaud

Merci pour ta réponse

J'ai testé et je ne comprends pas le code... Que fait cette macro? Elle ne m'a supprimé que la cellule que j'ai renseigné dans la box qui s'affiche...

Hello,

Avec le code que je t ai fournis il ne faut pas sélectionner une cellule mais la plage à traiter sur max deux colonnes.
Par exemple A2:B50

Cependant, je ne peux que te conseiller vivement de suivre les conseils et pistes donné par Marc et Patrick , qui sont bien plus compétent que moi

Bat

**RyuAutodidacte** · 06/04/2018, 23h28

Bonsoir,

C'est un sujet déjà traité en vba x fois en vba sur ce forum, déjà avec un code fait dans un post par @Marc-L
et aussi sur qq post que j'ai traités dont le code que j'avais est sur la base du code de Marc-L (coucou

).
ces codes permettent de faire exactement ce que tu veux …
Celui que j'avais fait permet une sélection de 1 à x critères, ceux-ci représentant par concaténation (si besoin) les doublons, et permet d'additionner et de supprimer les lignes

avec un petite recherche sur ce forum tu devrais tomber dessus (voir même sur google avec les bons mots clés)

Voilà

PS : il était même possible sans code de le faire avec un tableau croisé dynamique :

Nom : TCD.png
Affichages : 1285
Taille : 35,0 Ko

Nom : TCD.png
Affichages : 1285
Taille : 35,0 Ko

**Marc-L** · 06/04/2018, 23h58

Salut Ryu !

Oui je n'ai pas le réflexe, bien vu pour le TCD !

**Macrozor** · 17/05/2018, 13h24

Bonjour,

Si je part de ton code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub CombineRows()
'Update 20130829
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
    Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 2)
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub