XL 2013 Concatener avec insertion titre de colonne et saut de ligne et

[julesm]

Bonjour à tous!

J'ai un fichier excel dans lequel pour chaque ligne j'aimerais faire un recap des infos situées dans les colonnes de droite. Avec un retour à la ligne à chaque fois que l'info vient d'une autre colonne et le nom de cette colonne.

Jusqu'ici j'ai réussi a concatener les infos de toutes les colonnes non vides en les séparant par un retour à la ligne grace au poste de Nat54 ici:
https://www.excel-downloads.com/threads/concatenation-si-cellules-non-vides.132712/

Mais je ne sais pas comment insérer le nom des colonnes. Sachant que j'aimerais automatiser tout ca car j'ai 150 colonnes et quelque millier de ligne.

En PJ deux de mes essais:

le premier ressemble à ce que j'aimerais avoir sauf que je ne voudrais pas afficher les colonnes vides et c'est une formule manuelle qui me prendrait une vie à mettre en oeuvre dans mon fichier.

Le second cas fonctionne avec une macro mais ne fait que concatener les cellule à droite sans insérer le titre.

Auriez vous des suggestions?

Merci à vous et bonne journée
Jules

 

[vgendron]

Hello
avec ce code peut etre

Function Concat2(PlageTitre As Range)
For Each titre In PlageTitre
    If titre.Offset(1, 0) <> "" Then
        Concat2 = Concat2 & Chr(10) & titre & Chr(10) & titre.Offset(1, 0) & Chr(10)
    End If
Next titre

End Function