OVH Cloud OVH Cloud

Macro "Arrondi"

3 réponses
Avatar
Bonjour
je cherhe a creer une macro qui arrondi la formule dans
une cellule
je m'explique la macro doit fair "F2" aller au debut de la
formule inserrer "arrondi(" puis aller a la fin et
inserrer";2)"

merci

3 réponses

Avatar
AV
Bien que l'intérêt de la manip m'échappe un peu...(pour A1)

Sub zz()
[A1] = "=Round(" & Right([A1].Formula, Len([A1].Formula) - 1) & ",2)"
End Sub

AV
Avatar
Michel BERTRAND
Bonjour

"AV" a écrit dans le message de
news:%
Bien que l'intérêt de la manip m'échappe un peu...(pour A1)

Sub zz()
[A1] = "=Round(" & Right([A1].Formula, Len([A1].Formula) - 1) & ",2)"
End Sub


on peut generaliser par

ActiveCell = "=Round(" & Right(ActiveCell.Formula, Len(ActiveCell.Formula) -
1) & ",2)"

là c'est plus interressant quand on à 200 formules à changer

Cordialement

Michel BERTRAND

Avatar
AV
là c'est plus interressant quand on à 200 formules à changer


Ha bon ?

;-)
AV