Discussion :

[femtoserv]

Bonjour,

Voici mon problème:
J'aimerais supprimer certains caractères d'une chaine par exemple sur cette chaine:"P058/abc.bidulle", j'aimerais la transformer en "P058abcbidulle" donc supprimer les "/" et"." tout en gardant l'ordre des autres caractères.

Merci pour votre aide.

Femtoserv

[cbleas]

Bonjour,

Il suffit d'utiliser la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Str=replace("P058/abc.bidulle","/","", , , vbTextCompare)
str=replace(str,".","", , , vbTextCompare)

[Faw]

Ou directement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Y = Replace(Replace(Champ, "/", ""), ".", "")

[femtoserv]

Ok merci

[cafeine]

Hello,

une fonction qui peut être utile :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function ReplaceArray(ByVal strExp As String, _
                      ByVal strToFind As Variant, _
                      ByVal strToReplace As Variant) As String
Dim i As Long
 
If IsArray(strToFind) And IsArray(strToReplace) Then
    If UBound(strToFind) = UBound(strToReplace) Then
        For i = 0 To UBound(strToFind)
            strExp = Replace(strExp, strToFind(i), strToReplace(i))
        Next i
        ReplaceArray = strExp
    Else
        ReplaceArray = vbNullString
    End If
Else
    ReplaceArray = Replace(strExp, strToFind, strToReplace)
End If
End Function

qui permet de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

replaceArray(Champ, Array("-","/"), Array("",""))

[femtoserv]

d'acc merci

[Faw]

Salut,
Sympathique moulinette!!!

On remplace ce qu'on veut par ce qu'on veut sans imbriquer les replace.
Le code devient intuitif.