Concatener en ajoutant un caratère

Question

Bonjour à tous,
voilà mon petit soucis.
dans une feuille j'ai un grand nombre de cellules en colonne contenant du texte
je souhaiterais fusionner toutes ces cellules mais que le contenu de chaque cellule soit séparé par un symbole.
en gros j'ai 
A1 texte1
A2 texte2
A125 texte 125
et je voudrais regroupé tout ces textes en une seule cellule et séparé  par un ";"
donc en B1 j'aurais texte1;texte;...;texte125
j'ai essayé =ConcatPlage(A1:A125;";")
mais ça fonctionne pas
je précise que je suis sous office 2007
merci à tous



Configuration: Windows XP / Firefox 3.5.15

michel_m · Answer

Bonjour

écrire 125 fois les adresses de cellules: bonjour

dionc *une fonction personnalisée

Function concat_125(zone As Range)
tablo = Application.Transpose(zone)
concat_125 = Join(tablo, "; ")
End Function

zone=A1:A125

desperateman · Answer

oula j'ai rien compris :)

michel_m · Answer

Et si tu disais ce que tu n'as pas compris, ca pourrait peut-être aider ?

desperateman · Answer

ton explication
je ne sais pas où je dois écrire quoi.
tu m'aurais écrit du chinois pour moi ça aurait été pareil
je ne suis pas un pro d'excel

michel_m · Answer

je ne suis pas un pro d'excel

moi non plus


1/ tu copies le code que je t'ai écris

2/ sur ton classeur : Alt+F11; tu arrives dans l"éditeur VBA

3/ insertion module (ctrl+R)

4/ Tu colles le code

5: si ne n'est pas fait tu mets les macros en sécurité moyenne  (Xl<2007: outils-macros-sécurité) 

6: insertion-fonction-fonction personnalisées

7: tu sélectionnes concat_125

8/ tu sélectionnes la zone (A1:A125)

Raymond PENTIER · Answer

Pour les gens comme moi qui ne sont ni des pros d'excel ni des pratiquants de VBA, voici une méthode :
* en B1 écrire la formule =A1
* en B2 écrire la formule =B1&";"&A2
formule à recopier vers le bas.

Cordialement.

Concatener en ajoutant un caratère

6 réponses

Discussions similaires

Newsletters