Concatination de cellules ayant meme

 

          A                B               C

1        NOM           Prénom      Prénom NOM

2        DUGLAND    Alfred         Alfred DUGLAND

3

4

Pour afficher       Alfred DUGLAND        en C2,

tu tapes :           C2 = B2&" "&A2

et ça devrait le faire …

 

Bonjour
votre question est incomplète
La solution dépend:
1°) de la partie du code qui peut être identique, est elle toujours en début ou pas?
2°)... et surtout de la façon dont vous posez la question qui se doit d'être le plus explicite possible, comme par exemple et entre autres préciser si dans votre tableau les cellules à analyser sont connexes sur la même ligne et si les codes comportent un nombre de caractères identiques
Si l'on se fie à votre exemple, pour info:
sien A1:x rt et en B1 x rv
avec la formule en C1
=SI(GAUCHE(A1;1)=GAUCHE(B1;1);A1&" "&DROITE(B1;2);A1)
on obtient en C1: x rt rv si le 1° caractère est identique, sinon ce qu'il y a en A1
mais ceci est limité à la position des carcatères identiques ou a reporter sur deux cellules contigües.
(Soit premier caractère identique ou non)
Tous les codes avec même nombre de caractères (soit le premier à comparer et les deux autres à prendre en compte.)
Crdlmnt

Re
j'espere que c'est clair

Non pas pour moi,(mais je ne suis pas doué) surtout après la 2° ligne et aussi ce qui se passe en B1 s'il y a déja rt!?
je pense que la mise à disposition d'un fichier exemple s'impose. !
Crdlmnt

Bonjour à tous

tes codes en colonne A
tes donn"ées (rt,cv, toto) en colonne B
les résultats en colonne c
le tout commence ligne 2 (étiquettes en ligne 1), la concaténation est inscrite sur la Ligne de la 1° occurence d'un code

essaies cette petite macro:

Option Explicit

Sub concatener()
Dim coll As Collection, code As String
Dim texto As String
Dim derlig As Long, lig As Long, cptr As Long
Dim cellule As Range

Range("C2:C65000").ClearContents
derlig = Range("A65536").End(xlUp).Row
Set coll = New Collection

For cptr = 2 To derlig
    On Error Resume Next
        coll.Add Cells(cptr, 1).Value, CStr(Cells(cptr, 1).Value)
    On Error GoTo 0
Next
For cptr = 1 To coll.Count
    code = coll(cptr)
    texto = code
    For Each cellule In Range("A1:A" & derlig)
        If cellule = code Then
            texto = texto & "-" & cellule.Offset(0, 1)
        End If
    Next
    lig = Columns(1).Find(code, Range("A1")).Row
    Cells(lig, 3) = texto
 Next
 Set coll = Nothing
End Sub