VBA Problème pour fixer arrondi sur feuille de calcul

[Kouik Kouik jr]

Bonjour,

je me retrouve devant un soucis, je copie colle des données brutes depuis un fichier sur une feuille excel et ensuite, il me faudrait pouvoir fixer les arrondis (pas seulement affichage) à 3 dixième pour certaines colonnes de ma feuille de calcul pour enfin pouvoir comparer les chiffres ( car la comparaison n'est pas parfaite si les chiffres ne sont pas arrondis)


J'ai lu beaucoup de discussion à ce sujet mais je n'ai trouvé aucune solutions ?


Merci d'avance pour votre aide.

 

[Modeste]

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.

 

[Kouik Kouik jr]

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

 

[blord]

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

 

[Kouik Kouik jr]

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)
?

 

[ledzepfred]

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 :

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

 

[Kouik Kouik jr]

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 !!!!🙂

 

[ROGER2327]

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 (...)

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

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

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

Bonne journée !
ROGER2327

 

[ledzepfred]

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+

 

[ROGER2327]

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

 

[ledzepfred]

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

Salut roger

ben 1 millième pardi😀😀

a+

 

[ROGER2327]

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