Discussion :

[FCL31]

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 :

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
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"


.

[sabzzz]

bonjour FCL31,

utilise le code de ce cararactère spécial,

Code :

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

Range("C6") = Replace(Range("C6"), Chr(x), "-")

pour trouver la valeur de x, copie le cararactère spécial dans la cellule A1
et inscrit en A2 la formule:

Code :

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

=CODE(A1)

[FCL31]

Merci beaucoup

Sa marche NIKEL