récupérer la valeur d'une cellule

bonjour je voudrais faire une macro qui me permet d'arrondir la valeur de ma cellule a 2 chiffre aprés la virgule pour cela j'ai écrit le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub arrondisup() ' arrondi la la de la cellule à l'arrondi supérieur avec deux chiffres aprés la virgule Dim cell As Range Dim Stock As Double Dim i As Integer For i = 6 To 8 Step 2 ' 6 et 8 son les deux colonne que je veut arrondir Stock = Application.Cells(16, i) Application.Cells(16, i) = "= ARRONDI.SUP(" & Stock & ";2)" Next End Sub

---

le probleme c'est que la formule ne marche pas si je met un égale ( celui en gras).

est-ce possible que dans ma variable "stock" j'affiche la formule de ma cellule (16,i) et non sa valeur

merci d'avance pour votre aide

Application.Cells(16, i).value au lieu de Application.Cells(16, i)

Bonjour,

essaye avec Stock = Application.Cells(16, i).address

Bonjour,
Je n'ai pas vu de égal en gras comme il n'y en a que deux autant préciser le premier ou le deuxième. Sinon utilise les balise code c'est pratique.

Utilise directement le cells(16,i)
le application est a mon avis inutile.

Pour ton problème tu veux entrer une formule en francais donc

Code:

---

cells(16,i).formulalocal="= ARRONDI.SUP(" & Stock & ";2)"

---

Sinon tu veux arrondir juste pour l'affichage? dans ce cas la utilise format
Sinon pour éviter de passer par une formule et une variable

Code:

---

Cells(16, i) = Round(Cells(16, i), 2)

---

Edit pour le format cela ne modifie que l'affichage

Code:

---

Cells(16, i).NumberFormat = "0.00"

---