SIMULATEUR DE BARÈME DE CÉRÉALE
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
-
20 janv. 2008 à 00:53
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 - 20 janv. 2008 à 16:58
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 - 20 janv. 2008 à 16:58
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/45471-simulateur-de-bareme-de-cereale
https://codes-sources.commentcamarche.net/source/45471-simulateur-de-bareme-de-cereale
20 janv. 2008 à 16:58
Amicalement,
Us.
20 janv. 2008 à 14:50
20 janv. 2008 à 10:05
... 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.
20 janv. 2008 à 00:53
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