Ajouter un UnderScore au mot composé

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:

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

Re,

Personne pour m'aider

Bonne journée à tous

Max

valmax, le forum,

Je ne suis pas sûre d'avoir bien compris ...

Sous les deux lignes qui commence par ville, ajoute cette ligne-ci.

ville = Replace(tx, " ", "_")

LaCéline

Bonjour Céline

J'ai bien ajouter la ligne sa me donne des underscore de partous.

Alors je voudrais avoir uniquement sur les deuxiéme groupes

<td class="td_image"><a href="BELMONT D AZERGUES.html"><img src="../Blason_france/blason_alpha/BELMONT D AZERGUES-69.jpg" width="95" height="120" ></a></td>

Merci et bonne aprés-midi

Max

valmax, le forum,

Ainsi, s'approche-t-on du résultat souhaité ?

Sub MYmacro()
On Error Resume Next
lg = 6
[D6:D65000].ClearContents
For lig = 6 To [A65000].End(3).Row
tx = Cells(lig, 1)
tx2 = Cells(lig, 1)

ville = Replace(tx, " (*)", "")
ville = Split(ville, " - ")(1)
ville2 = Replace(ville, " ", "_")  ' Ajout

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=@" & ville2 & ".html@><img src=@../Blason_france/blason_alpha/" & ville2 & "-" & 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

LaCéline

Re,

Je te remercie beaucoup et te souhaite une bonne soirée

Max