VBA - Calcul selon nombre pair/impair

[pochoco]

Bonjour a tous,

et tres bonne annee 2015, remplie de codes reussis (puissiez-vous trouver votre bonheur sur ce forum comme je l'ai fait jusqu'a present 😱 )

Voici mon soucis du jour: Je travaille sur User Form sur le calcul suivant:
Je dois determiner un prix global, compose de prix differents, dependants de la parite du nombre de produits. Je m'explique.

Admettons qu'on puisse mettre 1 produit maximum dans un type d'emballage (T1), et deux dans un autre type (T2).
Je veux determiner le prix d'emballage total en fonction du nombre de chaque type:

- Les nombres pairs peuvent s'ecrire n
- Les nombres impairs peuvent s'ecrire n+1

Pour les nombres pairs: n/2 emballages de type T2
Pour les impairs: n/2 de type T2 et 1 embalage du type T1

Ici ca se complique, puisque le premier emballage achete (pour les deux types) est plus cher:
-Premier T1 (1a)= Prix 1 (P1) (on peut utiliser comme exemple 50euros)
-T1 suivants (1b)= Prix 2 (p2) (45euros)
-T2 unitaire (2a) = Prix 3 (P3) (25 Euros)
-T2 ajoutes a T1 pour faire un nombre pair (2b)= Prix 4 (P4) (30 euros)

Si mon raisonnement est bon (n'hesitez pas a corriger, la logique n'est pas mon fort), nous avons donc:

Pour les nombres pairs: F1= P1+[(n/2)-1]*P2
Pour les nombres impairs: F1= P1+[(n/2)-1]*p2+ P4
Si un seul emballage est necessaire: F1=P3

Le resultats devant apparaitre dans la meme case. Vous pouvez trouver un fichier joint, resumant ce que je souhaite faire (j'espere qu'il sera assez clair). Je comprends le calcul, mais comment l'ecrire en VBA... Aucune idee!

Merci beaucoup en tout cas pour ce forum et tout le travail formidable!

 

[sousou]

Re : VBA - Calcul selon nombre pair/impair

Bonjour à tous
Si joint ton fichier avec une formule
J'indique dans ton tableau le pris du premier emballage, puis selui des suivant et enfin le pris de l'emballage unitaire




Signer CHARLIE

 

[pochoco]

Re : VBA - Calcul selon nombre pair/impair

Merci beaucoup sousou,

Je m'etais legerement trompee dans mes propres calculs, mais j'ai pu assez facilement adapter ta formule:

=IF(INT(A2/2)>1,(INT(A2/2)-1)*E2+D2+MOD(A2,2)*C2,IF(A2<2,A2*B2,D2+MOD(A2,2)*C2))

Et ca marche parfaitement! (Faut-il que je close le sujet comme etant regle? comment?)

Bonne continuation