replace

[Sub]

Bonjour !

J'utilise la fonction replace : Dst = Replace(Src,"e","a") dans
une feuille excel 2000
mais malheureusement cette fonction n'est pas reconnue sous
excel 97.
Qqu'un aurait-t-il une idee pour contourner le probleme ?

Merci !

 

[chris]

Bonjour
Voici le code que j'utilise dans Access : il doit marcher dans Excel.

Public Function Txt_Replace(Txt As String, TxtSource As String, TxtCible As String) As String
Dim x As String
Dim i As Integer

x = Txt
i = 1

If Len(TxtSource) > 0 Then
Do Until i > Len(x)
If Mid$(x, i, Len(TxtSource)) = TxtSource Then
x = Left$(x, i - 1) & TxtCible & Mid$(x, i + Len(TxtSource))
i = i + Len(TxtCible)
Else
i = i + 1
End If
Loop
End If

Txt_Replace = x

End Function

Chris

 

[Sub]

Ca marche nickel !
Merci beaucoup !!!