Bonjour à tous,
Confronté à une gestion de stock, je souhaiterais vous exposer mon problème à propos de ce je crois une anomalie lors de l’extraction de la partie entière d’une variable.
En deux mots : j’ai un poids total, le poids d’une palette et je calcule le nombre de palettes par simple division.
Le poids total pouvant être un non multiple du poids d’une palette, j’extrais la partie entière.
Et là, on dirait que la table de 3 pose problème.
Je soumets à vos avis éclairés, le code ci-dessous
Sub Partie_entiere()
Cells.Clear
Cells(1, 1) = "Total" ' titres
Cells(1, 2) = "Poids_palette"
Cells(1, 3) = "Nb_calculé"
Cells(1, 4) = "Nb_pal_entieres"
'1er exemple
poids_total = 2000.8
poids_palette = 500.2 ' poids d'une palette
Cells(2, 1) = poids_total
Cells(2, 2) = poids_palette
nb_palettes = poids_total / poids_palette ' calcul nombre de palettes
Cells(2, 3) = nb_palettes ' affichage nombre calculé
nb_palettes_entieres = Int(nb_palettes) ' calcul partie entière OK
Cells(2, 4) = nb_palettes_entieres
'2eme exemple
poids_total = 2073.6
poids_palette = 691.2 ' poids d'une palette
Cells(4, 1) = poids_total
Cells(4, 2) = poids_palette
nb_palettes = poids_total / poids_palette ' calcul nombre de palettes
Cells(4, 3) = nb_palettes ' affichage nombre calculé
nb_palettes_entieres = Int(nb_palettes) ' calcul partie entière ERRONE
Cells(4, 4) = nb_palettes_entieres
Cells(4, 5) = " <= Calcul erroné"
End Sub
Confronté à une gestion de stock, je souhaiterais vous exposer mon problème à propos de ce je crois une anomalie lors de l’extraction de la partie entière d’une variable.
En deux mots : j’ai un poids total, le poids d’une palette et je calcule le nombre de palettes par simple division.
Le poids total pouvant être un non multiple du poids d’une palette, j’extrais la partie entière.
Et là, on dirait que la table de 3 pose problème.
Je soumets à vos avis éclairés, le code ci-dessous
Sub Partie_entiere()
Cells.Clear
Cells(1, 1) = "Total" ' titres
Cells(1, 2) = "Poids_palette"
Cells(1, 3) = "Nb_calculé"
Cells(1, 4) = "Nb_pal_entieres"
'1er exemple
poids_total = 2000.8
poids_palette = 500.2 ' poids d'une palette
Cells(2, 1) = poids_total
Cells(2, 2) = poids_palette
nb_palettes = poids_total / poids_palette ' calcul nombre de palettes
Cells(2, 3) = nb_palettes ' affichage nombre calculé
nb_palettes_entieres = Int(nb_palettes) ' calcul partie entière OK
Cells(2, 4) = nb_palettes_entieres
'2eme exemple
poids_total = 2073.6
poids_palette = 691.2 ' poids d'une palette
Cells(4, 1) = poids_total
Cells(4, 2) = poids_palette
nb_palettes = poids_total / poids_palette ' calcul nombre de palettes
Cells(4, 3) = nb_palettes ' affichage nombre calculé
nb_palettes_entieres = Int(nb_palettes) ' calcul partie entière ERRONE
Cells(4, 4) = nb_palettes_entieres
Cells(4, 5) = " <= Calcul erroné"
End Sub