bonjour,

Dans le code ci-dessous je converti ma valeur en texte pour supprimer les chiffres après la virgulle et ne garder que les entiers.

Le soucis est que excel arrondi à l'entier supérieur.

Comment faire pour garde l'entier uniquement sans arrondi supérieur?

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
20
Private Sub calculpacks()
 
Dim i As Long
 
'boucle sur la colonne A
For i = 2 To Range("A65536").End(xlUp).Row
 
    If Range("A" & i).Value <> "" Then
    Range("D" & i).Select
    ActiveCell.FormulaR1C1 = "=RC[-2]/RC[-1]"
    Selection.NumberFormat = "0"
    Range("D" & i) = Range("D" & i).Text
    Range("E" & i).Select
    ActiveCell.FormulaR1C1 = "=RC[-3]-(RC[-2]*RC[-1])"
    Selection.NumberFormat = "0"
    End If
 
Next i
 
End Sub