OVH Cloud OVH Cloud

replace

10 réponses
Avatar
Misange
coucou
je voudrais utiliser la fonction replace (en VBA) pour faire une
recherche *exacte*.
Je veux remplacer \\ par \\\
mais que \" reste "\
une petite idée ?
merci :-*
--
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

10 réponses

Avatar
isabelle
hello,

je pas sur, est ce comme ça, ça va ?

Selection.Replace What:="", Replacement:="", LookAt:=xlPart

isabelle


coucou
je voudrais utiliser la fonction replace (en VBA) pour faire une
recherche *exacte*.
Je veux remplacer par
mais que " reste "
une petite idée ?
merci :-*
--
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


Avatar
Misange
précision la fonction que j'utilise aujourd'hui pour faire cela est la
suivante :

Function RemplacerPhp(txt)
'misange 2002
Dim T
txt = Trim(txt)
Dim tablo()
tablo = Array("", "'", "(", ")", """")
For T = 0 To UBound(tablo)
txt = Replace(txt, tablo(T), "" & tablo(T), 1)
Next T
RemplacerPhp = txt
End Function

qui me permet de remplacer ' par ' " par " et par
mis pour des tas de raisons compliquées maintenant je dois remplacer
par sans toucher aux autres remplacements. et c'est là que je coince...

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 12/11/2004 22:06:
coucou
je voudrais utiliser la fonction replace (en VBA) pour faire une
recherche *exacte*.
Je veux remplacer par
mais que " reste "
une petite idée ?
merci :-*


Avatar
Misange
salut Isabelle,
et pour l'intégrer dans une fonction ?
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 12/11/2004 22:14:
hello,

je pas sur, est ce comme ça, ça va ?

Selection.Replace What:="", Replacement:="", LookAt:=xlPart

isabelle


coucou
je voudrais utiliser la fonction replace (en VBA) pour faire une
recherche *exacte*.
Je veux remplacer par
mais que " reste "
une petite idée ?
merci :-*
--
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta




Avatar
Patrick Fredin
Bonjour,

Je pense qu'il ne risque pas de remplacer "" par autre chose puisqu'il
cherche "". Voici un exemple qui le prouve (à tester en débogage) :

Sub Test()
Dim a
a = "un"
a = Replace(a, "", "")
End Sub

"a" ne change pas.

Cordialement.

--
Patrick

"Misange" wrote in message
news:
coucou
je voudrais utiliser la fonction replace (en VBA) pour faire une recherche
*exacte*.
Je veux remplacer par
mais que " reste "
une petite idée ?
merci :-*
--
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


Avatar
Misange
merci Patrick
Tu as tout à fait raison, je cherchais midi à 14h, il me suffit de faire
le truc en 2 temps : remplacer par puis par ! Merci de vos
aides. Ca roule
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 12/11/2004 22:26:
Bonjour,

Je pense qu'il ne risque pas de remplacer "" par autre chose puisqu'il
cherche "". Voici un exemple qui le prouve (à tester en débogage) :

Sub Test()
Dim a
a = "un"
a = Replace(a, "", "")
End Sub

"a" ne change pas.

Cordialement.



Avatar
docm
Bonjour Misange.

La façon de faire pour remplacer par sans toucher 'a serait de
remplacer temporairement par autre chose comme !? ou ~?, ensuite
remplacer par , puis finalement annuler le remplacement original de
par !?

Qu'en penses-tu?

"Misange" wrote in message
news:
précision la fonction que j'utilise aujourd'hui pour faire cela est la
suivante :

Function RemplacerPhp(txt)
'misange 2002
Dim T
txt = Trim(txt)
Dim tablo()
tablo = Array("", "'", "(", ")", """")
For T = 0 To UBound(tablo)
txt = Replace(txt, tablo(T), "" & tablo(T), 1)
Next T
RemplacerPhp = txt
End Function

qui me permet de remplacer ' par ' " par " et par
mis pour des tas de raisons compliquées maintenant je dois remplacer
par sans toucher aux autres remplacements. et c'est là que je
coince...


Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 12/11/2004 22:06:
coucou
je voudrais utiliser la fonction replace (en VBA) pour faire une
recherche *exacte*.
Je veux remplacer par
mais que " reste "
une petite idée ?
merci :-*




Avatar
isabelle
Misange, pourquoi ne pas utilisé substutue,

Function Remplacer(plg As Range) As String
Remplacer = Evaluate("=SUBSTITUTE(" & plg.Address & ","""","""",1)")
End Function

isabelle


salut Isabelle,
et pour l'intégrer dans une fonction ?
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

on 12/11/2004 22:14:
hello,

je pas sur, est ce comme ça, ça va ?

Selection.Replace What:="", Replacement:="", LookAt:=xlPart

isabelle


coucou
je voudrais utiliser la fonction replace (en VBA) pour faire une
recherche *exacte*.
Je veux remplacer par
mais que " reste "
une petite idée ?
merci :-*
--
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta






Avatar
Misange
Je regarde ça (demain !) mais c'eszt une bonne idée.
Bisous ma geolière préférée ;-)

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

on 12/11/2004 22:56:
Misange, pourquoi ne pas utilisé substutue,

Function Remplacer(plg As Range) As String
Remplacer = Evaluate("=SUBSTITUTE(" & plg.Address & ","""","""",1)")
End Function

isabelle


salut Isabelle,
et pour l'intégrer dans une fonction ?
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

on 12/11/2004 22:14:

hello,

je pas sur, est ce comme ça, ça va ?

Selection.Replace What:="", Replacement:="", LookAt:=xlPart

isabelle



coucou
je voudrais utiliser la fonction replace (en VBA) pour faire une
recherche *exacte*.
Je veux remplacer par
mais que " reste "
une petite idée ?
merci :-*
--
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta








Avatar
AV
Je pense qu'il ne risque pas de remplacer "" par autre chose puisqu'il
cherche "". Voici un exemple qui le prouve (à tester en débogage) :

Sub Test()
Dim a
a = "un"
a = Replace(a, "", "")
End Sub



Et si ---> a = "un"

;-)
AV

Avatar
Misange
Bonjour Alain,
j'ai paré au plus pressé pour le moment mais je n'ai pas encore tout
résolu...
J'avais oublié que dans les chemins de lecteurs réseau il y a des
grrrr (j'ai même pas encore fait les essais pour voiir comment les
écrire dan mon fichier php pour qu'ils soient bien vus de cette façon
sur le site. Pour le moment c'est lu comme (pas genant du tout pour
ceux qui recopient les proc !!!)

Je sais pas ce qu'ils ont foutu sur online mais ma petite fonction elle
marchait au poil avant... Ca fait quelques semaines que j'ai vu qu'il y
avait ce pb..

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 13/11/2004 08:57:
Je pense qu'il ne risque pas de remplacer "" par autre chose puisqu'il
cherche "". Voici un exemple qui le prouve (à tester en débogage) :



Sub Test()
Dim a
a = "un"
a = Replace(a, "", "")
End Sub




Et si ---> a = "un"

;-)
AV