Simulateur de barème de céréale
Description
L?objet de ce simulateur est de montrer au pouvoir public la gravité du barème du blé dur qui est promulgué au journal officiel N° 49 du 19 Juin 2007 La simulation montre comment à partir d?un prix de base de 40 dinars l?agriculteur ne reçoit que 20 dinars Ce barème considéré comme l?épée de Damoclès pointée sur la nuque des cultivateurs a suscité un grande méfiance aux prés des agriculteurs vu le contentieux envers les organismes collecteurs des céréales que les agriculteurs, durant cette Ėté, furent obligés de gérer. Ce qui explique le retard à la date d?aujourd?hui des préparations des emblavures destinées au blé dure Ce barème a été élaboré par les industriels de la patte alimentaire lors d?une conjoncture spécifique où le prix du blé été très bas et les agriculteurs sont intimidés voir dénigrés pour leur produit , une dépréciation provoquée vu que les pouvoirs publiques ont trouvé la facilité d?importer des céréales triplement subventionnées par les pays riches
KASTALLI CHERIF
5 Rue Ibn Rachik
Béja 9000 TUNISIE
http://kastallicherif.blogspot.com
KASTALLI CHERIF
5 Rue Ibn Rachik
Béja 9000 TUNISIE
http://kastallicherif.blogspot.com
Source / Exemple :
Label10.Caption = Round([P5], 2)
Label16.Caption = Round([P8], 2)
Label17.Caption = Round([P12], 2)
Label18.Caption = Round([P15], 2)
Label19.Caption = Round([P16], 2)
Label20.Caption = Round([P17], 2)
Label21.Caption = Round([P32], 2)
Label22.Caption = Round([Q6], 2)
Label24.Caption = Round([P33], 2)
Label25.Caption = Round([Q6], 2)
Label26.Caption = [O35]
Label27.Caption = Round([P35], 3)
Label28.Caption = [Q35]
End Sub
Private Sub CommandButton1_Click()
Unload UserForm1
End Sub
Private Sub CommandButton2_Click()
Unload UserForm1
Feuil1.Activate
End Sub
Private Sub TextBox1_Change()
[c5] = UserForm1.TextBox1
End Sub
Function Humid() As Double
Humid = (12 - range("C6").Value)
End Function
Private Sub TextBox2_Change()
On Error Resume Next
range("C6") = TextBox2
While TextBox2 > 14
TextBox2 = MsgBox("Désolé votre Blé est refusé", 0, "Humidité excessive")
Wend
If TextBox2 < 10 Then
[Q6] = 0.8
Else
If TextBox2 > 11.9 Then
[Q6] = 0
Else
range("Q6").Value = [B3] * Humid / 100
End If
End If
End Sub
Function Gcasse() As Double
Gcasse = (range("c8").Value - 2.5)
End Function
Function Dgcasse() As Double
Dgcasse = (range("C8").Value - 6)
End Function
Private Sub TextBox3_Change()
On Error Resume Next
[c8] = TextBox3
If TextBox3 < 2.5 Then
[P8] = 0
Else
If TextBox3 <= 6 Then
range("P8").Value = [B3] * 0.5 * Gcasse / 100
Else
If TextBox3 > 6 Then
range("P8").Value = ([B3] * 2 * Dgcasse / 100) + ([B3] * 1.75 / 100)
End If
End If
End If
End Sub
Function impur() As Double
impur = (range("c9").Value - 2)
End Function
Function dimpur() As Double
dimpur = (range("c9").Value - 8)
End Function
Private Sub TextBox4_Change()
On Error Resume Next
[c9] = UserForm1.TextBox4
If TextBox4 < 2 Then
[P12] = 0
Else
If TextBox4 <= 8 Then
range("P12").Value = [B3] * 0.5 * impur / 100
Else
If TextBox4 > 8 Then
range("P12").Value = ([B3] * 2 * dimpur / 100) + ([B3] * 3 / 100)
End If
End If
End If
End Sub
Function mouch() As Variant
mouch = (range("C15").Value - 1.5) / 100
End Function
Function mouchD() As Variant
mouchD = (range("C15").Value - 5) / 50
End Function
Private Sub TextBox5_Change()
On Error Resume Next
[C15] = UserForm1.TextBox5
If TextBox5 < 1.5 Then
[P15] = 0
Else
If TextBox5 <= 5 Then
range("P15").Value = [B3] * mouch
Else
If TextBox5 > 5 Then
range("P15").Value = [B3] * mouchD + [B3] * 3.5 / 100
End If
End If
End If
End Sub
Function Fusar() As Double
Fusar = (range("C16").Value - 1.5)
End Function
Function fusarD() As Double
fusarD = (range("C16").Value - 5)
End Function
Private Sub TextBox6_Change()
On Error Resume Next
[c16] = UserForm1.TextBox6
If TextBox6 < 1.5 Then
[P16] = 0
Else
If TextBox6 <= 5 Then
range("P16").Value = [B3] * Fusar / 100
Else
If TextBox6 > 5 Then
range("P16").Value = ([B3] * 2 * fusarD / 100) + ([B3] * 3.5 / 100)
End If
End If
End If
End Sub
Function Ggerme() As Double
Ggerme = (range("c17").Value - 2.5)
End Function
Function Dgerme() As Double
Dgerme = (range("c17").Value - 6)
End Function
Private Sub TextBox7_Change()
On Error Resume Next
[c17] = UserForm1.TextBox7
If TextBox7 < 2.5 Then
[P17] = 0
Else
If TextBox7 <= 6 Then
range("P17").Value = [B3] * 0.5 * Ggerme / 100
Else
If TextBox7 > 6 Then
range("P17").Value = ([B3] * 2 * Dgerme / 100) + ([B3] * 1.75 / 100)
End If
End If
End If
End Sub
Private Sub TextBox8_Change()
[c30] = UserForm1.TextBox8
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.