Logo du forum
 

Forum TT-Hardware

| Inscription | | Recherche | | FAQ | | Accueil | | Liste des membres |
| Calendrier |
 
Vous n'êtes pas identifié! [Connexion] ou [Inscription] Forum » Programmation » [VB / VBA / VBS] » Probleme Calcul avec des tranches !!!
Login Mot de passe

2 visiteurs sur ce topic (0 membre(s), 2 invité(s) )


Auteur
Sujet : Probleme Calcul avec des tranches !!!
Hades
Master
Membre # 24455

 Avatar du membre
Lieu : Besancon

Messages :
968 (1 par jour)




Message du 05-10-2007 @ 11:40      Afficher le profil   Envoyer un message privé   Editer le message   Citer le message      Afficher l'adresse IP   Alerter les modérateurs   


Voila le probleme il faut que je calcul un prix d'un produit celon 3 tranches !!

J'ai fait cela :

'Saisi des constantes

prixinf2 = 63
prixinf4 = 68
prixsup4 = 73


'Saisi des inforamtion de la remorque

Lieudepart = InputBox("Saisir le lieu de depart")
Range("B11") = Lieudepart

Remorque = InputBox("Saisir la marque de la remorque ")
Range("C11") = Remorque

longeur = InputBox("Saisi de la longueur de la remorque")
Range("D11") = longeur


'Calcul du tarif de la remorque

tarifinf2 = prixinf2
Range("E11") = tarifinf2

If longeur >= 2 And longeur <= 4 Then
tarifinf4 = prixinf4 * 2
Range("F11") = tarifinf4
End If

tarifsup4 =
total = tarifinf2 + tarifinf4 + tarifsup4
Range("I11") = total


Je n'arrive pas a calculer correctement le prix !! Pouvez vous m'aider ??

Merci d'avance


[message édité le 17-10-2007 @ 11:02 Par Hades]
----------
E8400 ; Noctua NH-U12F ; P5K Pro ; 2 Go Crucial PC8500 ; MSI NX8800GT-OC ; Samsung 226BW ; 200 Go et 320 Go WD + 1To Samsung
PC Portable : Hp DV9649ef
- Haut de page -
Icy
Administrateur
Membre # 871

 Avatar du membre
Lieu : Bxl

Messages :
16702 (5.78 par jour)


Score :

Message du 05-10-2007 @ 11:43   Afficher le profil   Envoyer un message privé   Editer le message   Citer le message      Afficher l'adresse IP   Alerter les modérateurs   

pr info le dernier if est inutile.

----------
"May He touch you with His Noodly Appendage"
- Haut de page -
Hades
Master
Membre # 24455

 Avatar du membre
Lieu : Besancon

Messages :
968 (1 par jour)




Message du 05-10-2007 @ 11:48   Site personnel   Afficher le profil   Envoyer un message privé   Editer le message   Citer le message      Afficher l'adresse IP   Alerter les modérateurs   

Ok je vais l'enlever , tu peut m'aider ?
----------
E8400 ; Noctua NH-U12F ; P5K Pro ; 2 Go Crucial PC8500 ; MSI NX8800GT-OC ; Samsung 226BW ; 200 Go et 320 Go WD + 1To Samsung
PC Portable : Hp DV9649ef
- Haut de page -
Ixion
Vétéran
Membre # 5885

 Avatar du membre
Lieu : Rillettes'Land

Messages :
2255 (1.02 par jour)


Score :

Message du 05-10-2007 @ 14:40   Afficher le profil   Envoyer un message privé   Editer le message   Citer le message      Afficher l'adresse IP   Alerter les modérateurs   

Quel est le problème ? et tu fais ça sous quoi ?
----------
PC1 : P5K Pro | E8400 + Noctua NH-U12P | 2 Go PC6400 TRANSCEND | 8800GT 512 | 19" VP191b/24" Sensy LCD24KAL | Raptor 150Go/7K250 160 Go/Samsung 500Go | NEC AD-7170 | Lecteur DVD LG | Altec ATP3 | S12 550W | 69U6 Noir | MX3100 | ip5200R - Freebox + D-Link DGL-4300
PC2 : Abit IP-95 | E4300 | 17" LG 1720B | 1 Go DDR2 Balistix | Hitachi 7K250 160 Go | Nec ND-3500AG | Logitech S510
Portable : T75L 10,6" / 1,2ulv / 512Mo / 80Go (4200Trs/mn) / Graveur DVD / 1,2 Kg
- Haut de page -
Hades
Master
Membre # 24455

 Avatar du membre
Lieu : Besancon

Messages :
968 (1 par jour)




Message du 17-10-2007 @ 11:04   Site personnel   Afficher le profil   Envoyer un message privé   Editer le message   Citer le message      Afficher l'adresse IP   Alerter les modérateurs   

Voila il me faudrait definir que si s'est superieur a 4 alors il me fasse la difference de la longeur - 4

et ensuite il me faut calculer : que si c'est sup a 4 m : lemettre vaut 73 * la difference du nombre trouver juste avant !!

et faire le calcul des 3 branches !!

[message édité le 17-10-2007 @ 11:04 Par Hades]
----------
E8400 ; Noctua NH-U12F ; P5K Pro ; 2 Go Crucial PC8500 ; MSI NX8800GT-OC ; Samsung 226BW ; 200 Go et 320 Go WD + 1To Samsung
PC Portable : Hp DV9649ef
- Haut de page -


Aller dans le forum :  

Plan du forum | Contacter l'administrateur

Powered by SoulBB 3.0.1
© Soulmanto, 2003-2006

Valid XHTML 1.0 Transitional

Page générée en 0.076 secondes