Un petit algo sympa et très pratique au niveau de la maitenance. Les caractères a enlevés étant placés dans une chaine
Source / Exemple :
Public Function Remplace(ByVal strChaine As String) As String
Dim caracteres() As String 'Tableau contenant les caractères à supprimer
Dim chaine, separateur As String 'la chaine de caractère et le séparateur
Dim n As Integer ' variable de boucle
separateur = "f;f" 'on fixe le séparateur
'On fabrique la chaine de caractere a supprimer : caractere & separateur
chaine = "--" & separateur
'on splitte la chaine dans le tableau sur le séparateur
caracteres() = Split(chaine, separateur)
'On teste la chaine
If Len(strChaine) < 0 Then Exit Function
'On opère les modifications
For n = 0 To UBound(caracteres)
strChaine = Replace(strChaine, caracteres(n), " ")
Next n
'La nouvelle chaine
Remplace = Replace(strChaine, " ", " ")
End Function
Conclusion :
On passe une chaine de caratère a la fonction.
Dans la fonction on définit:
-un séparateur sous forme de chaine de caratères.
-la chaine de caractère a remplacer sous la forme : caractères & separateur
Ensuite le traitement s'opère avec decomposition de la chaine en tableau, puis remplacement dans la chaine.
Enfin on supprime les espaces supperflus et on renvoie la chaine epurée
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.