Discussion :

[kryssy]

Bonjour,
Je veux remplacer, dans une plage de donnée nommée "colonneremplacer", des points par des virgules pour obtenir des chiffres.
i.e.
Je veux remplacer des chiffres comme : 224.55 par des chiffres 224,50 pour qu'excel puisse faire des calculs dessus.

J'ai entré le code suivant :

Code :

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

1
2
3
Range("colonneremplacer").Replace What:=".", Replacement:=",", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
      ReplaceFormat:=False

Mon problème est le suivant : les points sont remplacés mais les chiffres restent au format texte et même en faisant : -> cellule -> format -> nombre, il reste toujours au format texte.

Quelqu'un aurait-il une idée ou une autre méthode ?

Merci d'avance pour l'aide apportée.

[fring]

Bonjour,

dans VBA la virgule des décimales étant représentée par un point, essaye ceci :

Code :

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

1
2
3
Range("colonneremplacer").Replace What:=".", Replacement:=".", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
      ReplaceFormat:=False

[babaothe]

salut

ou tout simplement comme vu dans une autre discussion aujourd'hui, utiliser une astuce du genre :

Code :

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

1
2
3
4
With Range("colonneremplacer")
    .NumberFormat = "#.##" '<<<=== ou le format nombre de son choix
    .Value = .Value ' <<=== pour forcer la mise à jour immédiate de l'affichage
End With

[kryssy]

Merci à vous deux pour vos réponses.

J'ai testé les deux réponses et elles fonctionnent toutes les deux.

Je retiens l'histoire du point dans vb cette astuce servira certainement par la suite.

Encore