OVH Cloud OVH Cloud

Remplacement...

9 réponses
Avatar
Manu
Bonjour,

J'ai demandé dans une macro de me rempacer ² par rien
Selection.Replace What:="²", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Et ca ne fonctionne pas du tout, et pourtant si je le fais manuellement par
le biais de edition / remplacer ca marche et c'est comme ca que je l'ai fait
par l'enregisteur macro... etrange non. Il faut tout de meme préciser que le
² se trouve avant le = d'une formule pour que ce soit du texte (je ne
pouvait pas mettre d'apostrophe) et en l'otant je souhaite que la formule
soit à nouveau formule.

Avez vous une idée.
Merci

Manu

9 réponses

Avatar
Céline
vaguement (je n'utilise pas replace):
ca vient peut-être de ton
Selection.
il faudrait au préalable que tu sélectionnes correctement l'ensemble
des cellules auxquelles tu ve appliquer ta macro
donc juste avant ton code :
Worksheets(1).range("A1:A100").select ?

ex :
sub MaMacro ()
Worksheets(2).Range("A1:F40").Select
Selection.Replace What:="e", Replacement:="truc", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse,
_
ReplaceFormat:úlse
End Sub

chez moi ça marche.....
'n'journée

Manu wrote:
Bonjour,

J'ai demandé dans une macro de me rempacer ² par rien
Selection.Replace What:="²", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úls e, _
ReplaceFormat:úlse
Et ca ne fonctionne pas du tout, et pourtant si je le fais manuellement p ar
le biais de edition / remplacer ca marche et c'est comme ca que je l'ai f ait
par l'enregisteur macro... etrange non. Il faut tout de meme préciser q ue le
² se trouve avant le = d'une formule pour que ce soit du texte (je ne
pouvait pas mettre d'apostrophe) et en l'otant je souhaite que la formule
soit à nouveau formule.

Avez vous une idée.
Merci

Manu


Avatar
Daniel
Bonjour.
Essaie :

Application.FindFormat.Font.Superscript = True
Cells.Replace What:="2", Replacement:="", LookAt:=xlPart, SearchOrder:=
_
xlByRows, MatchCase:úlse, SearchFormat:=True, ReplaceFormat:úlse

Cordialement.
Daniel
"Manu" a écrit dans le message de news:
O2Yy%
Bonjour,

J'ai demandé dans une macro de me rempacer ² par rien
Selection.Replace What:="²", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:úlse
Et ca ne fonctionne pas du tout, et pourtant si je le fais manuellement
par le biais de edition / remplacer ca marche et c'est comme ca que je
l'ai fait par l'enregisteur macro... etrange non. Il faut tout de meme
préciser que le ² se trouve avant le = d'une formule pour que ce soit du
texte (je ne pouvait pas mettre d'apostrophe) et en l'otant je souhaite
que la formule soit à nouveau formule.

Avez vous une idée.
Merci

Manu




Avatar
Manu
Rien à faire, je veux en fait retirer le ² de cela
²=RECHERCHEV(...............................) Et ca me parait sensé de faire
un remplacement du ² par rien etant donné que ca fonctionne manuellement

Ma selection est bonne, et j'ai essayé le code de daniel et toujours pas !
Je vous le dis c'est vraiment etrange !

Manu


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

Bonjour.
Essaie :

Application.FindFormat.Font.Superscript = True
Cells.Replace What:="2", Replacement:="", LookAt:=xlPart, SearchOrder:=
_
xlByRows, MatchCase:úlse, SearchFormat:=True,
ReplaceFormat:úlse

Cordialement.
Daniel
"Manu" a écrit dans le message de news:
O2Yy%
Bonjour,

J'ai demandé dans une macro de me rempacer ² par rien
Selection.Replace What:="²", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:úlse
Et ca ne fonctionne pas du tout, et pourtant si je le fais manuellement
par le biais de edition / remplacer ca marche et c'est comme ca que je
l'ai fait par l'enregisteur macro... etrange non. Il faut tout de meme
préciser que le ² se trouve avant le = d'une formule pour que ce soit du
texte (je ne pouvait pas mettre d'apostrophe) et en l'otant je souhaite
que la formule soit à nouveau formule.

Avez vous une idée.
Merci

Manu








Avatar
Céline
effectivement quand je reprends le _Replace_, on voit bien qu'il refuse
de remplacer quoi que ce soit par "" (sauf espace)
alors j'ai essayé la méthode du sioux (qui marche environ) :

Sub MaMacro()

Worksheets(1).Range("A1:D10").Select
Selection.Replace What:="²", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse,
_
ReplaceFormat:úlse
Worksheets(1).Range("D11").Select
Worksheets(1).Range("A1:D10").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:úlse


End Sub

hahaha que c'est simple
voila tout ce que je peux te conseiller à mon niveau... :s

Céline
Avatar
Daniel
?? Peux tu poster ton classeur sur www.cjoint.com ?
Daniel
"Manu" a écrit dans le message de news:
%23%235ac%
Rien à faire, je veux en fait retirer le ² de cela
²=RECHERCHEV(...............................) Et ca me parait sensé de
faire un remplacement du ² par rien etant donné que ca fonctionne
manuellement

Ma selection est bonne, et j'ai essayé le code de daniel et toujours pas !
Je vous le dis c'est vraiment etrange !

Manu


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

Bonjour.
Essaie :

Application.FindFormat.Font.Superscript = True
Cells.Replace What:="2", Replacement:="", LookAt:=xlPart,
SearchOrder:= _
xlByRows, MatchCase:úlse, SearchFormat:=True,
ReplaceFormat:úlse

Cordialement.
Daniel
"Manu" a écrit dans le message de news:
O2Yy%
Bonjour,

J'ai demandé dans une macro de me rempacer ² par rien
Selection.Replace What:="²", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:úlse
Et ca ne fonctionne pas du tout, et pourtant si je le fais manuellement
par le biais de edition / remplacer ca marche et c'est comme ca que je
l'ai fait par l'enregisteur macro... etrange non. Il faut tout de meme
préciser que le ² se trouve avant le = d'une formule pour que ce soit du
texte (je ne pouvait pas mettre d'apostrophe) et en l'otant je souhaite
que la formule soit à nouveau formule.

Avez vous une idée.
Merci

Manu












Avatar
Manu
le voici : http://cjoint.com/?jmmTS0vrXq

C'est trop bizarre...

Merci
Manu

"Daniel" a écrit dans le message de news:
%
?? Peux tu poster ton classeur sur www.cjoint.com ?
Daniel
"Manu" a écrit dans le message de news:
%23%235ac%
Rien à faire, je veux en fait retirer le ² de cela
²=RECHERCHEV(...............................) Et ca me parait sensé de
faire un remplacement du ² par rien etant donné que ca fonctionne
manuellement

Ma selection est bonne, et j'ai essayé le code de daniel et toujours pas
! Je vous le dis c'est vraiment etrange !

Manu


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

Bonjour.
Essaie :

Application.FindFormat.Font.Superscript = True
Cells.Replace What:="2", Replacement:="", LookAt:=xlPart,
SearchOrder:= _
xlByRows, MatchCase:úlse, SearchFormat:=True,
ReplaceFormat:úlse

Cordialement.
Daniel
"Manu" a écrit dans le message de news:
O2Yy%
Bonjour,

J'ai demandé dans une macro de me rempacer ² par rien
Selection.Replace What:="²", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:úlse
Et ca ne fonctionne pas du tout, et pourtant si je le fais manuellement
par le biais de edition / remplacer ca marche et c'est comme ca que je
l'ai fait par l'enregisteur macro... etrange non. Il faut tout de meme
préciser que le ² se trouve avant le = d'une formule pour que ce soit
du texte (je ne pouvait pas mettre d'apostrophe) et en l'otant je
souhaite que la formule soit à nouveau formule.

Avez vous une idée.
Merci

Manu
















Avatar
Manu
Ca ne fonctionne tjrs pas Céline, je te le dis, c'est trop bizarre... j'ai
mis plus bas le fichier joint
Manu

"Céline" a écrit dans le message de news:

effectivement quand je reprends le _Replace_, on voit bien qu'il refuse
de remplacer quoi que ce soit par "" (sauf espace)
alors j'ai essayé la méthode du sioux (qui marche environ) :

Sub MaMacro()

Worksheets(1).Range("A1:D10").Select
Selection.Replace What:="²", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse,
_
ReplaceFormat:úlse
Worksheets(1).Range("D11").Select
Worksheets(1).Range("A1:D10").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:úlse


End Sub

hahaha que c'est simple
voila tout ce que je peux te conseiller à mon niveau... :s

Céline
Avatar
AV
Sub zzz()
For Each c In [AA1:AD4]
c.FormulaLocal = Right(c, Len(c) - 1)
Next
End Sub

AV
Avatar
Manu
Quand je pense au temps que j'ai pris la dessus... ENFIN, c'est comme ca
qu'on apprend !!!
Merci

Manu

"AV" a écrit dans le message de news:
%
Sub zzz()
For Each c In [AA1:AD4]
c.FormulaLocal = Right(c, Len(c) - 1)
Next
End Sub

AV