concaténer cellule avec référence identique Résolu/Fermé

Question

Bonjour, 

je souhaiterais avoir votre aide pour obtenir une macro qui regarde la présence de référence doublon en colonne A, si oui alors réaliser une concaténation de 2 valeurs en insérant la lettre "x"
il s'agit aussi de regrouper dans une même cellule avec saut de ligne, les valeurs concaténées des lignes doublon.

je vous joins un fichier avec différentes étapes pour que ce soit plus explicite.
il y a le tableau initial et le tableau souhaité à la fin

http://dl.free.fr/cj9tfSCfA

Merci de votre aide et n'hésitez pas si je n'ai pas été assez clair.

Anthony

Configuration: Windows 7 / Firefox 16.0

eriiic · Answer

Bonjour,

si tu voulais bien utiliser cjoint.com ou un site de dépot de ton choix ou on n'est pas obligé de se taper 30s de pub pour avoir ton fichier stp.

eric

eriiic · Answer

Re,

j'ai ajouté une ligne de titre, les données doivent commencer en ligne 2.
Sub compiler()
    Dim lig As Long, lig2 As Long, derlig As Long
    Application.ScreenUpdating = False
    [H:M].ClearContents
    [A:D].Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
    lig2 = 1
    For lig = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(lig, 1) <> Cells(lig - 1, 1) Then
            If lig2 > 1 Then Cells(lig2, 13) = Left(Cells(lig2, 13), Len(Cells(lig2, 13)) - 3)
            lig2 = lig2 + 1
            Cells(lig, 1).Resize(1, 4).Copy Cells(lig2, 8)
        End If
        Cells(lig2, 13) = Cells(lig2, 13) & Cells(lig, 4) & " x " & Cells(lig, 3) & " ; "
    Next lig
    Application.ScreenUpdating = True
End Sub 
https://www.cjoint.com/?BKhpb5JgF3R

eric

Concaténer cellule avec référence identique

2 réponses

Discussions similaires