formule et macro

Bonjour Max, le Forum

Il est normal que cette instruction te retourne Zéro puisque tu fais une référence circulaire.

Je ne sais pas si celà va te convenir car cette procédure va "écraser" la valeur de la cellule active par sa propre valeur en arrondi inférieur (donc tu perdras la valeur initiale)

Sub Arrondir()
Dim Arrondi As Double

Arrondi = Application.WorksheetFunction.RoundDown(ActiveCell.Value, 1)
ActiveCell = Arrondi

End Sub

Sinon (pour conserver la valeur initiale) il faut passer par une colonne intermédiaire, et faire une formule sur la feuille et dons plus besoin de VBA...


Bonne Journée
@+Thierry

Merci Thierry,
ça marche nickel c'est que je voulais faire avec les valeurs

Sinon petite question à quoi correspond la réference circulaire et à quoi ça sert ??

et merci encore

Re Max

Une référence circulaire est "tolérée" par Excel mais il se met en "warning"... Car en fait, tu demande à Excel de calculer une formule placée dans une cellule qui va prendre en considération le propre résultat de la cellule en question... (Exemple tape en "A1" la formule =A1...)

Bon Appétit
@+Thierry