Discussion :

[apdf1]

Bonjour

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

Code HTML :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Je joins mon fichier qu'il seras plus explicite.

Je vous remercie d'avance

Max

[Thautheme]

Bonjour Apdf1, bonjour le forum,

Essai ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau des Lignes)
 
Set O = Worksheets("Feuil1") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
TV = O.Range("A5:A" & DL) 'définit le tableau des valeurs TV
ReDim TL(1 To UBound(TV, 1)) 'redimensionne le tableau des lignes TL
For I = 1 To UBound(TV, 1) 'boucles sur toutes les lignes du tableau des valeurs TV
    'définit la valeur de la ligne TL de la boucle
    TL(I) = "<g><a xlink:href=" & Chr(34) & Mid(TV(I, 1), 1, Len(Trim(TV(I, 1))) - 1) & ".html" & Chr(34) & " target=" & Chr(34) & "myFrame" & Chr(34) & " onmouseover=" & Chr(34) & "afficher_image('img" & I & "');" & Chr(34) & " onmouseout=" & Chr(34) & "cacher_image('img" & I & "');" & Chr(34) & ">"
Next I 'prochaine ligne de la boucle
'renvoie dans F5 redimensionnée de l'onglet O le tableau TL transposé
O.Range("F5").Resize(UBound(TV, 1), 1).Value = Application.Transpose(TL)
End Sub

[78chris]

Bonjour à tous

J'ai un gros doute sur l'utilisation de noms contenant des espaces et des apostrophes en html...

A noter qu'il s'agit d'un multipost