Discussion :

[dodo28]

Bonjour le forum,
Je créais un userform qui va me permettre de calculer differentes valeurs. Mais je suis débutant et j ai du mal dans mes déclarations de variable et dans mes arrondis.. voici le code :

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
Private Sub SurfTerBois_Change()
 
Dim pointterbois As Currency '2 chiffre aprés la virgule (ex : 3,14)
Dim pointterjfs As Currency '2 chiffre aprés la virgule (ex : 3,14)
Dim pointterplaine As Currency '2 chiffre aprés la virgule (ex : 3,14)
Dim pointterlineaire As Currency '2 chiffre aprés la virgule (ex : 3,14)
Dim pointtertotal As Currency '2 chiffre aprés la virgule (ex : 3,14)
Dim AttribTheorique As Currency '1 chiffre aprés la virgule (ex : 3,1)
Dim attribreeltotal As Byte 'arrondi sans decimal (ex : 3,49 = 3; 3,51 =4)
Dim valeurch As Currency '1 chiffre aprés la virgule (ex : 3,1)
Dim SurfTerJfs As Currency '2 chiffre aprés la virgule (ex : 3,14)
Dim SurfTerLineaire As Integer 'chiffre entier (ex :2050)
Dim SurfTerPlaine As Currency '2 chiffre aprés la virgule (ex : 3,14)
Dim SurfTerBois As Currency ' 2 chiffre aprés la virgule (ex : 3,14)
Dim ValPtBois As Integer '2 chiffre aprés la virgule (ex : 3,14)
Dim valptplaine As Integer 'chiffre entier uniquement (50 ou 25)
Dim valptjfs As Integer ' chiffre entier uniquement la valeur 1
Dim valptlineaire As Integer 'chiffre entier uniquement 500 ou 1000
Dim chireel As Byte 'chiffre entier entre 0 et 200
Dim chjreel As Byte 'chiffre entier entre 0 et 200
 
pointterbois = Val(SurfTerBois.Value) * Val(ValPtBois.Value)
pointtertotal = Application.RoundUp((Val(pointterbois.Value) + Val(pointterplaine.Value) + Val(pointterjfs.Value) + Val(pointterlineaire.Value)), 1)
AttribTheorique = Application.RoundUp((Val(pointtertotal.Value) / Val(valeurch.Value)), 1)
attribreeltotal = Application.Round((Val(AttribTheorique.Value)), 0)

De même beaucoup de mal pour mes arrondis.
pour rentrer les données dans l'userform, je me servirais du pavé numérique.
Et je vous joint le fichier, pour peut être mieux comprendre.
Merci

[Pierre Fauconnier]

Bonjour

"Ce qui se conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément"...

Bref... rien compris

[Minick]

Salut,

Tes declarations n'ont aucun interet.
Tu fais tes calculs et tu les affectes directement a tes objects (TextBox).
Donc supprimes les declarations (Dim ...)

++
Minick

[dodo28]

Je suis désolé. je vais essayer d'expliquer un peu mieux.
Cette petite calculatrice va servir à attribuer un nombre d animaux selon plusieurs facteurs.
un animal a une valeur de point (exemple un chevreuil vaut 6.7 points).
Ce chevreuil est donné sur un territoire. ce territoire va prendre une valeur de point selon sa surface : de bois (un hectare = 1 point), de plaine (50ha de plaine vaut un point), de jfs (1 ha de jfs = 1 point) et son linéaire (1000 mètre = 1 point)
exemple : un territoire qui a 150 ha de plaine et 3,5ha de bois et 1.8 ha de jfs et 2000m de linéaire vaut (150/50) +(3.5*1)+(1.8*1)+(2000/1000) = 10.3 points.
Donc un chevreuil valant 6.7 points ce territoire obtient 10.3/6.7 = 1.53 chevreuils (attribution théorique) et l attribution réelle est de 2 (le résultat aurait été de 1.4, il aurait une attribution réelle de 1 chevreuil)
Le but de ma petite calculatrice, c'est je rentre la valeur du chevreuil, les surfaces du territoire (bois, plaine,jfs,linéaire) et hop il me calcule automatiquement l'attribution réelle sur le territoire.
Je ne sais pas si je suis clair, j ai peur de m être mal expliqué.

voici mes codes en entier, et exel me dit que je depasse la capacité

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
Private Sub SurfTerBois_Change()
 
