Bonjour,
lorsque j’extrais de mon ERP mes lignes de stocks je peux avoir plusieurs lignes pour le même produit.
j'utilise la macro suivante pour n'avoir plus que une ligne par produit.
dans mon exemple joint cela fonctionne bien mais lorsque j'utilise la macro sur le fichier de 10000 LIGNES (il me restera 6000 lignes sans doublon), la macro s’arrête sur la ligne 6947
6947 COSSED06 COSSES POUR EMBOUT DOUBLE DE 2 UN 25 000,00
6948 COSSED06 COSSES POUR EMBOUT DOUBLE DE 2 UN 50 050,00
avec le message suivant : erreur 6' DÉPASSEMENT DE CAPACITÉ
mais cela ne le fait pas dans le fichier réduit en pièce jointe
merci pour votre aide,
PS : la macro est assez longue à d’exécuté, si vous avez plus rapide
, je suis preneur
sub suppr_doublons()
Application.ScreenUpdating = False
Dim i, j, k As Integer
Sheets("BASE").Activate
Range("A15000").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R[-14999]C:R[-1]C)"
Range("A15001").Select
j = 1
For i = 2 To Cells(15000, 1).Value
Sheets("BASE").Activate
Cells(i, 1).Select
ActiveCell.EntireRow.Copy
Sheets("BASE PAR ARTICLE").Activate
Cells(j, 1).Select
ActiveCell.EntireRow.PasteSpecial
Sheets("BASE").Activate
While Cells(i, 1) = Cells(i + 1, 1)
k = Cells(i + 1, 4).Value
Sheets("BASE PAR ARTICLE").Activate
Cells(j, 4) = Cells(j, 4) + k
Sheets("BASE").Activate
i = i + 1
Wend
j = j + 1
Next
Application.ScreenUpdating = True
End Sub