En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1218225 visiteurs

 10 visiteurs en ligne

Nous contacter

Contact

Remplacer une caractère

Remplacer un ou plusieurs caractères

Alternative à la fonction 'Replace" apparue avec Access 2000
 

Function fReplace(ByVal strValue As String, _
                  ByVal strToReplace As String, _
                  ByVal strReplaceValue As String) As String
    Dim Position As Integer

    Position = InStr(strValue, strToReplace)

    Do While Position > 0
        strValue = Left(strValue, Position - 1) & strReplaceValue _
                   & Mid(strValue, Position + Len(strToReplace))
        Position = InStr(Position + Len(strReplaceValue), _
                         strValue, strToReplace, vbTextCompare)
    Loop

    fReplace = strValue

End Function


Catégorie : Les mémos - String
Page lue 8304 fois

Vous êtes ici :   Accueil » Remplacer une caractère