PointTerBois = Val(SurfTerBois.Value) * Val(ValPtBois.Value)
PointTerTotal = Application.RoundUp((Val(PointTerBois.Value) + Val(pointterPlaine.Value) + Val(PointTerJfs.Value) + Val(PointTerLineaire.Value)), 1)
AttribTheorique = Application.RoundUp((Val(PointTerTotal.Value) / Val(ValeurCH.Value)), 1)
AttribReelTotal = Application.Round((Val(AttribTheorique.Value)), 0)
 
End Sub
 
Private Sub SurfTerJfs_Change()
PointTerJfs = Val(SurfTerJfs.Value) / Val(ValPtJfs.Value)
PointTerTotal = Application.RoundUp((Val(PointTerBois.Value) + Val(pointterPlaine.Value) + Val(PointTerJfs.Value) + Val(PointTerLineaire.Value)), 1)
AttribTheorique = Application.RoundUp((Val(PointTerTotal.Value) / Val(ValeurCH.Value)), 1)
End Sub
 
Private Sub SurfTerLineaire_Change()
PointTerLineaire = Val(SurfTerLineaire.Value) / Val(ValPtLineaire.Value)
PointTerTotal = Application.RoundUp((Val(PointTerBois.Value) + Val(pointterPlaine.Value) + Val(PointTerJfs.Value) + Val(PointTerLineaire.Value)), 1)
AttribTheorique = Application.RoundUp((Val(PointTerTotal.Value) / Val(ValeurCH.Value)), 1)
End Sub
 
Private Sub SurfTerPlaine_Change()
pointterPlaine = Val(SurfTerPlaine.Value) / Val(ValPtPlaine.Value)
PointTerTotal = Application.RoundUp((Val(PointTerBois.Value) + Val(pointterPlaine.Value) + Val(PointTerJfs.Value) + Val(PointTerLineaire.Value)), 1)
AttribTheorique = Application.RoundUp((Val(PointTerTotal.Value) / Val(ValeurCH.Value)), 1)
 
End Sub

tout ca ne marche pas pas de panique j ai juste qu'a demain 8 h 00

[mapeh]

Bonjour,

