Concaténer cellule avec référence identique
Résolu
anthony
-
anthony -
anthony -
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
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
2 réponses
-
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
-
-
-
je pensais que ça serait plus simple en détaillant mais ça ne donne pas de bons résultats.
j'ai refait mon fichier et je le joins
http://cjoint.com/?BKhouk7C5ii
il y a un onglet avec les données brutes et une feuille résultat.
Sur la feuille résultat, la synthèse obtenue suite à la macro doit être générée à droite des données brutes.
La concaténation des différentes cellules ne se fait plus avec saut de ligne mais avec un ";" pour éviter d'avoir un tableau trop grand (le tableau de synthèse sera affiché)
en colonne H, on tape les références voules, on lance la macro et on obtiendrait les données en colonnes I à M (comme sur la feuille Résultat)
en espérant que je sois plus clair cette fois
Merci de l'aide
-
-
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
