Bonjour
Voila j'ai un code :
Sub TransposeTrans_Path()
Dim cr1$, cr2$, derlig&, i&, X&, cr3
With Feuil2
derlig = .Cells(Rows.Count, 2).End(xlUp).Row
cr1 = "<path id="""
cr2 = "title="""
X = 0
For i = 5 To derlig
X = X + 1
cr3 = Format("0" & X, "00")
.Cells(i, 4) = cr1 & cr3 & """ " & cr2 & .Cells(i, 1)
Cells(i, 1) = Replace(Cells(i, 1), "-", " ")
Cells(i, 1) = Replace(Cells(i, 1), "_", " ")
Next i
End With
End Sub
J'aimerai mettre ceci
Cells(i, 1) = Replace(Cells(i, 1), "-", " ")
Cells(i, 1) = Replace(Cells(i, 1), "_", " ")
sur une seul ligne
En faisant ceci Cells(i, 1) = Replace(Cells(i, 1), "-", " "), "_", " ") j'ai une erreur de compilation
Je vous remercie
Max