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

[glpx65]

Merci de votre aide ! Je vais essayer ça

[AlainTech]

Bonjour,

Je pense que le problème vient de la valeur décimale 3.7 qui est mal interprétée.

poids = (40 x 3) + 20 = 140

[glpx65]

Bonjour AlainTech !

Je pense que tu as raison, car sans décimale il n'y a pas de problème. Comment faire comprendre qu'il faut prendre en compte la virgule ?

[SfJ5Rpw8]

bonjour,

comment sont déclarées tes variables , en particulier : PoidsPaletteBrut, PdsBrut

[glpx65]

Voici les variables

Code :

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

1
2
3
4
5
6
If Cells(j, 1).Value = siteProduction.List(i) And Cells(j, 2).Value = Ligne.List(Ligne.ListIndex) And Cells(j, 3).Value = grammage.List(grammage.ListIndex) And Cells(j, 4).Value = typeDePack.List(typeDePack.ListIndex) And Cells(j, 13).Value = PCB.List(k) And Cells(j, 14).Value = TypeCaisse.List(TypeCaisse.ListIndex) Then
                NbCartonsCouches = Val(Cells(j, 23).Value)
                Hext = Val(Cells(j, 20).Value)
                PdsBrut = Val(Cells(j, 22).Value)
            Else
            End If

[SfJ5Rpw8]

je ne vois pas de déclaration de variable : instruction Dim ??

[parmi]

Val ne tient pas compte des décimales.
Essaie en utilisant CDbl()

ex:

Code :

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

PdsBrut = CDbl(Cells(j, 22).Value)

[Marc-L]

Bonjour, bonjour !

La fonction Val tient compte des décimales quand le séparateur décimal est le point, VBA nativement en anglais oblige …

[glpx65]

Val ne tient pas compte des décimales.
Essaie en utilisant CDbl()

ex:

Code :

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

PdsBrut = CDbl(Cells(j, 22).Value)

Merci infiniment ! Ca fonctionne à merveille !