supprimer un caractère

6 réponses

Xavier POWAGA

13/03/2006 à 19:45

bonjour à tous,
ne connaitriez vous pas une fonction qui retire à un string un charactère
spécifique. Je dois en effet pour résoudre mon problème, retirer dans mes
chaines de charactères l'underscore.
Ainsi si ma chaîne=" aujourd'hui_____il fait beau" je veux avoir
"aujourd'hui il fait beau"

merci d'avance pour vos idées

6 réponses

Francois

13/03/2006 à 20:08

bonjour à tous,
ne connaitriez vous pas une fonction qui retire à un string un charactère
spécifique. Je dois en effet pour résoudre mon problème, retirer dans mes
chaines de charactères l'underscore.
Ainsi si ma chaîne=" aujourd'hui_____il fait beau" je veux avoir
"aujourd'hui il fait beau"

Bonsoir,

=SUBSTITUE(A1;"_";)

supprimera tous les caractères _ (underscore)

--
François L

Xavier POWAGA

13/03/2006 à 20:32

merci françois mais j'ai oublié de poser une condition importante. Il faut
que cela soit traité en VBA

"Francois" a écrit dans le message de news:

bonjour à tous,
ne connaitriez vous pas une fonction qui retire à un string un charactère
spécifique. Je dois en effet pour résoudre mon problème, retirer dans mes
chaines de charactères l'underscore.
Ainsi si ma chaîne=" aujourd'hui_____il fait beau" je veux avoir
"aujourd'hui il fait beau"

Bonsoir,

=SUBSTITUE(A1;"_";)

supprimera tous les caractères _ (underscore)

--
François L

Francois

13/03/2006 à 20:54

merci françois mais j'ai oublié de poser une condition importante. Il faut
que cela soit traité en VBA

Re,

Alors, fonction à adapter

Function nounderscore(cel As String)
nounderscore = Application.WorksheetFunction.Substitute(cel, "_", "")
End Function

--
François L

lSteph

13/03/2006 à 21:45

Bonsoir Xavier,

Function rplc(machaine As String)
Dim mch As String

For i = Len(machaine) To 1 Step -1
Do While Len(mch) < i
mch = mch & "_"
Loop
machaine = Application.WorksheetFunction.Substitute(machaine, mch, " ")
mch = ""
Next i
rplc = machaine
End Function

'lSteph
"Xavier POWAGA" a écrit dans le message de news:
4415bddb$0$8004$

bonjour à tous,
ne connaitriez vous pas une fonction qui retire à un string un charactère
spécifique. Je dois en effet pour résoudre mon problème, retirer dans mes
chaines de charactères l'underscore.
Ainsi si ma chaîne=" aujourd'hui_____il fait beau" je veux avoir
"aujourd'hui il fait beau"

merci d'avance pour vos idées

lSteph

13/03/2006 à 22:31

..tu dis supprimer dans le sujet mais dans l'exemple tu sembles vouloir
remplacer les "_"par un espace
pour obtenir "aujourd'hui il fait beau" et non "aujourd'huiil fait beau"
j'en ai donc tenu compte sinon ce serait bien plus simplement ce que proposé
par François.

lSteph

"lSteph" a écrit dans le message de news:

Bonsoir Xavier,

Function rplc(machaine As String)
Dim mch As String

For i = Len(machaine) To 1 Step -1
Do While Len(mch) < i
mch = mch & "_"
Loop
machaine = Application.WorksheetFunction.Substitute(machaine, mch, " ")
mch = ""
Next i
rplc = machaine
End Function

'lSteph
"Xavier POWAGA" a écrit dans le message de news:
4415bddb$0$8004$
bonjour à tous,
ne connaitriez vous pas une fonction qui retire à un string un charactère
spécifique. Je dois en effet pour résoudre mon problème, retirer dans mes
chaines de charactères l'underscore.
Ainsi si ma chaîne=" aujourd'hui_____il fait beau" je veux avoir
"aujourd'hui il fait beau"

merci d'avance pour vos idées

Xavier POWAGA

13/03/2006 à 22:49

merci françois et j'en profite pour dire aussi merci à LSteph.

ça marche nickel

"Francois" a écrit dans le message de news:
%

merci françois mais j'ai oublié de poser une condition importante. Il
faut que cela soit traité en VBA

Re,

Alors, fonction à adapter

Function nounderscore(cel As String)
nounderscore = Application.WorksheetFunction.Substitute(cel, "_", "")
End Function

--
François L

supprimer un caractère

6 réponses

Veuillez sélectionner un problème