Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

pb de concatenation non continue

  • Initiateur de la discussion Initiateur de la discussion mumu
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mumu

XLDnaute Occasionnel
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
 

Pièces jointes

Dernière édition:
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
 
Re : pb de concatenation non continue

re,

à tester :

Code:
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 CODE VBA
Réponses
17
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…