Discussion :

[Oh!Tofocus]

Je voudrais remplacer une chaine de caractère par une autre dans une string

existe t-il une fonction en VBA toute prete comme la fonction "remplacer" dans EXCEL ?

voici mon code qui marche mais qui est un peu tortueux à mon gout

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub remp()
chaine1 = [A1] ' chaine dans laquelle on cherche
cherch = [A2] ' chaine recherchée
rempla = [A3] ' chaine de remplacement
 
Position = 1
 
Do
Position = InStr(Position, chaine1, cherch)
    'cherch trouvé
    If Position <> 0 Then
    'integre la chaine
    chaine1 = Left(chaine1, Position - 1) & rempla & Right(chaine1, Len(chaine1) - Position - Len(cherch) + 1)
    Position = Position + Len(rempla)
    End If
'sortie si fin de chaine ou pas trouvé
Loop Until Position > Len(chaine1) Or Position = 0
'resultat en A5
[A5] = chaine1
End Sub

merci d'avance pour vos commentaires...

[Invité]

Bonjour

As-tu regardé du coté de WorksheetFunction par exemple : http://excel.developpez.com/faq/inde...ksheetFunction

Philippe

[rjamin]

Bonjour,
Voyez la fonction

Code :

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

Replace(expression, find, replace[, start[, count[, compare]]])

[Oh!Tofocus]

Merci pour vos réponses

Comme je suis sous excel97
je retiens la solution de Philippe

Code :

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

Chaine1 = Application.WorksheetFunction.Substitute(Chaine1, cherch, rempla)