XL 2013 [Résolu] Remplacer le trait de droite dans une chaîne de caractères

[Lone-wolf]

Rebonjour tout le monde 🙂

J'aimerais par VBA, changer le trait de droite d'une chaîne de catactères par un point. Quelques exemples

Pain-Boulanger-Boulangerie
Mets-Plats-Restaurant-Restauration
BA-COM-X

etc.

Merci aux Champions 😉

 

[job75]

Bonjour Lone-Wolf,

Je ne comprends pas car c'est élémentaire :

[A:A].Replace "-", ".", xlPart 'plage à adapter

A+

 

[eddy1975]

Bonsoir Lone Wolf,

Une formule substitue(A1;"-";".") ne te tente pas ? 😉

@

Edit : Bonsoir Job 🙂

 

[TooFatBoy]

Bonjour,

Je te propose ceci :

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

 

[TooFatBoy]

Ou alors en "plus simple" :

Sub SupprimeTiret()
'
Dim Chaine As String, Tempo As String

    Chaine = Range("A1")

    Tempo = StrReverse(Replace(StrReverse(Chaine), "-", ".", 1, 1))

    Range("A1") = Tempo

End Sub

 

[Lone-wolf]

Hello les Champions.

@ 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.

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

 

[Lone-wolf]

Re Marcel

J'était entrain de noter le message, et u m'a pris au dépourvu. Le 2ème code est Nickel 😉

Merci infiniments mes grands 😉 et surtout toi mon petit chaton 🙂 😀

 

[TooFatBoy]

@ Marcel: j'ai modifié comme ceci et c'est OK.

C'est bien pour ça que j'avais séparé la partie "affectation" de la partie "modification", pour te laisser adapter le code à ton besoin. 😉

De rien, mon petit chaton. 😉