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