Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

liste à transposer

J

jean pierre

Guest
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
 
C

Cyber PAPY

Guest
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…