"Replace" avec caractère spécial
Bonjour a tous
Voici mon problème:
Je copie une formule de calcule depuis Word (2003) dans laquelle il y a un "-" qui est un caractére spécial.
Dans mon fichier Excel j'ai la macro suivant qui me remplace certain caractère par des caractère qui peuvent être traité par Excel : par exemple "[" devient "(" afin de faire un calcul.
Voici le code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Sub Test()
Range("C6") = Replace(Range("B2"), " ", "")
Range("C6") = Replace(Range("C6"), "-", "-")
Range("C6") = Replace(Range("C6"), "×", "*")
Range("C6") = Replace(Range("C6"), "[", "(")
Range("C6") = Replace(Range("C6"), "]", ")")
Range("C6") = Replace(Range("C6"), ",", ".")
Range("C6").Select
ActiveCell.FormulaR1C1 = "=" & Range("C6").Text
Range("C6").Select
Range("C6").Select
Selection.Copy
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub |
Mon problème est que mon "-"en caractère spécial n'est pas remplacé par un "-" normal.
Y a t'il une solution ??
Pour information mon caractère spécial est un "Tiret demi-cadratin"
.
