VBA Problème pour fixer arrondi sur feuille de calcul

Modeste

XLDnaute Barbatruc

• 27 Mars 2009

• #2

Re : VBA Problème pour fixer arrondi sur feuille de calcul

Salut Kouik Kouik jr,

Je ne sais où se situe ton problème:
- une première réponse pourrait être Utilise la fonction =ARRONDI(tonNombre;3) ... qui, comme son nom l'indique, arrondit un nombre au nombre de décimales que tu fixes
- si ton problème est qu'Excel ne semble pas reconnaître les données comme étant des données numériques, la solution sera différente
- si par contre ton souci est que tu as énormément de données et que tu dois faire ce type de manipulations très souvent, alors il conviendrait d'envisager une macro.

A part pour la 1ère solution (à essayer) et qui ne devrait pas être pas trop compliquée, il faudrait nous en dire plus et éventuellement déposer un extrait de ton fichier (sans données confidentielles)

Modeste

Oups !! en y regardant de plus près, je vois le titre de ton message .. qui commence par Vba
... mais, là aussi il existe une fonction: Round(12.689574, 3) qui fait la même chose que mon ARRONDI ci-dessus.

 

Dernière édition: 27 Mars 2009

Vote positif 0 Vote négatif

Kouik Kouik jr

XLDnaute Occasionnel

• 27 Mars 2009

• #3

Re : VBA Problème pour fixer arrondi sur feuille de calcul

Il faut donc utiliser qqch comme Round(12.689574, 3) mais pour arrondir une colonne entière de chiffres différents je fais comment ?

Le but ca serait d'éviter de faire un arrondi pour chaque cellules mais d'un coup pour toute la colonne ou toute la feuille en question

Quelqu'un aurait il le code ?

Merci d'avance

 

Vote positif 0 Vote négatif

blord

XLDnaute Impliqué

• 27 Mars 2009

• #4

Re : VBA Problème pour fixer arrondi sur feuille de calcul

Bonjour,

Essaie avec ce code :

Sub aa()

For Each Cellule In Range("A1:B10")
If Cellule.Value <> "" Then
Cellule.Value = Round(Cellule.Value, 3)
End If
Next
End Sub

Modifier la plage pour tenir compte de tes besoins...

Blord

 

Vote positif 0 Vote négatif

Kouik Kouik jr

XLDnaute Occasionnel

• 27 Mars 2009

• #5

Re : VBA Problème pour fixer arrondi sur feuille de calcul

J'arrive toujours pas , j'essaie avec le code ci dessous mais cela n'a pas l'air de marcher

'Arrondi feuille HSBC

Sheets("HSBC").Select
Cells.Select
For Each Cellule In Range("A1:S300")
If Cellule.Value <> "" Then
Cellule.Value = Round(Cellule.Value, 3)
End If
Next

Ca me met debug au niveau de la ligne Cellule.Value = Round(Cellule.Value, 3)
?

 

Vote positif 0 Vote négatif

ledzepfred

XLDnaute Impliqué

• 27 Mars 2009

• #6

Re : VBA Problème pour fixer arrondi sur feuille de calcul

bonsoir kouic kouic jr, blord, modeste,

difficile de t'aider puisque tu ne dis pas de quel type d'erreur il s'agit :

essayes ceci :

Code:

Sub test()
Sheets("HSBC").Activate
For Each Cell In Range("A1:S300")
If IsNumeric(Cell) And IsEmpty(Cell) = False Then Cell.Value = Round(Cell.Value, 3)
Next
End Sub

 

Vote positif 0 Vote négatif

Kouik Kouik jr

XLDnaute Occasionnel

• 27 Mars 2009

• #7

Re : VBA Problème pour fixer arrondi sur feuille de calcul

génial ca marche !

J'avais aussi réussi avec le code suivant:

Sheets("HSBC").Select
Dim Cellule As Range
Selection.Range("C2:C300,E2:E300,G2:G300,I2:I300,Q2:Q300,R2:R300").Select
For Each Cellule In Selection
If Cellule.Value <> "" Then
Cellule = Round(Cellule.Value, 3)
End If


merci beaucoup pour votre aide !!!!🙂

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 28 Mars 2009

• #8

Re : VBA Problème pour fixer arrondi sur feuille de calcul

Bonjour à tous

Je suis un peu étonné des réponse données et très étonné que Kouik Kouik jr les trouve "géniales". En effet, il souhaite

(...) fixer les arrondis (pas seulement affichage) à 3 dixièmes (...)

Cliquez pour agrandir...

Or les réponses proposées donnent des arrondis à un millième. Quelqu'un peut il m'expliquer ce mystère ?
En attendant, la formule

Code:

=0.3*ARRONDI(10*A1/3;0)

donne la valeur de A1 arrondie à 3 dixièmes.​

Bonne journée !
ROGER2327

 

Vote positif 0 Vote négatif

ledzepfred

XLDnaute Impliqué

• 29 Mars 2009

• #9

Re : VBA Problème pour fixer arrondi sur feuille de calcul

Bonsoir Roger,

ben vu le code qu'a utilisé Kouic Kouic Jr, il ne voulait pas dire arrondir au 3 dizièmes, et s'il trouve les réponses données géniales, c'est son paradigme!
Tu conviendras que l'essentiel est qu'il soit content.

A+

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 29 Mars 2009

• #10

Re : VBA Problème pour fixer arrondi sur feuille de calcul

Bonsoir ledzepfred

C'est certain, je suis content que Kouik Kouik jr soit content.
Donc, si je comprends bien, à partir d'aujourd'hui, lorsqu'on lit 3 dixièmes on doit comprendre 1 millième. (D'ailleurs, c'est le bon sens même : pourquoi en ai-je douté ?).
Mais alors, question : À partir d'aujourd'hui, qu'écrit-on à la place de 3 dixièmes lorsqu'on veut que le lecteur comprenne effectivement 3 dixièmes ?​

Cordialement,
ROGER2327

 

Vote positif 0 Vote négatif

ledzepfred

XLDnaute Impliqué

• 29 Mars 2009

• #11

Re : VBA Problème pour fixer arrondi sur feuille de calcul

Salut roger

ben 1 millième pardi😀😀

a+

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 29 Mars 2009

• #12

Re : VBA Problème pour fixer arrondi sur feuille de calcul

Bonsoir ledzepfred

Bon sang, mais c'est bien sûr ! Je vais enfin pouvoir dormir tranquille...​

Merci et bonne nuit à vous aussi.
ROGER2327

 

Vote positif 0 Vote négatif