Error of calculations - Don't know where is the problem

[glpx]

Hello everybody,

I've worked on a file who permits to exploit a database. This database includes many informations about the sizing and the weight of packagings. This informations used to calculate the palettization.

The calculations give the following results :

- Number of box / coat
- Number of coat on the pallet
- Number of box / pallet
- Height of pallet
- Weight pallet

The problem is in the pallet's weight. To calcul this, the formula is :

Weight = Nb box * weight gross (of 1 box) + 20 (Kg, Weight pallet)

When I simulate a calcul with any box, I don't have the good result, always less than the real result. But the formula is writting good.

Sans titre.png
Normally, we have to find 168 kg and not 140...
Calcul = 40 * 3.7 + 20 = 168 kg

Someone can find the error in the writting vbe ? Thanks

[nathansav]

Your decimal separtor is a comma, could that be it.

[glpx]

Thanks @Nathansav but this is just the explanation.

The formula in vba is : HauteurPalette = NbCouches * Hext + (Sheets("Palettisation").Range("C2").Value * 1000)
It's the same and correctly written... This is my problem. I don't where is the fault.

The writting is located on the code of user form.

[nathansav]

Can you send me the data for these values, not the sheet, just some of the examples so that i can see.

have you tried changing the values from the sheet to double?

[glpx]

No i didn't try because i'm not an expert...

If Hext = "" Or Hext = 0 Then
MsgBox ("Hauteur ext non renseignée")
Else
NbCouches = Int((comboNonGerbable.Value - Sheets("Palettisation").Range("C2")) * 1000 / Hext)
NbCartonsPalette = NbCouches * NbCartonsCouches
HauteurPalette = NbCouches * Hext + (Sheets("Palettisation").Range("C2").Value * 1000)
PoidsPaletteBrut = PdsBrut * NbCartonsPalette + 20
Label18.Caption = NbCartonsCouches
Label20.Caption = NbCouches
Label22.Caption = NbCartonsPalette
Label24.Caption = HauteurPalette
Label26.Caption = PoidsPaletteBrut
End If

______________________________________________________________________________

[nathansav]

can you send me the data also, so i can redo the calculations. One thing to look at, is a thing called BODMAS, brackets of division multiplication and subtraction, it may be something wiht your braketing in

Int((comboNonGerbable.Value - Sheets("Palettisation").Range("C2")) * 1000 / Hext)

[glpx]

Thank you so much for your help !!

[nathansav]

No problems, can you just send me the values yuo were using for these variables

NbCouches = Int((comboNonGerbable.Value - Sheets("Palettisation").Range("C2")) * 1000 / Hext)
NbCartonsPalette = NbCouches * NbCartonsCouches
HauteurPalette = NbCouches * Hext + (Sheets("Palettisation").Range("C2").Value * 1000)
PoidsPaletteBrut = PdsBrut * NbCartonsPalette + 20

What you expect to get and what you did. I will check out your calc then. I am 99% its a bracket in the wrong place

[glpx]

For this variable, it's your choice on the macro, you can use any box present in the list.

Example :

Name : Barquettes
Dim exterior box : 356 - 239 - 248 mm
Weight : 3,7 kg x (nb box / pallet = 40 )

For comboNonGerbable there is a panel of value = 1,60 - 1,65 - 1,70 - 1,75 - 1,80 - 1,85
Sheets("Palettisation").Range("C2") is the height of the pallet = 0,15

[glpx]

Hello Nathansav ! Have you seen any things wrong on the file ?