XL 2016 Transformer texte en nombre

[KTM]

Bonsoir chers tous
Jai une plage de donnees "A5:U400"
Cette plage contient des donnees formatees type texte.( exemple 9.4 7.8 10 3.8 ........)
Je voudrais par macro convertir cette plage au format nombre.
Merci....

 

[mapomme]

Bonsoir @KTM ,

Essayer :

Sub test()
Dim t, x
  t = Range("a5:u500")
  For Each x In t: x = Val(x): Next x
  Range("a5:u500") = t
End Sub

 

[KTM]

Bonsoir @KTM ,

Essayer :

Sub test()
Dim t, x
  t = Range("a5:u500")
  For Each x In t: x = Val(x): Next x
  Range("a5:u500") = t
End Sub

Merci infiniment!!!!

 

[KTM]

Bonsoir @KTM ,

Essayer :

Sub test()
Dim t, x
  t = Range("a5:u500")
  For Each x In t: x = Val(x): Next x
  Range("a5:u500") = t
End Sub

J'ai essayé mais le code ne donne pas le résultat voulu.
Je joins un fichier test. Merci...

 

[TooFatBoy]

Bonjour,

A tester :

Sub test
    For Each MaCellule In ActiveSheet.Range("B1:H20")
        MaCellule.Value = Val(Replace(MaCellule.Value, ",", "."))
    Next
End sub

 

[KTM]

Bonjour,

A tester :

Sub test
    For Each MaCellule In ActiveSheet.Range("B1:H20")
        MaCellule.Value = Val(Replace(MaCellule.Value, ",", "."))
    Next
End sub

merci.....

 

[TooFatBoy]

De rien.....

 

[mapomme]

Re,

Et pourtant chez moi ça fonctionne...

 

[Nicolas JACQUIN]

Bonjour à tous,
Juste pour voir

Sub test()
  Range("A5:U400").NumberFormat = "0.00"
End Sub

 

[TooFatBoy]

Et pourtant chez moi ça fonctionne...

Un simple Copier/Coller semble même suffire. 🤔

Sub test()
    t = Range("B1:H20"): Range("B1:H20") = t
End Sub

 

[Staple1600]

Bonjour le fil, le forum

Sans macro, à la mano
CTRL+H
Remplacer : .
par : ,
fait également le job, non ?

Ce qui se résumerait à pour les musophobes à
CTRL+A
CTRL+H
.
,
ALT+A
ENTER

😉

 

[KTM]

Re,

Et pourtant chez moi ça fonctionne...

Merci c'est OK !!!