J'utilise déjà un bon code pour supprimer les doublons mais il ne permet pas de fusionner les quantités:
Sub supdesdoub()
Application.ScreenUpdating = False
For Each o In UsedRange
o.Activate
Next
iR = ActiveCell.Row
iL = ActiveCell.Column
[J1].Select
i = 1
j = 1
Do While i < iR
If Cells(i, 1).Value = "" Then Exit Do
Do While Cells(i, 1).Value = Cells(i + 1, 1).Value
Do Until j = iL
If Cells(i, 1 + j).Value "" Then Cells(i, 1 + j).Value Cells(i + 1, 1 + j).Value
j = j + 1
Loop
Rows(i + 1).Delete
j = 1
Loop
i = i + 1
Loop
End Sub
Es-ce que quelqu'un sait comment m'aider? ( je débute encore en VBA et c'est pas toujours facile!)
Do While i < iR
If Cells(i, 1).Value = "" Then
Exit Do
Do While Cells(i, 1).Value = Cells(i + 1, 1).Value
Cells(i, 3).Value = Cells(i, 3).Value + Cells(i + 1, 3).Value
Do Until j = iL
If Cells(i, 1 + j).Value = "" Then
Cells(i, 1 + j).Value = Cells(i + 1, 1 + j).Value
j = j + 1
Loop
Rows(i + 1).Delete
j = 1
Loop
i = i + 1
Loop
Pour les codes en trop, je t'avoue que je débute en VBA et c'est un collegue qui m'a filé le code.
Je comprend bien comment fonctionne la boucle mais pas toutes les fonctions donc ces deux morceaux de code sont peut être bien inutile! Je vais tester sans.
Merci beaucoup pour la ligne qui permet de faire la somme, ça marche parfaitement!
