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
Partager