une debutante besoin d'aide ..>

une debutante besoin d'aide ..> - VB/VBA/VBS - Programmation

Marsh Posté le 22-04-2007 à 10:21:07    

                 bonjour  
  je sais que c'est le jour d'election" pour la plupart d'entre vous" , mais  j'ai vraiment besoin d'aide ; j'ai passé tout une journée pour faire une boucle correct mais j'arrive pas  :pfff:  
je fais mes premier cours en vb et je pense que notre prof est tres ambitieux .
il nous a demandé de crée un projet vb ou on calcule le prix TTC des 10 produit chaque produit est ecrit pas: le libellé du produit , prix unitaire et la contité de commende .
sachant que TVA est fixé a 20 %  
  seulemnt en le lisant je sais pas par quoi commencé si qq peut m'aider , je serai  reconesante .
      j'espere que j'ai posté au bon endroit , sinon desolée les modo ^^

Reply

Marsh Posté le 22-04-2007 à 10:21:07   

Reply

Marsh Posté le 22-04-2007 à 11:58:55    

Bonjour,
postes ton brouillon de boucle
Cordialement

Reply

Marsh Posté le 22-04-2007 à 12:38:46    

ok je vais la refaire et la mettre en detail mais en gros j'ai fait une chose comme ça : j'ai pris dim libro"libellé produit" as string*20
dim PU "prix unitaire" as single  
dim QU "quantité"as byte
dim TVA as single
dim PHT as single
dim THT as single  
dim VTVA as single  
dim TTC as single  
i=1  
THT=o
PHT=0
WHILE i<=10
QU=inputbox("quantité de commande" )
text1.text=QU
.......................
et apres je mets que PHT=PU*QU
VTVA=THT*TVA
THT=PHT DE TT LES PRODUITS
TTC=VTVA+THT
bon cela apres que je mets les zone texte et label convenables
 
   comme j'ai dit je vais la poster en detail,"SAUF SI QQ A UNE PROPOSITION A ME FAIRE :)"paceque je pense que personne ne va comprendre ce que je suis entrain de dire ^^
merci pour ta reponse SENIORPAPO U  


Message édité par sicile le 22-04-2007 à 14:17:04
Reply

Marsh Posté le 22-04-2007 à 15:04:52    

Bonjour,
 
C'est le prix global que tu veux ?
 
Ou le prix TTC de chacun des articles ?
 
ou la somme des prix ttc de tous les articles ?
 

Reply

Marsh Posté le 22-04-2007 à 15:13:08    

      prix TTC de la quantité de commande ^^


Message édité par sicile le 22-04-2007 à 16:07:37
Reply

Marsh Posté le 22-04-2007 à 16:12:07    

Ou est ce que tu fais ton incrémentation : i=i+1
 
Tu as essayé avec une boucle for ?

Reply

Marsh Posté le 22-04-2007 à 16:17:27    

voila un code qui fonctionne
en espérant que ce soit compatible avec le vb
 
Sub test()
Dim myarray(10, 3)
myarray(1, 1) = "produit1"
myarray(2, 1) = "produit2"
myarray(3, 1) = "produit3"
myarray(4, 1) = "produit4"
myarray(5, 1) = "produit5"
myarray(6, 1) = "produit6"
myarray(7, 1) = "produit7"
myarray(8, 1) = "produit8"
myarray(9, 1) = "produit9"
myarray(10, 1) = "produit10"
myarray(1, 2) = "10"
myarray(2, 2) = "20"
myarray(3, 2) = "30"
myarray(4, 2) = "40"
myarray(5, 2) = "50"
myarray(6, 2) = "60"
myarray(7, 2) = "70"
myarray(8, 2) = "80"
myarray(9, 2) = "90"
myarray(10, 2) = "100"
tva = 0.2
i = 1
While i <= 10
myarray(i, 3) = InputBox("combien voulez vous de " & myarray(i, 1) & "?" )
i = i + 1
Wend
i = 1
totht = 0
While i <= 10
mt = myarray(i, 2) * myarray(i, 3)
totht = totht + mt
i = i + 1
Wend
tot = (1 + tva) * totht
MsgBox ("cela fera " & tot & " euros!" )
End Sub

Reply

Marsh Posté le 22-04-2007 à 16:41:13    

pour voir si tu as compris
quels changements effectuerais tu pour prendre en compte que la tva peut etre differente suivant les produits ?

Reply

Marsh Posté le 22-04-2007 à 16:49:38    

:whistle: peut etre qu'on doit changer tva =0.2 " alors la elle est une constante" c faux ?

Reply

Marsh Posté le 22-04-2007 à 16:56:49    

non c'est ca
plus exactement moi je mettrai un myarray(i,4) ce qui changerait les 7 dernières lignes du pg
et au debut
myarray(1,4)=0.2
....
myarray(10,4)=0.05
 
je te demande ca par ce que si tu dois presenter ton projet, ton prof pourrait de poser ce genre de question ( comprehension du sujet + réactivité )
 
et t'as compris le fonctionnement des tableaux ?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed