Discussion :

[chito79000]

Bonsoir,

Je suis sur le sujet depuis très longtemps mais après avoir cherché sur internet je n'ai pas trouvé..

je cherche à réaliser une somme mais avec la fonction arrondi....

voici mon code :

Code :

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

1
2
3
4
5
6
7
8
Dim lign As Long
Dim ligne As Long
 
ligne = Range("J" & Rows.Count).End(xlUp).Row
lign = Range("G1").End(xlDown).Row + 1
 
'Cells(ligne + 1, 2) = Application.Sum(lign & ligne)
Cells(ligne + 1, 2) = Application.Sum(Range(Cells(lign, 2), Cells(ligne, 2)))

Pouvez vous m'aider sur le sujet svp ?

[RyuAutodidacte]

Bonsoir,
Voir la propriété Round : dans le code sélectionné et appuyer sur F1 pour les explications

[Theze]

Bonjour,

En plus de la fonction Round() porposé par RyuAutodidacte, tu as aussi les fonctions Arrondi.Sup() et Arrondi.Inf() d'Excel qui te permettent de mieux maîtriser les valeurs de retour que tu souhaites :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub Test()
 
    Dim lign As Long
    Dim ligne As Long
 
    ligne = Range("J" & Rows.Count).End(xlUp).Row
    lign = Range("G1").End(xlDown).Row + 1
 
    With Application
 
        'arrondi vers le bas (ici, décimale = 0)
        Cells(ligne + 1, 2) = .RoundDown(.Sum(Range(Cells(lign, 2), Cells(ligne, 2))), 0)
        'arrondi vers le haut (ici, décimale = 2)
        Cells(ligne + 1, 2) = .RoundUp(.Sum(Range(Cells(lign, 2), Cells(ligne, 2))), 2)
 
    End With
 
End Sub

[Philippe Tulliez]

Bonjour,
Une autre solution

Code :

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

=ENT(I2+0,5)

Avec la somme

Code :

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

=ENT(SOMME(I2:I16)+0,5)

Il existe également les fonctions PLAFOND et PLANCHER

[RyuAutodidacte]

Re,
Et pour trouver plus facilement ce que tu cherches, une autre solution consiste à écrire (en faisant simple) le type de formule qui t’intéresse dans excel, comme par exemple :

Code :

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

1
2
3
=SOMME(B12;C12)
=ARRONDI.INF(A1;2)
=ARRONDI.AU.MULTIPLE(A1;0,1)

de sélectionner la cellule où se trouve la formule et d'aller dans la fenêtre "Exécution" de VBA - écrire :

Code :

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

debug.print Selection.formula

selon la cellule sélectionner contenant la formule on obtient :



Edit :
Avec l'exemple comme proposé par @Philippe Tulliez concernant (toujours avec debug.print Selection.formula)
Plafond

Code :

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

=CEILING(A1,0.2)

Plancher

Code :

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

=FLOOR(A1,0.2)