liste à transposer

[jean pierre]

Bonjour. Pouvez vous m'aider à résoudre le problème suivant :

J'ai une liste obtenue sous access et portée sous excel qui se présente ainsi

Réference Code
36201 A603
36201 A888
36201 A482
36202 A425
36202 F632

la liste compte plusieurs milliers de lignes, et il peut y avoir entre 1 et 99 occurences de chaque reference.

J'ai besoin d'obtenir une liste qui pour chaque reference concatène les codes ainsi

36201 A603A888A482
36202 A425F632


Comment écrire une macro qui fasse cette conversion ?

Merci de votre aide

 

[Cyber PAPY]

Bonsoir

Une petite idée , en supposant que la liste soit en A1: Bxx et se termine par une case vide :

m = 1
n = 1
d = Cells(n, 1)

Debut:
a = Cells(n, 1)
b = Cells(n, 2)
c = Cells(n + 1, 1)

d = d & b
n = n + 1

If c = a Then GoTo Debut
Cells(m, 3) = d
d = Cells(n, 1)
m = m + 1

If Cells(n + 1, 1) = "" Then End
GoTo Debut