Concaténer cellule avec référence identique

Résolu/Fermé

anthony - 6 nov. 2012 à 22:34
anthony - 7 nov. 2012 à 16:26

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

A voir également:

Concaténer cellule avec référence identique
Concaténer pdf - Guide
Concatener deux cellules excel - Guide
Reference pto - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide

2 réponses

Réponse 1 / 2

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
6 nov. 2012 à 23:40

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

anthony
7 nov. 2012 à 07:08

Bonjour,
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

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
7 nov. 2012 à 11:04

Autant l'explication me paraissait simple, autant sur l'exemple fournit le résultat parait incohérent avec les valeurs de départ.
Je ne peux rien pour toi.

eric

anthony
7 nov. 2012 à 14:24

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

Réponse 2 / 2

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
7 nov. 2012 à 15:02

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

anthony
7 nov. 2012 à 16:26

merci ça fonctionne parfaitement.
désolé pour la perte de temps
merci encore

Discussions similaires

Retour ligne dans une concaténation EXCEL ?

Blocage sur tableau Excel par la mention "La référence n'est pas valide

Excel si cellule contient texte alors...

Erreur Automation

Discussions similaires

Newsletters