Bonjour le Forum,
Après avoir recherché le sujet, je suis étonné de ne pas l'avoir trouvé.
J'ai lu du code VBA, des formules par cellule mais y a-t-il moyen de
convertir tout un tableau, apparemment arrondi par "format" mais présentant
(dans l'éditeur) quelques décimales, sans reconstruire le tableau avec des
formules.
Je pense à collage spécial...
Merci de vos avis.
--
René Delcourt
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
Daniel
Bonjour. A exécuter après avoir sélectionné la plage à arrondir :
Sub test1() Dim c As Range For Each c In Selection If Left(c.FormulaLocal, 1) = "=" Then c.FormulaLocal = "=ARRONDI(" & Right(c.FormulaLocal, _ Len(c.FormulaLocal) - 1) & ";)" Else If IsNumeric(c.Value) Then c.Value = Round(c.Value) End If Next c End Sub
Cordialement. Daniel "René Delcourt" a écrit dans le message de news:
Bonjour le Forum, Après avoir recherché le sujet, je suis étonné de ne pas l'avoir trouvé. J'ai lu du code VBA, des formules par cellule mais y a-t-il moyen de convertir tout un tableau, apparemment arrondi par "format" mais présentant (dans l'éditeur) quelques décimales, sans reconstruire le tableau avec des formules. Je pense à collage spécial... Merci de vos avis. -- René Delcourt
Bonjour.
A exécuter après avoir sélectionné la plage à arrondir :
Sub test1()
Dim c As Range
For Each c In Selection
If Left(c.FormulaLocal, 1) = "=" Then
c.FormulaLocal = "=ARRONDI(" & Right(c.FormulaLocal, _
Len(c.FormulaLocal) - 1) & ";)"
Else
If IsNumeric(c.Value) Then c.Value = Round(c.Value)
End If
Next c
End Sub
Cordialement.
Daniel
"René Delcourt" <rde@intras.ch> a écrit dans le message de news:
B8EC4B10-5BE2-43CB-B76C-67D179C8DBCD@microsoft.com...
Bonjour le Forum,
Après avoir recherché le sujet, je suis étonné de ne pas l'avoir trouvé.
J'ai lu du code VBA, des formules par cellule mais y a-t-il moyen de
convertir tout un tableau, apparemment arrondi par "format" mais
présentant
(dans l'éditeur) quelques décimales, sans reconstruire le tableau avec des
formules.
Je pense à collage spécial...
Merci de vos avis.
--
René Delcourt
Bonjour. A exécuter après avoir sélectionné la plage à arrondir :
Sub test1() Dim c As Range For Each c In Selection If Left(c.FormulaLocal, 1) = "=" Then c.FormulaLocal = "=ARRONDI(" & Right(c.FormulaLocal, _ Len(c.FormulaLocal) - 1) & ";)" Else If IsNumeric(c.Value) Then c.Value = Round(c.Value) End If Next c End Sub
Cordialement. Daniel "René Delcourt" a écrit dans le message de news:
Bonjour le Forum, Après avoir recherché le sujet, je suis étonné de ne pas l'avoir trouvé. J'ai lu du code VBA, des formules par cellule mais y a-t-il moyen de convertir tout un tableau, apparemment arrondi par "format" mais présentant (dans l'éditeur) quelques décimales, sans reconstruire le tableau avec des formules. Je pense à collage spécial... Merci de vos avis. -- René Delcourt
Michel Gaboly
Bonjour René et Daniel,
Autre option sans VBA :
Dans les préférences (Mac) ou les options (Win), dans la zone ou l'on glet "Calcul", dans les "Options de classeur", coche "Calcul avec la précision au form at affiché".
Pour tester,
- Crée un document vierge - Entre 12,345 dans une cellule - Fais la manip ci-dessus - Formate la cellule avec 2 décimales - Repasse au format standard
Le nombre est devenu 12,35.
Par sécurité fais la manip sur une copie de ton document, pour tout a rrondir aux formats affichés, puis décoche "Calcul avec la précision au format affiché" pour éviter de futures mauvais es surprises.
Garde l'ancien classeur comme sauvegarde si tu t'aperçois plus tard que tu as perdu des décimales que tu aurais voulu conserver.
Bonjour. A exécuter après avoir sélectionné la plage à arrondir :
Sub test1() Dim c As Range For Each c In Selection If Left(c.FormulaLocal, 1) = "=" Then c.FormulaLocal = "=ARRONDI(" & Right(c.FormulaLocal, _ Len(c.FormulaLocal) - 1) & ";)" Else If IsNumeric(c.Value) Then c.Value = Round(c.Value) End If Next c End Sub
Cordialement. Daniel "René Delcourt" a écrit dans le message de news:
Bonjour le Forum, Après avoir recherché le sujet, je suis étonné de ne pas l'avoi r trouvé. J'ai lu du code VBA, des formules par cellule mais y a-t-il moyen de convertir tout un tableau, apparemment arrondi par "format" mais présentant (dans l'éditeur) quelques décimales, sans reconstruire le tableau a vec des formules. Je pense à collage spécial... Merci de vos avis. -- René Delcourt
-- Cordialement,
Michel Gaboly www.gaboly.com
Bonjour René et Daniel,
Autre option sans VBA :
Dans les préférences (Mac) ou les options (Win), dans la zone ou l'on glet "Calcul",
dans les "Options de classeur", coche "Calcul avec la précision au form at affiché".
Pour tester,
- Crée un document vierge
- Entre 12,345 dans une cellule
- Fais la manip ci-dessus
- Formate la cellule avec 2 décimales
- Repasse au format standard
Le nombre est devenu 12,35.
Par sécurité fais la manip sur une copie de ton document, pour tout a rrondir aux formats affichés, puis décoche "Calcul
avec la précision au format affiché" pour éviter de futures mauvais es surprises.
Garde l'ancien classeur comme sauvegarde si tu t'aperçois plus tard que tu as perdu des décimales que tu aurais voulu
conserver.
Bonjour.
A exécuter après avoir sélectionné la plage à arrondir :
Sub test1()
Dim c As Range
For Each c In Selection
If Left(c.FormulaLocal, 1) = "=" Then
c.FormulaLocal = "=ARRONDI(" & Right(c.FormulaLocal, _
Len(c.FormulaLocal) - 1) & ";)"
Else
If IsNumeric(c.Value) Then c.Value = Round(c.Value)
End If
Next c
End Sub
Cordialement.
Daniel
"René Delcourt" <rde@intras.ch> a écrit dans le message de news:
B8EC4B10-5BE2-43CB-B76C-67D179C8DBCD@microsoft.com...
Bonjour le Forum,
Après avoir recherché le sujet, je suis étonné de ne pas l'avoi r trouvé.
J'ai lu du code VBA, des formules par cellule mais y a-t-il moyen de
convertir tout un tableau, apparemment arrondi par "format" mais
présentant
(dans l'éditeur) quelques décimales, sans reconstruire le tableau a vec des
formules.
Je pense à collage spécial...
Merci de vos avis.
--
René Delcourt
Dans les préférences (Mac) ou les options (Win), dans la zone ou l'on glet "Calcul", dans les "Options de classeur", coche "Calcul avec la précision au form at affiché".
Pour tester,
- Crée un document vierge - Entre 12,345 dans une cellule - Fais la manip ci-dessus - Formate la cellule avec 2 décimales - Repasse au format standard
Le nombre est devenu 12,35.
Par sécurité fais la manip sur une copie de ton document, pour tout a rrondir aux formats affichés, puis décoche "Calcul avec la précision au format affiché" pour éviter de futures mauvais es surprises.
Garde l'ancien classeur comme sauvegarde si tu t'aperçois plus tard que tu as perdu des décimales que tu aurais voulu conserver.
Bonjour. A exécuter après avoir sélectionné la plage à arrondir :
Sub test1() Dim c As Range For Each c In Selection If Left(c.FormulaLocal, 1) = "=" Then c.FormulaLocal = "=ARRONDI(" & Right(c.FormulaLocal, _ Len(c.FormulaLocal) - 1) & ";)" Else If IsNumeric(c.Value) Then c.Value = Round(c.Value) End If Next c End Sub
Cordialement. Daniel "René Delcourt" a écrit dans le message de news:
Bonjour le Forum, Après avoir recherché le sujet, je suis étonné de ne pas l'avoi r trouvé. J'ai lu du code VBA, des formules par cellule mais y a-t-il moyen de convertir tout un tableau, apparemment arrondi par "format" mais présentant (dans l'éditeur) quelques décimales, sans reconstruire le tableau a vec des formules. Je pense à collage spécial... Merci de vos avis. -- René Delcourt
-- Cordialement,
Michel Gaboly www.gaboly.com
René Delcourt
Merci pour ces 2 excellentes solutions. -- René Delcourt
Bonjour René et Daniel,
Autre option sans VBA :
Dans les préférences (Mac) ou les options (Win), dans la zone ou l'onglet "Calcul", dans les "Options de classeur", coche "Calcul avec la précision au format affiché".
Pour tester,
- Crée un document vierge - Entre 12,345 dans une cellule - Fais la manip ci-dessus - Formate la cellule avec 2 décimales - Repasse au format standard
Le nombre est devenu 12,35.
Par sécurité fais la manip sur une copie de ton document, pour tout arrondir aux formats affichés, puis décoche "Calcul avec la précision au format affiché" pour éviter de futures mauvaises surprises.
Garde l'ancien classeur comme sauvegarde si tu t'aperçois plus tard que tu as perdu des décimales que tu aurais voulu conserver.
Bonjour. A exécuter après avoir sélectionné la plage à arrondir :
Sub test1() Dim c As Range For Each c In Selection If Left(c.FormulaLocal, 1) = "=" Then c.FormulaLocal = "=ARRONDI(" & Right(c.FormulaLocal, _ Len(c.FormulaLocal) - 1) & ";)" Else If IsNumeric(c.Value) Then c.Value = Round(c.Value) End If Next c End Sub
Cordialement. Daniel "René Delcourt" a écrit dans le message de news:
Bonjour le Forum, Après avoir recherché le sujet, je suis étonné de ne pas l'avoir trouvé. J'ai lu du code VBA, des formules par cellule mais y a-t-il moyen de convertir tout un tableau, apparemment arrondi par "format" mais présentant (dans l'éditeur) quelques décimales, sans reconstruire le tableau avec des formules. Je pense à collage spécial... Merci de vos avis. -- René Delcourt
-- Cordialement,
Michel Gaboly www.gaboly.com
Merci pour ces 2 excellentes solutions.
--
René Delcourt
Bonjour René et Daniel,
Autre option sans VBA :
Dans les préférences (Mac) ou les options (Win), dans la zone ou l'onglet "Calcul",
dans les "Options de classeur", coche "Calcul avec la précision au format affiché".
Pour tester,
- Crée un document vierge
- Entre 12,345 dans une cellule
- Fais la manip ci-dessus
- Formate la cellule avec 2 décimales
- Repasse au format standard
Le nombre est devenu 12,35.
Par sécurité fais la manip sur une copie de ton document, pour tout arrondir aux formats affichés, puis décoche "Calcul
avec la précision au format affiché" pour éviter de futures mauvaises surprises.
Garde l'ancien classeur comme sauvegarde si tu t'aperçois plus tard que tu as perdu des décimales que tu aurais voulu
conserver.
Bonjour.
A exécuter après avoir sélectionné la plage à arrondir :
Sub test1()
Dim c As Range
For Each c In Selection
If Left(c.FormulaLocal, 1) = "=" Then
c.FormulaLocal = "=ARRONDI(" & Right(c.FormulaLocal, _
Len(c.FormulaLocal) - 1) & ";)"
Else
If IsNumeric(c.Value) Then c.Value = Round(c.Value)
End If
Next c
End Sub
Cordialement.
Daniel
"René Delcourt" <rde@intras.ch> a écrit dans le message de news:
B8EC4B10-5BE2-43CB-B76C-67D179C8DBCD@microsoft.com...
Bonjour le Forum,
Après avoir recherché le sujet, je suis étonné de ne pas l'avoir trouvé.
J'ai lu du code VBA, des formules par cellule mais y a-t-il moyen de
convertir tout un tableau, apparemment arrondi par "format" mais
présentant
(dans l'éditeur) quelques décimales, sans reconstruire le tableau avec des
formules.
Je pense à collage spécial...
Merci de vos avis.
--
René Delcourt
Merci pour ces 2 excellentes solutions. -- René Delcourt
Bonjour René et Daniel,
Autre option sans VBA :
Dans les préférences (Mac) ou les options (Win), dans la zone ou l'onglet "Calcul", dans les "Options de classeur", coche "Calcul avec la précision au format affiché".
Pour tester,
- Crée un document vierge - Entre 12,345 dans une cellule - Fais la manip ci-dessus - Formate la cellule avec 2 décimales - Repasse au format standard
Le nombre est devenu 12,35.
Par sécurité fais la manip sur une copie de ton document, pour tout arrondir aux formats affichés, puis décoche "Calcul avec la précision au format affiché" pour éviter de futures mauvaises surprises.
Garde l'ancien classeur comme sauvegarde si tu t'aperçois plus tard que tu as perdu des décimales que tu aurais voulu conserver.
Bonjour. A exécuter après avoir sélectionné la plage à arrondir :
Sub test1() Dim c As Range For Each c In Selection If Left(c.FormulaLocal, 1) = "=" Then c.FormulaLocal = "=ARRONDI(" & Right(c.FormulaLocal, _ Len(c.FormulaLocal) - 1) & ";)" Else If IsNumeric(c.Value) Then c.Value = Round(c.Value) End If Next c End Sub
Cordialement. Daniel "René Delcourt" a écrit dans le message de news:
Bonjour le Forum, Après avoir recherché le sujet, je suis étonné de ne pas l'avoir trouvé. J'ai lu du code VBA, des formules par cellule mais y a-t-il moyen de convertir tout un tableau, apparemment arrondi par "format" mais présentant (dans l'éditeur) quelques décimales, sans reconstruire le tableau avec des formules. Je pense à collage spécial... Merci de vos avis. -- René Delcourt
