Fusion doublons+Taille fichier
Bonjour,
J'ai une base d'opérateurs ou chacun à au mois deux codes identifiants (différents).
J'ai plein cherché comment fusionner les opérateurs en doublons.
Mais les procédures proposées dans les forums (tel-que celui là) sont tellement sophistiqués que je peux pas comprendre
donc j'ai testé ce code sur un échantillon de données (mois de 1000 lignes):
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
Sub SDbl()
Dim i, j As Integer
Dim u As Variant
Application.ScreenUpdating = False
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
u = Cells(i, 2)
For j = i + 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = Cells(j, 1) Then
u = u & "|" & Cells(j, 2)
Cells(i, 3) = u
Cells(j, 1).EntireRow.Clear
End If
Next j
Next i
End Sub |
Il donne de bon résultat sauf qu'il reste des lignes vides à supprimer ultérieurement (car: Cells(j, 1).EntireRow.delete pause un problème aussi).
Mais lorsque je l'ai appliqué à mon fichier original (+ 215 000 lignes), il se bloque.
j'ai changé (dim i, j par long), et j'ai essayé encore (clng) mais le même problème persiste!
Que faire!!!