Transposition colonne en ligne une cellule

Bonsoir la communauté,

Je rencontre des petits soucis avec excel.

J'ai toute une liste de villes en une colonne, une ville par cellule.

Je souhaite sélectionner plusieurs villes et les coller dans une seule cellule mais les coller de sorte quelles soient les une après les autres avec un ou deux espaces entre chaque ville.

La liste est assez long, je ne souhaite pas faire tout à la main .... et puis excel sert à sa aussi

Merci d'avance pour votre aide.

Jérémy

Bonjour

Je souhaite sélectionner plusieurs villes et les coller dans une seule cellule mais les coller de sorte quelles soient les une après les autres avec un ou deux espaces entre chaque ville.

Des villes au hasard dans la colonne ou des séries de cellules adjacentes ?

Envoie un exemple sur un fichier Excel, ce sera plus facile de te comprendre et de t'aider

A titre d'exemple

A1 Paris

A2 Toulouse

A3 Marseille

=CONCATENER(A1;CAR(32);A2;CAR(32);A3)

et

=A1&CAR(32)&A2&CAR(32)&A3

donnent le même résultat: Paris Toulouse Marseille

Cordialement

Bonsoir et merci pour ta reponse.

Je te joint une partie du fichier.

Oui j'ai regardé la fonction CONCATENER mais comment faire pour sélectionné plusieurs cellule (système d'étirement et elles passent en bleue ensuite).

Parce que avec cette fonction je dois les sélectionner une par une.

Merci d'avance

Bonsoir,

Pas compris pour la couleur !

Sub Concat()
Dim Cel As Range
        Application.ScreenUpdating = False
    For Each Cel In Range("a1:a" & [a65000].End(xlUp).Row)
        Cells(1, "b") = Trim(Cells(1, "b")) & "  " & Cel
    Next Cel
End Sub

Amicalement

Claude

Bonjour,

Super Claude tu es un chef !! Merci beaucoup c'est exactement ce que je voulais.

Moins de 24 heures pour résoudre mon problème ! Merci la communauté

A bientôt,

Jérémy.

Ps : Je parlais des cellules qui passent en bleu lorsque je les sélectionne avec la souris ...

Si tu repasse par là

Voila c'est fait.

Encore une petite chose. Y a t'il une fonction pour transformer les espaces en "-".

Par exemple : "Puget sur Argent" en "Puget-sur-Argent".

Merci d'avance

Bonjour

Ici, le texte est en A1

=SUBSTITUE(A1;CAR(32);CAR(45))

Cordialement

Bonjour à tous,

2 solutions

Sub Concat()
Dim Cel As Range
        Application.ScreenUpdating = False
        Cells(1, "b").ClearContents
    For Each Cel In Range("a1:a" & [a65000].End(xlUp).Row)
        Cells(1, "b") = Trim(Cells(1, "b")) & "  " & _
        Application.Substitute(Cel, " ", "-")
    Next Cel
End Sub

ou

Sub Concat2() 'avec ajout tirets en colonne A
Dim Cel As Range
        Application.ScreenUpdating = False
        Cells(1, "b").ClearContents
    For Each Cel In Range("a1:a" & [a65000].End(xlUp).Row)
        Cel = Application.Substitute(Cel, " ", "-")
        Cells(1, "b") = Trim(Cells(1, "b")) & "  " & Cel
    Next Cel
End Sub

Salut Amadéus

Amicalement

Claude

Super merci Claude c'est la perfection au masculin

A bientôt