vba : arrondir cellule active

[jean yves]

Bonjour au forum

Je débute le vba et je bute sur un truc idiot ; comment ecrire l'instruction vba pour que ma cellule active soit arrondie à 2 chiffres derriere la virgule;je sais qu'il faut employer Round mais je n'arrive pas à écrire le code

merci d'avance

 

[peper-eliot]

Bonjour

ça c'est pour modifier le FORMAT d'affichage.
mais ATTENTION, la valeur de la cellule concerve toujours les chiffres 'cachés'.

Private Sub arrondi()
'saisie 123,36999 en A1
Dim valeur As Currency '4 chiffres après la virgule

valeur = Worksheets("Feuil1").Range("A1").Select
Selection.NumberFormat = "#,##0.00"

end sub

Est-ce que ça suffit ou bien faut-il que 123,36999 devienne 123,37?

 

[jean yves]

Merci de ta réponse , mais je souhaiterais que la valeur soit effectivement arrondie , et pouvoir appliquer l'instruction à la cellule active quel que soit sa place...
Quelque chose du genre ActiveCell.Value = "=Round(ActiveCell.Value,2)
mais je n'arrive pas à rentrer la valeur numérique dans Round

Merci si tu peux m'éclaircir
jy

 

[michel]

bonjour Jean-Yves , bonsoir Peper-Eliot

si j'ai bien compris ta demande , tu peux essayer

Sub Arrondir()
ActiveCell = Application.Round(ActiveCell, 2)
End Sub


bonne soiree
michel