Discussion :

[gigalia]

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

[Sclarckone]

Bonjour,

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

Code :

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

Floor(monNombre, 0)

[gigalia]

Bonjour,

J'ai vu dans un autre post les différentes possibilité dont la tienne ("floor").

J'ai pris pour ma part "fix".

Voila le code

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
21
22
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
    If Range("C" & i).Value <> "" Then
    Range("D" & i).Select
    ActiveCell.FormulaR1C1 = "=RC[-2]/RC[-1]"
    Selection.NumberFormat = "0.0"
    Range("D" & i) = Fix(Range("D" & i).Value)
    Range("E" & i).Select
    ActiveCell.FormulaR1C1 = "=RC[-3]-(RC[-2]*RC[-1])"
    Selection.NumberFormat = "0"
    End If
    End If
 
Next i
 
End Sub

[mercatog]

Bonjour
C'est la fonction ENT d'Excel

Une proposition pour ton code (à adapter)

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
Private Sub calculpacks()
Dim LastLig As Long, i As Long
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")                        'A adapter
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    With .Range("D2:D" & LastLig)
        .FormulaR1C1 = "=IF(AND(RC[-3]<>"""",RC[-1]<>0),INT(RC[-2]/RC[-1]),"""")"
        .Value = .Value
    End With
    With .Range("E2:E" & LastLig)
        .FormulaR1C1 = "=RC[-3]-(RC[-2]*RC[-1])"
        .Value = .Value
    End With
End With
End Sub