SIMULATEUR DE BARÈME DE CÉRÉALE

Signaler
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
-
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

Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
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
10
"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
46
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