Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1347 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  une debutante besoin d'aide ..>

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

une debutante besoin d'aide ..>

n°1546516
sicile
Posté le 22-04-2007 à 10:21:07  profilanswer
 

                 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 ^^

mood
Publicité
Posté le 22-04-2007 à 10:21:07  profilanswer
 

n°1546533
seniorpapo​u
Posté le 22-04-2007 à 11:58:55  profilanswer
 

Bonjour,
postes ton brouillon de boucle
Cordialement

n°1546542
sicile
Posté le 22-04-2007 à 12:38:46  profilanswer
 

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
n°1546580
morphorpse
Posté le 22-04-2007 à 15:04:52  profilanswer
 

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 ?
 

n°1546582
sicile
Posté le 22-04-2007 à 15:13:08  profilanswer
 

      prix TTC de la quantité de commande ^^


Message édité par sicile le 22-04-2007 à 16:07:37
n°1546600
morphorpse
Posté le 22-04-2007 à 16:12:07  profilanswer
 

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

n°1546603
ingenieurc​esi
Posté le 22-04-2007 à 16:17:27  profilanswer
 

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

n°1546609
ingenieurc​esi
Posté le 22-04-2007 à 16:41:13  profilanswer
 

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

n°1546612
sicile
Posté le 22-04-2007 à 16:49:38  profilanswer
 

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

n°1546616
ingenieurc​esi
Posté le 22-04-2007 à 16:56:49  profilanswer
 

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 ?


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  une debutante besoin d'aide ..>

 

Sujets relatifs
[AIDE] Probleme avec un formulaireBesoin d'un petit coup de main de 30s pour changer des couleurs
Aide pour un iframe sur IE[ C ] Aide pour programme de lecture fichier txt
[Aide] Insertion MySQL à partir d'un fichier .CVS depuis un script PHPAide a la programmation php
Aide sur Excel pour formule compliquée!Aide pour un programme bat
Besoin d'aide pour créer un script (débutante)[Java] Besoin d'aide pour petits progs de debutante
Plus de sujets relatifs à : une debutante besoin d'aide ..>


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR