Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Transposer les données d'une colonne

maval

XLDnaute Barbatruc
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
 

Pièces jointes

  • transpose.xlsm
    14.2 KB · Affichages: 19

maval

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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
 

maval

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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+
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…