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]

Bjr Max

Pas compris quel est le besoin, une copie de la colonne A avec le lien vers le site de la commune concernée ?
Plutôt que du code, pourrais-tu mettre en colonne D ce que tu souhaites obtenir ?

Cordialement, Gérard

 

[maval]

Salut Gérard

Et merci d'avoir répondu en faite je cherche un code pour récupérer les noms de la colonne "A" et les mettre un derrière l'autre en partant de la colonne "D" ABANCOURT ',' ABANCOURT ',' ABAUCOURT ',' ABBARETZ

Je te remercie

Max

 

[natorp]

Re
Sélectionner la colonne A, clic droit "copier", sélectionner la cellule en colonne D, clic droit "Collage spécial", et choisir "transposé"
C'est ça ?
Cordialement, Gérard

 

[maval]

Re,

Non il faut que je le fasse en VBA parce que je doit aprés lui ajouter d'autre chose

@+

Max

 

[natorp]

Avec ces codes après avoir sélectionné la ligne concernée

Sub AjouterGauche()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "Communes/" & c.Value
Next
End Sub

Sub AjouterDroite()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value & ".html"
Next
End Sub

Cordialement, Gérard

 

[natorp]

Et pour ajouter derrière et devant en même temps...

Sub Ajouter()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "toto/" & c.Value & ".titi"
Next
End Sub

 

[maval]

Re,

Non pour le code transpose je l'es trouver

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

a ce code il faut que j'arrive a lui ajouter en début "var txt = new Array ('AAST ',' ABANCOURT ', ect...

 

[maval]

Re,

Personne peut m'aider?

Bonne soirée

 

[natorp]

Désolé
Je n'ai toujours pas compris le résultat final !!
Vous parlez de mettre en ligne la colonne A, mais dans votre dernier post, il semble que tout est dans une seule cellule ????
Cordialement, Gérard

 

[maval]

Re,

Oui tu as raison autant pour moi je m'excuse

Max

 

[natorp]

Comme ça ?

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

Cordialement, Gérard

 

[maval]

re,

Regarde j'ai mis ma feuille avec un code pour copier la colonne dans la cellules mais je n'arrive pas a ajouter le reste

Max

 

[natorp]

Voir post #12...

 

[maval]

Oui
la première partie est nickel je te remercie beaucoup
sur le même style la deuxième partie se compose comme ceci

var url = new Array ('Afrique/Afrique_du_Sud.html','Afrique/Algerie.html','Afrique/Angola.html','Afrique/Benin.html','Afrique/Botswana.html','Afrique/Burkina_Faso.html','Afrique/Burundi.html','Afrique/Cameroun.html','Afrique/Cap_Vert.html','Afrique/Comores.html','Afrique/Congo.html','Afrique/Côte_d_Ivoire.html','Afrique/Djibouti.html','Afrique/Egypte.html','Afrique/Erythree.html','Afrique/Ethiopie.html','Afrique/Republique_Centrafricaine.html','Afrique/Republique_Democratique_du_Congo.html','Afrique/Rwanda.html','Afrique/São_Tome_et_Príncipe.html','Afrique/Senegal.html','Afrique/Seychelles.html','Afrique/Sierra_Leone.html','Afrique/Somalie.html','Afrique/Soudan.html','Afrique/Swaziland.html','Afrique/Tanzanie.html','Afrique/Tchad.html','Afrique/Togo.html','Afrique/Tunisie.html','Afrique/Zambie.html','Afrique/Zimbabwe.html');

Toujors sur une cellule "D7"

@+

Max