Discussion :

[apdf1]

Bonjour,

J'ai code qui fonctionne trés bien mais j'aimerai lui apporté une modification.
J'ai une liste de nom en colonne "A" et lorsque je clique sur mon bouton j'ai mon code qui affiche en colonne "D" la transformation
et j'aimerai que les noms qui sont composé ont un Underscore.

Mon 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
19
20
21
22
 
    Sub MYmacro()
    lg = 6
    [D6:D65000].ClearContents
    For lig = 6 To [A65000].End(3).Row
    tx = Cells(lig, 1)
    ville = Replace(tx, " (*)", "")
    ville = Split(ville, " - ")(1)
    cp = Left(tx, 8)
    dep = Left(cp, 2)
    fx = Replace("<td class=@td_text@> " & ville & " <br>- " & cp & "</td>", "@", """")
    Cells(lg, 4) = fx
    fx = "<td class=@td_image@><a href=@" & ville & ".html@><img src=@../Blason_france/blason_alpha/" & ville & "-" & dep & ".jpg@ width=@95@ height=@120@ ></a></td>"
    fx = Replace(fx, "@", """")
    Cells(lg + 6, 4) = fx
    lg = lg + 1: i = i + 1
    If i = 5 Then
    k = k + 1: Cells(lg, 4) = "--->>> " & k
    lg = lg + 7: i = 0
    End If
    Next
    End Sub

Je joint mon fichier qui seras plus explicite.

Je vous remercie d'avance

Max

[Theze]

Bonjour,

Remplaces :

Code :

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

1
2
 
Fx = "<td class=@td_image@><a href=@" & Ville & ".html@><img src=@../Blason_france/blason_alpha/" & Ville & "-" & Dep & ".jpg@ width=@95@ height=@120@ ></a></td>"

par :

Code :

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

1
2
 
Fx = "<td class=@td_image@><a href=@" & Replace(Ville, " ", "_") & ".html@><img src=@../Blason_france/blason_alpha/" & Replace(Ville, " ", "_") & "-" & Dep & ".jpg@ width=@95@ height=@120@ ></a></td>"

[apdf1]

Salut Theze

Et merci pourquoi lorsque j'envoie la macro j'ai comme erreur l'indice n'appartient pas à la sélection

Bonne soirée

[Theze]

Re,

Tu as en ligne 221 et/ou 222 en colonne A des caractères à priori non visibles qui font que la variable "Ville" est vide pour la fonction Split(), sélectionnes ces lignes et supprime-les "physiquement" si je puis dire (par le bouton "Supprimer ligne") et après, il n'y aura plus d'erreur !
En fait, "End(xlUp).Row" retourne 222 alors qu'il n'y a que des enregistrements jusqu'à la ligne 220 (c'est ce qui me fait penser qu'il y a dans ces cellules des caractères parasites)