Remplacement de . par , pour TDC

[Cyrille]

Bonjour et merci par avance pour tout coup de main.

Dans une macro j'ai un ensemble de traitements de données dans lequel je dois faire entre autre un tableau dynamique croisé.

Pour faire ce tableau je dois formater une colonne de chiffre pour remplacer les "." par des "," sinon après le TDC je récupère que des "1".

Si je fais cette manip à la main via "Edition/Remplacer" ca marche.

Qqand j'insère ma modif dans la macro par ces instructions :

Columns("E:E").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Ca marche pas, je récupère que des "1".

Une idée?

Merci

 

[@+Thierry]

Re Salut Cyrille, le Forum

Ici difficile de tester je suis en américain, et je ne peux pas basculer en FR...

Mais ces codes là me convertissent bien comme je veux...


Sub Separateur()
Columns("E:E").Replace ".", ","
End Sub


Sub SeparateurASCII()
Columns("E:E").Replace Chr(46), Chr(44)
End Sub

Sub SeparateurIntlSep()
Columns("E:E").Replace Chr(46), Application.International(xlDecimalSeparator)
End Sub


Je regarderai de chez moi en FR ce que çà peut donner...

@+Thierry

 

[Cyrille]

Ben dans mon cas en faite, le remplacement se fait bien mais un truc doit cloché. Mais je suis heureux de voir qu'il existe d'autre moyen pour le remplacement.

Car je comprenais pas pourquoi manuellement ca fonctionné et pas lorsque je le faisait en automatique. Maintenant si.

Au pire en passant par le mode ASCII je pense que ca doit marché je te dis ca.

Merci encore.

 

[Cyrille]

Si on sort les instruction du sub et end sub ca doit marché?

Parce que moi j'ai essayé de les inséré dans ma macro mais ca marche pas du tout ca ne change même pas le . en ,...

Je vais reessayé...

 

[Cyrille]

En faite dans le menu "Edition/remplacer" il y a deux case à cocher ou non .

Comment m'assurer que la commande que je lance les désactive...

Merci