Discussion :

[glpx65]

Bonjour à tous,

Je travaille sur une macro avec langage VBA. Elle permet de calculer le dimensionnement de palette avec chargement grâce à une base de données contenant les dimensions des caisses ainsi que leur poids.

Le tout est disponible pour l'utilisateur sur un User form, qui permet de sélectionner la caisse désirée, puis la hauteur maximale du chargement. Il s'en découle les caractéristiques de la palette, à savoir :
- Nombre de cartons / palette
- Hauteur
- Poids

Mon problème réside dans le poids du chargement. Il n'apparaît jamais sous la bonne valeur. Le poids comprend le poids de la palette (20 kg) et le poids brut de la caisse sélectionnée multiplié par le nombre de caisse sur la palette.

Voici un extrait de l'écriture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 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

Je ne sais pas si cela est bien écrit, ou si le problème vient d'un autre endroit...

Merci de votre aide !

[illight]

Il n'apparaît jamais sous la bonne valeur

je comprend pas ce que ça veut dire

Dans ton formulaire, c'est pas écrit au bon endroit, ou c'est la valeur qui est fausse ?

Pour le premier cas, on va pas pouvoir grand chose, étant donné que c'est le libellé que tu renseigne qui doit pas être au bon endroit...

[glpx65]

salut illight !

Je pense que le calcul est écrit au bon endroit dans le formulaire. J'ai simplement un faux résultat. Sur la capture d'écran ci-joint, le poids est de 140 kg.

Alors que calculette en main, je trouve 168 kg... (poids = (40 x 3.7) + 20 = 168 kg )

[parmi]

Bonjour,

Avant d'inscrire tes valeurs dans les Labels, mets un point d'arrêt et vérifie chaque calcul fait préalablement.
Il y a certainement un endroit où le calcul ne se fait pas comme tu l'entends.

[clementmarcotte]

Bonjour,

Tu peux toujours jeter un œil sur un logiciel libre, tout fait:

http://stackbuilder.codeplex.com/

[illight]

Si la valeur est fausse, c'est que tu as un souci dans les valeurs récupérées. Comme conseillé plus haut, mais des Msgbox de tes différentes valeurs avant de renseigner des "caption" voir où ça pourrait coincer.

Ou alors fait du pas a pas, en vérifiant la valeur de toutes tes variables