Simulateur de barème de céréale

Soyez le premier à donner votre avis sur cette source.

Vue 6 541 fois - Téléchargée 217 fois

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

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
8
Je l'avais bien compris. Je voulais juste souligner la similitude.

Amicalement,
Us.
Messages postés
4
Date d'inscription
mardi 22 février 2005
Statut
Membre
Dernière intervention
20 janvier 2008

je veux juste signaler pour mrs us-30 que ca se passe en tunisie :)
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
8
"Est-ce qu’on a un système transparent et impartial qui punit les abus si on trouve des rentiers dans la liste des nécessiteux  ?"

... L'aide européenne aux agriculteurs bénéficie aux plus grands nécessiteux : Le premier touchant le plus de subvention, est un viticulteur Français (le plus riche des viticulteurs de France), le second, le Prince de Monaco, le troisième, un député UMP… que des gens qui travaillent sur leur tracteur, quoi. Et n’oublions pas que la grande distribution est en passe de devenir en France les seuls revendeurs. Ils vendent avec de confortable bénéfice (3, 4 ou 5 fois le prix d’achat ou plus) sur l’ensemble des produits, notamment alimentaires (bien sur…), et sans compter une marge supplémentaire de « marge arrière »... donc au finale les modestes agriculteurs de ce côté ci, ne peuvent plus vivre vraiment de leur métier...

Amicalement,
Us.
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
37
salut,

il y a quand même quelques incohérences...

dans TextBox2_Change()

un WHILE sur la valeur de la zone de texte qui sera ensuite forcément inférieure à 14 puisque çà sera une constante de MSGBOX. donc un simple IF suffit.

mais ensuite tu compares le retour de la msgbox (qui sera forcément à 1 => VBOK)

if TextBox2.value > 14
MsgBox "Désolé votre Blé est refusé", 0, "Humidité excessive"
elseIf TextBox2.value < 10 Then
[Q6] = 0.8
ElseIf TextBox2.value > 11.9 Then
[Q6] = 0
Else
range("Q6").Value = [B3] * Humid / 100
End If

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.