pb de concatenation non continue

[mumu]

Bonjour,

J'ai cherché en vain sur le forum une réponse à mon pb.
Je suis en train de travailler sur les résultats d'un tableau croisé dynamique sur les deux premières colonnes de mon exemple (exemple ci joint).
Mon souhait est de partir de la colonne code pour arriver à la colonne résultat. Je voudrais concatener les codes multiples affectés à chaque Ax
Par exemple A10 est sur 2 lignes et je voudrais concatener ces 2 lignes. Sachant que parfois c'est 3 ou 4 lignes et que le fichier fait quelques centaines de lignes......

Je sais que ça va être facile pour vous mais pour moi c'est pas le cas......

Merci pour les éventuelles réponses.

Mumu

 

[tototiti2008]

Re : pb de concatenation non continue

Bonsoir mumu,

si c'est une formule que tu attends, j'ai peur que ce ne soit pas facile (bien qu'il soit tout à fait possible que je me trompe)

A ma connaissance, une formule ne peut pas concatener le contenu d'une plage de plusieurs cellules, même une formule matricielle

Maintenant, en VBA tout est possible

 

[mumu]

Re : pb de concatenation non continue

Salut,

Merci et justement, j'attends une réponse en VBA

 

[gilbert_RGI]

Re : pb de concatenation non continue

Bonjour;

peut-être il y a t il d'autres solutions

voici la mienne

 

[tototiti2008]

Re : pb de concatenation non continue

re,

à tester :

Sub test()
Dim i As Long, Res As String
    For i = Range("B65536").End(xlUp).Row To 2 Step -1
        If Range("A" & i).Value = "" Then
            Res = Range("B" & i).Value & IIf(Res = "", "", "-" & Res)
        Else
            Range("C" & i).Value = Range("B" & i).Value & IIf(Res = "", "", "-" & Res)
            Res = ""
        End If
    Next i
End Sub

 

[JHA]

Re : pb de concatenation non continue

Bonsoir,

la solution VBA de tototiti2008 marche bien, par formule pour 3 concatenations max:

=SI(ET(A3<>A2;A3="";A4="");CONCATENER(B2;"-";B3;"-";B4);SI(ET(A3<>A2;A3="");CONCATENER(B2;"-";B3);SI(A2="";"";B2)))

JHA

 

[mumu]

Re : pb de concatenation non continue

Merci pour vos réponses,
Effectivement la solution de tototiti2008 marche super bien et convient bien à mon fichier très long !!!!!

Merci à tous pour ce coup de main salutaire !

A +

Mumu