Transposé une colonne

[maval]

Bonjour,

J'ai une colonne "A" avec des noms de ville j'aimerai si possible les transposés en colonne "D" avec des d'autre caractères mon fichier seras plus explicite

Je vous remercie d'avance

Cordialement

Max

 

[natorp]

Bonjour Max

Donc pour D7 :

Sub Concat()
Dim Cel As Range
          Application.ScreenUpdating = False
      For Each Cel In Range("a6:a" & [a65000].End(xlUp).Row)
  
           Cells(7, "d") = Trim(Cells(7, "d")) & "','Communes/" & Cel & ".html"
     Next Cel
         Cells(7, "d").Value = Mid(Cells(7, "d").Value, 2)
         Cells(7, "d").Value = "var txt = new Array ('" & Cells(7, "d").Value & "')"
End Sub

Cordialement, Gérard

 

[maval]

Salut Gérard

Je te remercie et te souhaite une bonne journée

Max