Concatener du texte en fonction d'une référence

Bjr, Je ne connais rien en vba mais je me débrouille pas mal sur excel. Je cherche une formule afin de pouvoir - dans ma feuille cession - concatener les order N° séparés par "/" en fonction de la HAWB. Mon fichier de données est saisies données et je cherche à avoir le résultat dans le tableau cession. Le fichier est en pj.

Merci pour votre aide.

bonjour

peux-tu mettre un exemple du résultat ? genre A B C je veux A/B si C est égal à 12

(inutile de joindre tout ton fichier, ni les feuilles inutiles)

Bjr,

J'aimerais avoir dans la colonne No Commande en cas de multi commande que cela s'affiche sous la forme 150.225.011 150.150.007 150.225.013 150.351.001

par avance merci.

re

toujours pas compris

mets un exemple avant/après dans un fichier. 10 lignes suffisent.

bonjour

un essai avec une fonction perso

ce serai faisable sans cette touchette de vba ;mais je ne te raconte pas le binz ......

il te suffit de faire un copier coller de cette fonction dansl'editeur VBA (apres y avoir eventuellement inserer un module) ton classeur reel

cordialement

Bjr,

Merci bcp. Ca fonctionne.

Bonsoir coco_1973, tulipe_4, jmd, le forum

tulipe_4 a dit :

ce serai faisable sans cette touchette de vba ;mais je ne te raconte pas le binz ......

Vois aussi cette macro :

Option Explicit

Sub Concatener()
Dim a, i As Long, n As Long
    Application.ScreenUpdating = False
    With Sheets(1)
        a = .Range("A1").CurrentRegion.Columns("B:C").Value
        n = 1
        With CreateObject("Scripting.Dictionary")
            .CompareMode = 1
            For i = 2 To UBound(a, 1)
                If Not .exists(a(i, 1)) Then
                    n = n + 1
                    a(n, 1) = a(i, 1)
                    a(n, 2) = a(i, 2)
                    .Item(a(i, 1)) = n
                Else
                    a(.Item(a(i, 1)), 2) = a(.Item(a(i, 1)), 2) & " | " & a(i, 2)
                End If
            Next
            For i = 2 To n
                .Item(a(i, 1)) = a(i, 2)
            Next
            With Sheets(2).Range("A1")
                With .CurrentRegion
                    With .Columns(4)
                        .Offset(1).Resize(.Rows.Count - 1).ClearContents
                    End With
                    a = .Value
                End With
            End With
            For i = 2 To UBound(a, 1)
                If .exists(a(i, 3)) Then
                    a(i, 4) = .Item(a(i, 3))
                End If
            Next
        End With
    End With
    With Sheets(2).Cells(1, 4).Resize(UBound(a, 1))
        .Value = Application.Index(a, 0, 4)
        .CurrentRegion.Columns(4).AutoFit
    End With
    Application.ScreenUpdating = True
End Sub

klin89