Sub SupprimeTiret()
'
Dim I As Long
Dim Envers As String, Chaine As String, Tempo As String
Chaine = Range("A1")
Envers = StrReverse(Chaine)
I = InStr(Envers, "-")
Tempo = Left(Chaine, Len(Chaine) - I) & "." & Right(Chaine, I - 1)
Range("A1") = Tempo
End Sub
Sub SupprimeTiret()
'
Dim Chaine As String, Tempo As String
Chaine = Range("A1")
Tempo = StrReverse(Replace(StrReverse(Chaine), "-", ".", 1, 1))
Range("A1") = Tempo
End Sub
@ Eddy: la formule est fausse, tu remplace tous les traits.
@ Job: le code remplace tous les traits et moi c'est celui de droite que je veux remplacer.
@ Marcel: j'ai modifié comme ceci et c'est OK.
VB:
Dim I As Long
Dim Envers As String, Chaine As String, Tempo As String
Chaine = Target.Offset(0, 0)
Envers = StrReverse(Chaine)
I = InStr(Envers, "-")
Tempo = Left(Chaine, Len(Chaine) - I) & "." & Right(Chaine, I - 1)
Target.Offset(0, 0) = Tempo