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 : 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
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