KTM XLDnaute Impliqué 19 Avril 2024 #1 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....
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 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
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
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
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!!!!
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
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...
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
Bonjour, A tester : VB: Sub test For Each MaCellule In ActiveSheet.Range("B1:H20") MaCellule.Value = Val(Replace(MaCellule.Value, ",", ".")) Next End sub
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 à 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.....
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
Nicolas JACQUIN XLDnaute Impliqué 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
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
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
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 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