Tables
Formulaires
Automation
Administration
Envoyer un mail
Outlook
Dates - Heures
Fichiers
Références
La normalisation
VBA
1008410 visiteurs
3 visiteurs en ligne
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