Transposer les données d'une colonne

maval · 16 Octobre 2018

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

Code:

<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 · 16 Octobre 2018

Bonjour

A tester

maval · 16 Octobre 2018

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 · 16 Octobre 2018

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 :

VB:

 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:

VB:

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 · 16 Octobre 2018

Re,

Teste comme ceci

M12 · 16 Octobre 2018

Ou comme ceci

maval · 16 Octobre 2018

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 · 16 Octobre 2018

Bonjour maval, M12, ChTi160,

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

Code:

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 · 16 Octobre 2018

Bonjour Job

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

Max

Transposer les données d'une colonne

maval

XLDnaute Barbatruc

Pièces jointes

M12

XLDnaute Accro

Pièces jointes

maval

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

M12

XLDnaute Accro

Pièces jointes

M12

XLDnaute Accro

Pièces jointes

maval

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires