Transposé une colonne

natorp

XLDnaute Accro

• 18 Mai 2017

• #2

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 18 Mai 2017

• #3

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

 

Vote positif 0 Vote négatif

natorp

XLDnaute Accro

• 18 Mai 2017

• #4

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 18 Mai 2017

• #5

Re,

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

@+

Max

 

Vote positif 0 Vote négatif

natorp

XLDnaute Accro

• 18 Mai 2017

• #6

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

Code:

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

 

Vote positif 0 Vote négatif

natorp

XLDnaute Accro

• 18 Mai 2017

• #7

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

Code:

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 18 Mai 2017

• #8

Re,

Non pour le code transpose je l'es trouver

Code:

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...

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 18 Mai 2017

• #9

Re,

Personne peut m'aider?

Bonne soirée

 

Vote positif 0 Vote négatif

natorp

XLDnaute Accro

• 18 Mai 2017

• #10

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 18 Mai 2017

• #11

Re,

Oui tu as raison autant pour moi je m'excuse

Max

 

Vote positif 0 Vote négatif

natorp

XLDnaute Accro

• 18 Mai 2017

• #12

Comme ça ?

Code:

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 18 Mai 2017

• #13

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

 

Pièces jointes

• copy_colonne.xlsm

  18.7 KB · Affichages: 17

Vote positif 0 Vote négatif

natorp

XLDnaute Accro

• 18 Mai 2017

• #14

Voir post #12...

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 18 Mai 2017

• #15

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

 

Vote positif 0 Vote négatif