Bonjour à tous,
Je souhaiterais créer une macro mais j'ai quelques difficultés.
J'ai un fichier de plus de 300 000 lignes avec dedans des références et des quantités. Beaucoup de ces références sont les mêmes. Je voudrais ainsi obtenir qu'une seule référence mais avec les quantité additionnés.
J'ai déjà réussi à faire un petit code mais il fait crasher Excel car j'ai trop de lignes.
J'ai essayé aussi de passer par des boucles for mais pareil ça crash ou alors je dois faire des petites boucles.
Voici le code qui fonctionne le mieux que j'ai pu faire
Sub Reference()
Dim i%
'Pour commencer à la 2e ligne
i = 2
Boucle:
'Tant que la ligne sélectionné possède une référence faire
Do While Worksheets("Pallet").Cells(i, 2) <> ""
'Si la ligne sélectionné et la ligne suivante ont la même référence alors
If Worksheets("Pallet").Cells(i, 2) = Worksheets("Pallet").Cells(i + 1, 2) Then
'La quantité de la ligne sélectionné s'additionne avec la ligne suivante
Worksheets("Pallet").Cells(i, 1) = Worksheets("Pallet").Cells(i, 1) + Worksheets("Pallet").Cells(i + 1, 1)
'Supprimer la ligne suivante
Worksheets("Pallet").Rows(i + 1).EntireRow.Delete
'Passer à la ligne suivante
i = i + 1
'Sinon si pas la même référence passer à la ligne suivante et refaire la boucle
Else
i = i + 1
GoTo Boucle
End If
Loop
End Sub
Je vous ai mis un fichier d'exemple en pièce jointe
Je vous remercie