Discussion :

[max59227]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[popzelda]

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

[HurGeek]

Bonjour,

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

[Krovax]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Edit pour le format cela ne modifie que l'affichage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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