Utiliser 3 fois Replace sur un seul mot; Une solution ?

Bonsoir à tous,

Dans C2, j'ai la chaine [1500-1659].

Pour avoir un résultat similaire à S-1500&&-1659, j'utilise trois fois la fonction Replace pour en arriver au résultat voulu.

Code:

---

1 2 3 4 5 6 7 8 9

Sub ReplaceChar() Dim S As String S = Replace(Cells(2, 3), "[", "") S = Replace(S, "]", "") S = Replace(S, "-", "&&-") S = "S-" & S MsgBox "S : " & S Cells(2, 4) = S End Sub

---

Y a-t-il un moyen pour remplacer tous ces caractères en une seule fois ?

Merci.

3 fois Replace c'est pas grand chose et c'est lisible.
Sinon, 3 Replaces imbriquées

Code:

---

1 2 3 4 5 6 7 8 9

Private Function Former(ByVal Str As String) As String   Former = "S-" & Replace(Replace(Replace(Str, "[", ""), "]", ""), "-", "&&-") End Function   Sub ReplaceChar()   Cells(2, 4) = Former(Cells(2, 3)) End Sub

---

Merci mercatog.

:P

Code:

---

1 2 3 4 5 6 7 8 9

Private Function Former(ByVal Str As String) As String   Former = "S-" & Replace(Replace(Replace(Str, "[", ""), "]", ""), "-", "&&-") End Function   Sub ReplaceChar()   Cells(2, 4) = Former(Cells(2, 3)) End Sub

---

en essayant de comprendre la logique du remplacement ( a propos:ccool:) ne connaissant pas la manipulation de "replace"
je suis arrivé à ceci

Code:

---

Former = "S-" & Replace(Str, "-", "&&-")

---

pour la Private Function , ce qui donne le même résultat. Est ce une simplification, ou ai je loupé un truc?

Bonsoir Daranc,

Citation:

---

Envoyé par Daranc

Code:

---

Former = "S-" & Replace(Str, "-", "&&-")

---

pour la Private Function , ce qui donne le même résultat. Est ce une simplification, ou ai je loupé un truc?

---

Mais comme ça, en aura un résultat similaire à :

S-[1500&&-1659] au lieu de S-1500&&-1659

S-[1500&&-1659] au lieu de S-1500&&-1659 :mrgreen:
j'avais tester 1500-1659 j'avais pas pris en compte les crochets :mouarf:
nettement plus compréhensible comme ça ... je me remet au café :D

Bonsoir Daranc,

Merci pour ton passage.

:)