fonction remplace dans VBA

Bonjour Mary,

En vba, C'est la fonction "Replace" et non "Remplace" disponible à partir de la version 2000

Sur les versions antérieures d'excel, tu peux utiliser la fonction de la feuille substitue

substitue(texte;ancien_texte;nouveau_texte;no_position)

et pour l'appeler en VBA,

Letexte = Application.Substitute(texte;ancien_texte;nouveau_texte;no_position)


Salutations!


"Mary" <anonymous@discussions.microsoft.com> a écrit dans le message de news:00e801c3b065$4a756960$a501280a@phx.gbl...
Bonjour à tous...

Je sais qu'il existe une fonction remplace dans VB afin de
remplacer dans un String tel caractère par un autre. Par
contre il semble que dans VBA pour la suite de travail
Excel 97 n'existe pas malheureusement.

J'ai trouvé quelque fonction pré-écrite sur internet...
par contre ca semble être assez peu performant comme
code...


Public Function ReplaceString(ByVal pString As String,
ByVal Keyword As String, ByVal NewKeyWord As String) As
String
Dim StrLen As Long
Dim StrOut As String
Dim KeyPos As Long
Dim StrLenChange As Boolean

' set a few values before we go any further
StartPos = 1
StrLen = Len(pString)

' if the word to replace and the word to replace by are
different lengths, record that they are
If Len(Keyword) <> Len(NewKeyWord) Then StrLenChange True

' check to see where the first occurence of the keyword
to replace is in the string
KeyPos = InStr(StartPos, pString, Keyword)

' only do the replace loop if the keyword string is there
While KeyPos > 0
' rebuild the string, taking out the keyword and
replacing it with the NewKeyword
pString = Left(pString, KeyPos - 1) & NewKeyWord & MID
(pString, KeyPos + Len(Keyword), StrLen - KeyPos - Len
(Keyword) + 1)

' if the Keyword and NewKeyword as different lengths
then recalc the length of the string
If StrLenChange Then StrLen = Len(pString)

' calculate the position where we should start looking
to see if the KeyWord is in the string
StartPos = KeyPos + Len(NewKeyWord)

' check to see where the next occurence of the keyword
to replace is in the string
KeyPos = InStr(StartPos, pString, Keyword)
Wend

' return the string
ReplaceString = pString

End Function

Le besoin exacte c'est que je veux remplacer tous les VBLF
par un VBcrlf... La chaine comporte quelque 500000
charactère... vu qu'elle provient d'un Line Input d'un
fichier. Quelqu'un à une meilleur méthode de recherche
remplace que celle présentée si dessous?

Merci

Bonsoir,

Plutôt que d'une fonction adaptée à une cellule en particulier,
tu as besoin de l'équivalent d'un Rechercher/Remplacer :

Sub Macro2()
Cells.Replace What:=vbLf, Replacement:=vbCrLf, LookAt:=xlPart
End Sub

NB - Cells.Replace doit être sur une seule ligne, qui com-
mence par "Cells" et se termine par "xlPart".

Bonjour à tous...

Je sais qu'il existe une fonction remplace dans VB afin de
remplacer dans un String tel caractère par un autre. Par
contre il semble que dans VBA pour la suite de travail
Excel 97 n'existe pas malheureusement.

J'ai trouvé quelque fonction pré-écrite sur internet...
par contre ca semble être assez peu performant comme
code...

Public Function ReplaceString(ByVal pString As String,
ByVal Keyword As String, ByVal NewKeyWord As String) As
String
Dim StrLen As Long
Dim StrOut As String
Dim KeyPos As Long
Dim StrLenChange As Boolean

' set a few values before we go any further
StartPos = 1
StrLen = Len(pString)

' if the word to replace and the word to replace by are
different lengths, record that they are
If Len(Keyword) <> Len(NewKeyWord) Then StrLenChange > True

' check to see where the first occurence of the keyword
to replace is in the string
KeyPos = InStr(StartPos, pString, Keyword)

' only do the replace loop if the keyword string is there
While KeyPos > 0
' rebuild the string, taking out the keyword and
replacing it with the NewKeyword
pString = Left(pString, KeyPos - 1) & NewKeyWord & MID
(pString, KeyPos + Len(Keyword), StrLen - KeyPos - Len
(Keyword) + 1)

' if the Keyword and NewKeyword as different lengths
then recalc the length of the string
If StrLenChange Then StrLen = Len(pString)

' calculate the position where we should start looking
to see if the KeyWord is in the string
StartPos = KeyPos + Len(NewKeyWord)

' check to see where the next occurence of the keyword
to replace is in the string
KeyPos = InStr(StartPos, pString, Keyword)
Wend

' return the string
ReplaceString = pString

End Function

Le besoin exacte c'est que je veux remplacer tous les VBLF
par un VBcrlf... La chaine comporte quelque 500000
charactère... vu qu'elle provient d'un Line Input d'un
fichier. Quelqu'un à une meilleur méthode de recherche
remplace que celle présentée si dessous?

Merci

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Salut Mary.

Pour ne pas diminuer dramatiquement les performances, il semble qu'il faille
éviter de redimensionner inutilement une longue chaîne de caractères ou de
modifier inutilement de longs segments d'une chaîne de caractères.

Voici comment on peut modifier le plus court segment possible d'une chaîne
de caractères.

Public Function RemplacerString2(ByVal pString As String, _
ByVal MotCle As String, ByVal NouveauMotCle As String) As _
String

Dim DebutPstring As Long
Dim DebutResultat As Long

Dim Occurences As Long
Dim DifferenceDeLongueur As Long
Dim str_resultat As String

Dim b As Long
Dim reste As Long
Dim strTmp As String

