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
A voir également:
- Concaténer cellule avec référence identique
- Concatener deux cellules excel - Guide
- Excel cellule couleur si condition texte - Guide
- Reference pto - Accueil - Box & Connexion Internet
- Proteger cellule excel - Guide
- Inverse de concatener excel ✓ - Forum Bureautique
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
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
Re,
j'ai ajouté une ligne de titre, les données doivent commencer en ligne 2.
https://www.cjoint.com/?BKhpb5JgF3R
eric
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
désolé, j'ignorais qu'il y avait de la pub par free, le site habituel de ci-joint étant introuvable j'avais opté pour cette alternative.
http://cjoint.com/?BKhhhgpMttS
Je ne peux rien pour toi.
eric
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