Comme dit dans ton précédent fil (dont tu n'as pas daigné y répondre...), Val ne traite que les points comme séparateur décimal....

Dans ton premier calcul :

Code :

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

PointTerBois = Val(SurfTerBois.Value) * Val(ValPtBois.Value)

il y a effectivement des points, vu que tu utilises le pavé numérique...

Cependant, le résultat retourné (PointTerBois) est sous la forme : 6,15 (avec une virgule....)

Donc Val n'est plus d'actualité, à partir de la ligne suivante....

Privilégie CDbl, comme je te l'avais fait remarquer...

Bonne journée

[dodo28]

Désolé Mapeh, j n'ai pas d excuse pour la non réponse.

bon voila j'ai refait comme ca

Code :

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

1
2
3
4
Private Sub SurfTerBois_Change()
 
PointTerBois = SurfTerBois.Value * ValPtBois.Value
PointTerTotal = CDbl(PointTerBois.Value) + CDbl(pointterPlaine.Value) + CDbl(PointTerJfs.Value) + CDbl(PointTerLineaire.Value)

Pour PointTerBois, c'est ok.
Mais pointTerTotal çà plante.

[mapeh]

Re-,

Tout d'abord,au lieu de calculer à chaque changement de valeur dans les Textboxs, j'utiliserai le bouton "calculez", afin d'effectuer le calcul dès que toutes les données sont remplies...

Tu as en effet des divisions par zéro (normal, les calculs s'effectuent alors que tous les textboxs ne sont pas renseignés....

Bref, je pense qu'il serait bon que tu revoies le mode de calcul...

Bon courage

[dodo28]

bon j ai suivi ton conseil j ai fait ceci

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
Private Sub calculer_Click()
 
PointTerBois = SurfTerBois.Value * ValPtBois.Value
 
If SurfTerJfs = 0 Or "" Then PointTerJfs = 0
Else
PointTerJfs = SurfTerJfs.Value / ValPtJfs.Value
End If
 
If SurfTerLineaire = 0 Or "" Then PointTerLineaire = 0
Else
PointTerLineaire = SurfTerLineaire.Value / ValPtLineaire.Value
End If
 
If SurfTerPlaine = 0 Or "" Then pointterPlaine = 0
Else
pointterPlaine = SurfTerPlaine.Value / ValPtPlaine.Value
End If
 
End Sub

mais ca ne marche pas
je desespere

[Pierre Fauconnier]

ET si, avant de se lancer dans la programmation, tu repensais un peu ton appli en structurant d'où tu pars, où tu veux arriver et les étapes pour y parvenir...

[dodo28]

desolé je suis vraiment débutant. je vois ou je veux arriver mais je doit zapper des étapes. j'ai construit l userform en faisant les bons intitulé et je vois bien le chemin mais c pas bon. Le faite d utiliser le bouton calculer va être plus simple mais....

En faite je veux pour l instant que le texbox "surfterplaine" soit diviser par le texbox "valptplaine" et inscrire ce résultat dans le texbox "pointterplaine" et que si le texbox "surfterplaine" est vide ou = 0 alors pointterplaine = 0
Idem pour le "surfterbois", "surfterjfs" sauf que la je mutiplie par le texbox valbois valptjfs etc

ensuite les pointter*.* doivent s additionner dans pointtertotal.

Ensuite pointertotal doit etre divisé par le textbox valeurCh et donné un chiffre aprés la virgule et le resultat s inscrire dans le texbox "attribtheorique".

Ensuite la valeur de attribtheorique doit s inscrire dans "attribreeltotal" mais arrondi (3.49 =3 et 3.51 = 4 par exemple).

ensuite si attrib total est >= a 3, il faut repartir au 2/3 et 1/3 sur chireel et chjreel. (attribreeltotal = 3 chireel=2 chjreel = 1 ou attribreeltotal = 2 chi=2 chj=0 etc)

Pas facile

[nicht]

salut,
tu devrais d'abord écrire ton calcul sous forme d'égalité ou d'équation avec des lettres:par exemple:
"(a/b) +(c*1)+(d*1)+(e/f) = arrondi(g)"
puis dis nous a quoi correspondent les lettres (textbox) et après on voie.
(Je ne pas non plus ouvrir ton fichier).

[dodo28]

A = surfterbois (donnée rentrée manuellement et peut être décimal 2 chiffres après la virgule)
b = surfterplaine (donnée rentrée manuellement et peut être décimal 2 chiffres après la virgule)
c = surfterlineaire (donnée rentrée manuellement)
d = surfterjfs (donnée rentrée manuellement et peut être décimal 2 chiffres après la virgule)
E = valptbois (donnée rentrée manuellement)
F= valptplaine (donnée rentrée manuellement)
G = valptjfs (donnée rentrée manuellement)
h = valptlineaire (donnée rentrée manuellement)
i = pointertotal = J+K+L+M
J = pointterbois = A*E
k = pointterlineaire = C/H (attention C peut etre = à 0 ou vide)
L = pointterplaine = B/F (attention B peut etre = à 0 ou vide)
M = pointerjfs = D*G
N = valeurCh (donnée rentrée manuellement)
O = attribtheorique = I/N (un chiffre après la virgule)
P = attribreeltotal = arrondi de O (exemple : 3.49=3; 3.51=4) (chiffre entier)
Q = attribreelchi = les deux tiers P si P>= 3 sinon la totalité (chiffre entier)
R = attribreelchj = si P>= 3 un tiers (chiffre entier)

Voila si ça peut vous aider
Merci pour votre aide

[dodo28]

bonjour bon ca a pas mal avancé et je ne sais pas pourquoi sur mon pc domicile ca ne marcher pas a celui de mon travail presque tout ok.
voici ma macro pour ceux que ca interresse

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
 
Private Sub calculer_Click()
 
'calcul point bois
PointTerBois = SurfTerBois.Value * ValPtBois.Value
'cacul point jfs
PointTerJfs = SurfTerJfs.Value / ValPtJfs.Value
'calcul point lineaire
PointTerLineaire = SurfTerLineaire.Value / ValPtLineaire.Value
'calcul point plaine
pointterPlaine = SurfTerPlaine.Value / ValPtPlaine.Value
'calcul point total
PointTerTotal = CDbl(PointTerBois.Value) + CDbl(SurfTerPlaine.Value / 25) + CDbl(PointTerJfs.Value) + CDbl(PointTerLineaire.Value)
'calcul attrib theorique
AttribTheorique = Application.RoundUp((CDbl(PointTerTotal.Value) / CDbl(ValeurCH.Value)), 1)
'calcul illigibilité
IlliGibilité = Application.RoundUp((CDbl(PointTerBois.Value) + CDbl(PointTerJfs.Value) + CDbl(pointterPlaine.Value / 25) + CDbl(SurfTerLineaire.Value / 500)), 1)
'attrib reele total
AttribReelTotal = Application.Round(AttribTheorique.Value * 1, 0)
'attrib chj
CHJReelle = Application.Round(AttribTheorique.Value / 3, 0)
'attrib chi
ChiReel = Application.Round(AttribTheorique.Value - CHJReelle.Value, 0)
 
End Sub

merci pour m avoir aider