Dim l As Long

DebutPstring = 1
Occurences = 0
While InStr(DebutPstring, pString, MotCle) > 0
Occurences = Occurences + 1
DebutPstring = InStr(DebutPstring, pString, MotCle) + 1
Wend

DifferenceDeLongueur = Len(NouveauMotCle) - Len(MotCle)
str_resultat = Space(Len(pString) + Occurences * DifferenceDeLongueur)

DebutPstring = 1
DebutResultat = 1

b = InStr(DebutPstring, pString, MotCle)
reste = Len(pString) - b
While b > 0
strTmp = Mid(pString, DebutPstring, b - DebutPstring) & NouveauMotCle
l = Len(strTmp)

Mid(str_resultat, DebutResultat, l) = strTmp
DebutResultat = DebutResultat + l
DebutPstring = b + Len(MotCle)

reste = Len(pString) - b - Len(MotCle) + 1
b = InStr(DebutPstring, pString, MotCle)
Wend

If DebutResultat <= Len(str_resultat) Then
l = Len(Right(pString, reste))
Mid(str_resultat, DebutResultat, l) = Right(pString, reste)
End If

RemplacerString2 = str_resultat

End Function

gb


"Mary" <anonymous@discussions.microsoft.com> wrote in message
news:00e801c3b065$4a756960$a501280a@phx.gbl...
Bonjour à tous...

Je sais qu'il existe une fonction remplace dans VB afin de
remplacer dans un String tel caractère par un autre. Par
contre il semble que dans VBA pour la suite de travail
Excel 97 n'existe pas malheureusement.

J'ai trouvé quelque fonction pré-écrite sur internet...
par contre ca semble être assez peu performant comme
code...


Public Function ReplaceString(ByVal pString As String,
ByVal Keyword As String, ByVal NewKeyWord As String) As
String
Dim StrLen As Long
Dim StrOut As String
Dim KeyPos As Long
Dim StrLenChange As Boolean

' set a few values before we go any further
StartPos = 1
StrLen = Len(pString)

' if the word to replace and the word to replace by are
different lengths, record that they are
If Len(Keyword) <> Len(NewKeyWord) Then StrLenChange True

' check to see where the first occurence of the keyword
to replace is in the string
KeyPos = InStr(StartPos, pString, Keyword)

' only do the replace loop if the keyword string is there
While KeyPos > 0
' rebuild the string, taking out the keyword and
replacing it with the NewKeyword
pString = Left(pString, KeyPos - 1) & NewKeyWord & MID
(pString, KeyPos + Len(Keyword), StrLen - KeyPos - Len
(Keyword) + 1)

' if the Keyword and NewKeyword as different lengths
then recalc the length of the string
If StrLenChange Then StrLen = Len(pString)

' calculate the position where we should start looking
to see if the KeyWord is in the string
StartPos = KeyPos + Len(NewKeyWord)

' check to see where the next occurence of the keyword
to replace is in the string
KeyPos = InStr(StartPos, pString, Keyword)
Wend

' return the string
ReplaceString = pString

End Function

Le besoin exacte c'est que je veux remplacer tous les VBLF
par un VBcrlf... La chaine comporte quelque 500000
charactère... vu qu'elle provient d'un Line Input d'un
fichier. Quelqu'un à une meilleur méthode de recherche
remplace que celle présentée si dessous?

Merci

Salut,

Il faudrait prévoir le cas où MotCle est vide et sortir gracieusement.
C'est vrai aussi de la fonction ReplaceString publiée initialement.

Salutations,

Daniel M.

Salut Daniel.
Bonne idée.

Public Function RemplacerString2(ByVal pString As String, _
ByVal MotCle As String, ByVal NouveauMotCle As String) As _
String

'La variable pString et la variable MotCle ne peuvent être vides
If pString = "" Or MotCle = "" Then
RemplacerString2 = pString
Exit Function
End If

Dim DebutPstring As Long
Dim DebutResultat As Long

Dim Occurences As Long
Dim DifferenceDeLongueur As Long
Dim str_resultat As String

Dim b As Long
Dim reste As Long
Dim strTmp As String

Dim l As Long

DebutPstring = 1
Occurences = 0
While InStr(DebutPstring, pString, MotCle) > 0
Occurences = Occurences + 1
DebutPstring = InStr(DebutPstring, pString, MotCle) + 1
Wend

DifferenceDeLongueur = Len(NouveauMotCle) - Len(MotCle)
str_resultat = Space(Len(pString) + Occurences * DifferenceDeLongueur)

DebutPstring = 1
DebutResultat = 1

b = InStr(DebutPstring, pString, MotCle)
reste = Len(pString) - b
While b > 0
strTmp = Mid(pString, DebutPstring, b - DebutPstring) & NouveauMotCle
l = Len(strTmp)

Mid(str_resultat, DebutResultat, l) = strTmp
DebutResultat = DebutResultat + l
DebutPstring = b + Len(MotCle)

reste = Len(pString) - b - Len(MotCle) + 1
b = InStr(DebutPstring, pString, MotCle)
Wend

If DebutResultat <= Len(str_resultat) Then
l = Len(Right(pString, reste))
Mid(str_resultat, DebutResultat, l) = Right(pString, reste)
End If

RemplacerString2 = str_resultat

End Function

"Daniel.M" <prenom.maher@bigfoot.inutil.com> wrote in message
news:ugdWvcRsDHA.3468@TK2MSFTNGP11.phx.gbl...

Salut,

Il faudrait prévoir le cas où MotCle est vide et sortir gracieusement.
C'est vrai aussi de la fonction ReplaceString publiée initialement.

Salutations,

Daniel M.