Bonjour à tous
J'ai une plage de cellule avec des chiffres à 5 décimale, je souhaite créer
une macro pour supprimer les 4 chiffres après la décimales. Je ne veux pas
le faire avec format de cellule mais je veux les supprimer et ne garder
qu'un chiffre. (Voir Fichier ci joint http://cjoint.com/?hmlPFfgvxf)
Merci de votre aide.
H
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JP25
Bonjour, Sub Macro1() x = 1 For Each c In [a1:a10] c = Round(Cells(1, 1), 1) Cells(x, 1) = c x = x + 1 Next End Sub
-- Cordialement JP25
"Hicham Oudrhiri" a écrit dans le message de news: %
Bonjour à tous J'ai une plage de cellule avec des chiffres à 5 décimale, je souhaite créer une macro pour supprimer les 4 chiffres après la décimales. Je ne veux pas le faire avec format de cellule mais je veux les supprimer et ne garder qu'un chiffre. (Voir Fichier ci joint http://cjoint.com/?hmlPFfgvxf) Merci de votre aide. H
Bonjour,
Sub Macro1()
x = 1
For Each c In [a1:a10]
c = Round(Cells(1, 1), 1)
Cells(x, 1) = c
x = x + 1
Next
End Sub
--
Cordialement
JP25 NoSpam-jpmonnier@tele2.fr
"Hicham Oudrhiri" <hichamoudrhiri@yahoo.fr> a écrit dans le message de news:
%23TUZxjGxHHA.1164@TK2MSFTNGP02.phx.gbl...
Bonjour à tous
J'ai une plage de cellule avec des chiffres à 5 décimale, je souhaite
créer une macro pour supprimer les 4 chiffres après la décimales. Je ne
veux pas le faire avec format de cellule mais je veux les supprimer et ne
garder qu'un chiffre. (Voir Fichier ci joint
http://cjoint.com/?hmlPFfgvxf)
Merci de votre aide.
H
Bonjour, Sub Macro1() x = 1 For Each c In [a1:a10] c = Round(Cells(1, 1), 1) Cells(x, 1) = c x = x + 1 Next End Sub
-- Cordialement JP25
"Hicham Oudrhiri" a écrit dans le message de news: %
Bonjour à tous J'ai une plage de cellule avec des chiffres à 5 décimale, je souhaite créer une macro pour supprimer les 4 chiffres après la décimales. Je ne veux pas le faire avec format de cellule mais je veux les supprimer et ne garder qu'un chiffre. (Voir Fichier ci joint http://cjoint.com/?hmlPFfgvxf) Merci de votre aide. H
For Each c In Selection c.Value = Int(c * 10) / 10 Next c
avec arrondi:
For Each c In Selection c.Value = Round(c, 1) Next c
JB On 12 juil, 11:47, "Hicham Oudrhiri" wrote:
Bonjour à tous J'ai une plage de cellule avec des chiffres à 5 décimale, je souhaite créer une macro pour supprimer les 4 chiffres après la décimales. Je ne veu x pas le faire avec format de cellule mais je veux les supprimer et ne garder qu'un chiffre. (Voir Fichier ci joint http://cjoint.com/?hmlPFfgvxf) Merci de votre aide. H
Bonjour,
Sélectionner le champ à convertir:
For Each c In Selection
c.Value = Int(c * 10) / 10
Next c
avec arrondi:
For Each c In Selection
c.Value = Round(c, 1)
Next c
JB
On 12 juil, 11:47, "Hicham Oudrhiri" <hichamoudrh...@yahoo.fr> wrote:
Bonjour à tous
J'ai une plage de cellule avec des chiffres à 5 décimale, je souhaite créer
une macro pour supprimer les 4 chiffres après la décimales. Je ne veu x pas
le faire avec format de cellule mais je veux les supprimer et ne garder
qu'un chiffre. (Voir Fichier ci joint http://cjoint.com/?hmlPFfgvxf)
Merci de votre aide.
H
For Each c In Selection c.Value = Int(c * 10) / 10 Next c
avec arrondi:
For Each c In Selection c.Value = Round(c, 1) Next c
JB On 12 juil, 11:47, "Hicham Oudrhiri" wrote:
Bonjour à tous J'ai une plage de cellule avec des chiffres à 5 décimale, je souhaite créer une macro pour supprimer les 4 chiffres après la décimales. Je ne veu x pas le faire avec format de cellule mais je veux les supprimer et ne garder qu'un chiffre. (Voir Fichier ci joint http://cjoint.com/?hmlPFfgvxf) Merci de votre aide. H