Concatener plusieurs cellules

[simraill]

Bonjour à tous,

alors voilà un petit problème :
je voudrais concatener les valeurs des cellules allant de A1 à A90.

Bien sur je connais le =A1 & ";" & A2.
Mais vous comprendrez qu'avec 90 cellule j'ai pas envie de m'amuser à tous taper...

Donc si quelqu'un a une petite astuce pour ce problème là.

Merci d'avance
simraill

 

[Paritec]

Re : Concatener plusieurs cellules

Re Simrail le forum
bah tu fais une petite boucle sur tes cellules ou une petite fonction personnalisée tu veux quoi pour séparer les textes?? un point virgule un espace un tiret bas??
a+
papou

 

[hoerwind]

Re : Concatener plusieurs cellules

Bonjour, salut Paritec,

Consultes ce fil, il date de ce matin !
https://www.excel-downloads.com/threads/simplification-de-formule.199145/

 

[simraill]

Re : Concatener plusieurs cellules

Merci,
j'avais effectivement fait une petite macro dans le genre mais en beaucoup moins propre
bizarre que mon ami google ne me l'ai pas retourné dans mes recherches.

 

[Paritec]

Re : Concatener plusieurs cellules

Re simrail le forum
un fichier que tu n'as pas su fournir (trop dur de faire un exemple) avec ton résultat
a+
Papou

 

[prorudess]

Re : Concatener plusieurs cellules

Bonjour à tous,

Ma contribution ...

Bonne journée

 

[simraill]

Re : Concatener plusieurs cellules

Merci papou,
désolé de ne pas avoir mis de fichier exemple mais je ne pensais pas qu'un petit problème de ce genre necessité forcément un exemple, je ne pense pas qu'il soit très difficile de comprendre ma demande juste en lisant mon poste.

Sinon au niveau de ton code, a quoi sert-il de mettre l'option explicit, si tu ne met pas le type de ta variable? Ca reviens au même que de ne pas la déclarer.

@prorudess : merci à tio aussi, la textbox pour mettre le séparateur est vraiment sympas !

Au final j'ai repris la fonction donnée dans le lien de hoerwind, en ajoutant un if :

Function MaPlageConcatener(plg As Range) As String
    i = 0
    For Each c In plg
        i = i + 1
        If i = 1 Then
            MaPlageConcatener = MaPlageConcatener & c
        Else
            MaPlageConcatener = MaPlageConcatener & ";" & c
        End If
    Next c
End Function

Le i et le if servant à ne pas mettre le ";" au début de la chaine.

Merci à tous
Simraill

 

[hoerwind]

Re : Concatener plusieurs cellules

Re,

Une autre possibilité par formule, le résultat dans la dernière cellule.