XL 2016 Transformer texte en nombre

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Avril 2024

• #2

Bonsoir @KTM ,

Essayer :

VB:

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

 

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 19 Avril 2024

• #3

mapomme à dit:

Bonsoir @KTM ,

Essayer :

VB:

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

Cliquez pour agrandir...

Merci infiniment!!!!

 

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 19 Avril 2024

• #4

mapomme à dit:

Bonsoir @KTM ,

Essayer :

VB:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• TEST.xlsm

  16.5 KB · Affichages: 7

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 19 Avril 2024

• #5

Bonjour,

A tester :

VB:

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

 

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 19 Avril 2024

• #6

TooFatBoy à dit:

Bonjour,

A tester :

VB:

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

Cliquez pour agrandir...

merci.....

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 19 Avril 2024

• #7

De rien.....

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Avril 2024

• #8

Re,

Et pourtant chez moi ça fonctionne...

 

Pièces jointes

• KTM- v1.xlsm

  18.5 KB · Affichages: 6

Vote positif 0 Vote négatif

Nicos

XLDnaute Occasionnel

Supporter XLD

• 20 Avril 2024

• #9

Bonjour à tous,
Juste pour voir

VB:

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 20 Avril 2024

• #10

mapomme à dit:

Et pourtant chez moi ça fonctionne...

Cliquez pour agrandir...

Un simple Copier/Coller semble même suffire.

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Avril 2024

• #11

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

 

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 20 Avril 2024

• #12

mapomme à dit:

Re,

Et pourtant chez moi ça fonctionne...

Cliquez pour agrandir...

Merci c'est OK !!!

 

Vote positif 0 Vote négatif