Discussion :

[apt]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[apt]

Merci mercatog.

[Daranc]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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) ne connaissant pas la manipulation de "replace"
je suis arrivé à ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[apt]

Bonsoir Daranc,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Daranc]

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

[apt]

Bonsoir Daranc,

Merci pour ton passage.