Discussion :

[_shuriken_]

Bonjour Tout le monde,

voilà, j'ai un petit casse tête qui est en train de me prendre tout mon temps, je pense que si je vous expliques, quelqu'un peut me donner la solution très vite. j'ai une feuille avec 2 champs. Le 1er contient des numéros qui peuvent ne pas être uniques.

Je veux parcourir les lignes, à chaque fois que je retrouve le même numéro, je concatène le contenu du 2ème des lignes qui ont le même numéro.J'avais commencer un bout de code, sans être sur de moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Bouton1_Cliquer()
Dim CompareRange As Variant, x As Variant, y As Variant, z As Variant
 
 
Set CompareRange = Range("A1")
Set z = Range("C1")
 
For Each x In Selection
 
    For Each y In CompareRange
 
            If x = y Then
 
            z = z + z
            End If
    Next y
 
Next x
 
 
End Sub

Je vous remercie infiniment d'avance.

_shuriken_

[thebenoit59]

Bonjour _shuriken_
Je ne suis pas certain de comprendre ta demande, je me permets de reformuler.

Tu as en Colonne A (exemple) une liste de numéros.
En Colonne B (exemple toujours) une liste de valeurs affectées aux numéros.

Si tu as plusieurs fois le même numéro en Colonne A, tu souhaites concaténer tes valeurs du style :
1548 | ABC
1548 | DEF
Et obtenir 1548 | ABC:DEF

C'est bien ça que tu souhaites ?

[_shuriken_]

Salut thebenoit59,

Exactement, mais séparé par ",".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1548 | ABC, DEF

Merci thebenoit59

[thebenoit59]

Je te donne une idée avec le fichier joint.
Je ne sais pas à quoi ressemble ton tableau exactement, essaye d'adapter le code.
Sinon tu peux laisser un exemple de ton tableau et je verrai pour l'adapter.

[_shuriken_]

Merci thebenoit59,

je crois qu'on y est presque, mais je n'arrive pas à l'adapter. Je te joint mon fichier.

[thebenoit59]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Transpose

Ne convenait pas avec tes chaînes de caractères, qui étaient trop longues en colonne B.
Une autre méthode pour retranscrire les résultats.