Transposer les données d'une colonne

[maval]

Bonjour

J'ai dans une colonne A5 une liste de noms. A l'aide de mon bouton j'aimerai qu'il m'affiche en colonne "D" ceci

<img class="img_info" src="images/Val D'Oise.jpg" class="img_ville" width="400" height="300" id="img1"  style="display:none;">

Je joint mon fichier qu'il seras plus explicite.

Je vous remercie d'avance

Max

 

[M12]

Bonjour

A tester

 

[maval]

Bonjour M12

je te remercie de ton code juste une petite remarque certainement un oublie !
Entre le mot "<imgclass' il y a un espace comme ci dessous
<img class="img_info" src="images/xxxxxxxx.jpg" class="img_ville" width="400" height="300" id="img1" style="display:none;">

Je te remercie et te souhaite une bonne journée
Max

 

[ChTi160]

Bonjour maval
Bonjour le Fil, M12
Bonjour le Forum
peut être comme ceci Lol
On supprime .(Mais pas sur d'avoir compris , faut il supprimer les espaces dans les Noms de ville et doit on laisser guillemet au bout des noms de ville ? si non j'ai fait ainsi:
j'ai supprime ceux ci :

 Cells(i, 6).Value = Join(Split(Cells(i, 6).Value, " "), "")

et rajoute Replace() et Trim() devant Cells(i, 1) afin de supprimer les espaces éventuels et la Guillemet.
soit

Replace(Trim(Cells(i, 1)), Chr(34), "")

pour obtenir:

Cells(i, 6).Value = "<img class=""img_info"" src=""images/" & Replace(Trim(Cells(i, 1)), Chr(34), "") & ".jpg"" class=""img_ville"" width=""400"" height=""300"" id=""img" & Compteur & """  style=""display:none;"">"

en espérant avoir pu faire avancer la chose
Bonne journée
jean marie

 

[M12]

Re,

Teste comme ceci

 

[M12]

Ou comme ceci

 

[maval]

Re, M12

Je te remercie Nickel
Si je peut abuser de ton temps pourrez tu me faire le même principe avec cette ligne.

<g><a xlink:href="xxxxxxxxxx.html" target="myFrame" onmouseover="afficher_image('img1');" onmouseout="cacher_image('img1');">

Je te remercie d'avance

Max

 

[job75]

Bonjour maval, M12, ChTi160,

Macro Remplir1 pour le problème du post #1, Remplir2 pour celui du post #7 :

Sub Remplir1()
ThisWorkbook.Names.Add "X", "<img class=""img_info"" src=""images/µ.jpg"" class=""img_ville"" width=""400"" height=""300"" id=""µµ""  style=""display:none;"">"
With Range("F5:F" & Range("A" & Rows.Count).End(xlUp).Row)
    .FormulaR1C1 = "=SUBSTITUTE(SUBSTITUTE(X,""µµ"",""img""&ROW()-4),""µ"",TRIM(SUBSTITUTE(RC1,"""""""",)))"
    .Value = .Value
End With
End Sub

Sub Remplir2()
ThisWorkbook.Names.Add "Y", "<g><a xlink:href=""µ.html"" target=""myFrame"" onmouseover=""afficher_image('µµ');"" onmouseout=""cacher_image('µµ');"">"
With Range("F5:F" & Range("A" & Rows.Count).End(xlUp).Row)
    .FormulaR1C1 = "=SUBSTITUTE(SUBSTITUTE(Y,""µµ"",""img""&ROW()-4),""µ"",TRIM(SUBSTITUTE(RC1,"""""""",)))"
    .Value = .Value
End With
End Sub

A+

 

[maval]

Bonjour Job

Nickel je te remercie et te souhaite une bonne soirée

Max