une debutante besoin d'aide ..> - VB/VBA/VBS - Programmation
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 ^^
"paceque je pense que personne ne va comprendre ce que je suis entrain de dire ^^ 
merci pour ta reponse SENIORPAPO U  
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 ? 
 
Marsh Posté le 22-04-2007 à 15:13:08
prix TTC de la quantité de commande ^^
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 ?
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 
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 ?
Marsh Posté le 22-04-2007 à 16:49:38
  peut etre qu'on doit changer tva =0.2 " alors la elle est une constante" c faux ?
 peut etre qu'on doit changer tva =0.2 " alors la elle est une constante" c faux ? 
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 ?
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
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 ^^