concatener une série de cellues

[Benoit Clouet]

Bonjour,

J'ai une liste de communes en colonne sous excel, et je souhaiterais les exporter vers word en les ayant à la suite, séparées par une virgule et un espace.

Est-ce possible de l'automatiser?

Je vous remercie de votre attention

Benoit Clouet

 

[nat54]

Re : concatener une série de cellues

Est-il possible de savoir combien il y a de colonnes ?
Seule la ligne 1 est remplie à ce que j'ai compris ?

 

[Benoit Clouet]

Re : concatener une série de cellues

Il y a une colonne de 865 lignes, avec un nom de commune par ligne.
Et je souhaiterais en avoir une liste sous word , avec les noms mis bouts à bouts, sans avoir à tousles retaper.
Mais je ne sais pas si il existeune formule pour cela.

Merci de votre aide

 

[nat54]

Re : concatener une série de cellues

il y a la fonction concatener
j'essayais de l'automatiser dans vba mais je n'y arrive pas 🙁 car en vba la référence de cellule n'est pas A1 par ex mais L1C1


http://cjoint.com/?ilkmbIrOR3
poiur le moment j'ai ca uniquement en formule, sans vb

 

[Benoit Clouet]

Re : concatener une série de cellues

D'accord.

Je vais me résoudre à tout copier/coller alors.

Merci de votre attention et peut être à une prochaine fois

 

[flo2002]

Re : concatener une série de cellues

bonjour Nat et Benoit,
ce que je ferais en considerant que ta liste commence en A1 et que la colonne B est vide
en B1 tu mets =A1&" ,"
en B2 tu mets =B1&A2&" ,"
et tu tire ta formule jusqu'en bas.
Ta derniere cellule doit faire ton bonheur, tu copie le contenu et le colle dans word.
C'est de la bidouille mais ca doit etre bon.
bon courage

 

[nat54]

Re : concatener une série de cellues

Vous pouvez peut-être enregistrer ce fichier au format txt prn (càd avec espace entre chaque) et l'ouvrir sous word ensuite

 

[nat54]

Re : concatener une série de cellues

Et oui ca marche nickel FLO 🙂 !!

juste en inversant car l'espace est APRES la virgule

en B1 tu mets =A1&", "
en B2 tu mets =B1&A2&", "

 

[Tibo]

Re : concatener une série de cellues

Salut Benoit,

Un petit essai par formule à recopier jusqu'à la dernière ligne.

Regarde le fichier.

@+

Edit : le temps de faire le fichier, la réponse est arrivée. Fichier basé sur la méthode de Flo.

 

[flo2002]

Re : concatener une série de cellues

Et oui ca marche nickel FLO 🙂 !!

juste en inversant car l'espace est APRES la virgule

en B1 tu mets =A1&", "
en B2 tu mets =B1&A2&", "

désolé j'avais pas fait attention, j'ai essayé avec des A1, alors c'était pas trés parlant.

 

[Hervé]

Re : concatener une série de cellues

bonjour tout le monde

une fonction personnalisée qui pourrait faire le boulot :

Public Function concateneliste(cellule As Range, separateur As String)
Dim i As Integer
Dim t As String

If cellule.Count > 5000 Then
    concateneliste = "Erreur : cellules maxi = 5000"
    Exit Function
End If

For i = 1 To cellule.Count
    If i = 1 Then
        t = cellule(i)
    Else
        t = t & separateur & cellule(i)
    End If
Next i

concateneliste = t
    
End Function

j'ai limité le nombre de cellule traitable à 5000, tu devrais pas etre géné car tu parles de 865 lignes

explication :

cellule=plage à traiter
separateur= ; dans ton cas

utilisation :

dans une cellule : =concateneliste(A1:A15;"; ")

salut

 

[Benoit Clouet]

Re : concatener une série de cellues

Merci beaucoup àtous.

Vous m'avez retiré une sacré épine du pied.

Bonne journée à vous et bon travail.

Benoit