Formule de 2 cellules ARRONDI.INF en VBA
Bonjour à tous
J'ai déja un code vba sur la multiplication simple en vba mais je veux que le résultat soit arrondi en inferieur
Comment le faire Je vais vous montrer mon ancien code dans mon fichier de Gestion de stock .Voir la ligne 62. Je veux le résultat +Arrondi.inf(e*f;0)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
| Sub Ecrire_Entrées()
Dim MesLignes As Integer
Dim MaDate As Date, MaRéférence, MaPièce, MonFournisseur, MesObservations As String
Dim Formule As String, MaQuantité As Single, MonPUHT As Currency
With UF_Entrées
If .Titre.Caption = "Ajouter une Entrée" Then
' AJOUT *******************************************************
ModeLigne = "Ajout"
MaLigne = Range("Entrées").Row + 1
Else
'MODIF *******************************************************
ModeLigne = "Modif"
End If
MaDate = .TB_Date.Value
MaRéférence = .TB_Référence.Value
MaPièce = .CB_Pièce.Value
MaQuantité = .TB_Quantité.Value
MonPUHT = .TB_PUHT.Value
MonFournisseur = .CB_Fournisseur.Value
MesObservations = .TB_Observations.Value
End With
Sheets("Entrées").Activate
Call Déprotéger
If ModeLigne = "Ajout" Then
Application.ScreenUpdating = False
With Sheets("Entrées")
.Rows(MaLigne).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Selection.ClearContents
Application.CutCopyMode = False
End With
End If
With Sheets("Entrées")
'Date (colonne A)
.Range("A" & MaLigne).Value = MaDate
'Référence (colonne B)
.Range("B" & MaLigne).Value = MaRéférence
'Pièce (colonne C)
.Range("C" & MaLigne).Value = MaPièce
'Fournisseur (colonne D)
.Range("D" & MaLigne).Value = MonFournisseur
'Quantité (colonne E)
.Range("E" & MaLigne).Value = MaQuantité
'PUHT (colonne F)
.Range("F" & MaLigne).Value = MonPUHT
'Montant (colonne G)
'=E4*F4
Formule = "=E" & MaLigne & "*F" & MaLigne ' <------------ ICI
.Range("G" & MaLigne).FormulaLocal = Formule
'Observations (colonne H)
.Range("H" & MaLigne).Value = MesObservations
.Range("A" & MaLigne).Select
End With
Sheets("Entrées").Activate
End Sub |
