Aidez-moi: VBA EXCEL

niyonabil Messages postés 11 Statut Membre -  
niyonabil Messages postés 11 Statut Membre -
Bonjour:
mon problème c'est :
je suis sur un petit projet qui calcul le montant d'un facture automatique
je vous explique plus:
le problème c'est que je veux donner le montant total ttc d'une facture et que le code vba ou excel choisira a ma place les articles avec leurs prix ttc et a finalement je vais avoir une facture bien calculer et bien présenté son erreur
je vous explique plus
si par exemple mon client acheté des câbles par un prix de 1000 £ donc la facture va être tors simple a rédigé mais si le client n'a pas sont bon de commende ou bien il n'a pas de bon de commende ni de bon de livraison donc c'est très dur pour moi de savoir la rédigé avec 1000 articles déférant.
donc pour être claire je vous un petit code qui vas me donner les articles automatiquement juste en lui entrent le montant total de la facture

5 réponses

  2.
    niyonabil Messages postés 11 Statut Membre
     
    Bonjour, Chris..
    Merci d'avoir répondu a ma question
    non ce n'est pas un projet pour école mais un projet pour un petit magasin
    S'il Vous plait Merci de Bien m'aidé
    0
  3. Chris 94 Messages postés 1937 Date d'inscription   Statut Modérateur Dernière intervention   7 536
     
    Je ne pourrai sans doute pas t'aider directement...

    Tu as tout intérêt à proposer ce que, toi, tu ferais pour que les intervenants puissent te guider.
    0
  4. niyonabil Messages postés 11 Statut Membre
     
    Bonsoir,
    ok voila je suis un gérant d'un petit magasin de vente des produit lectrique
    voila
    les articles sont des cable et des lampes et des connecteurs et autres articles qui sont pas important
    ce que je veux c'est une petit app avec excel qui peut m'aidez a fair la facturation
    mais a condition que je donne juste le montant de la facture = montant payé TTC et que le code vba ou excel choisi les articles avec leurs pris unitaire et prix total unitaire comme une facture avec un bon de livrison
    et merci
    exemple
    net payé = 10000 £
    excele choisira entre une liste d'articles les prix qui denrant a la fin le montant 10000 £
    si on a un cable 1 = 10 $
    et un autre = 15 £
    et un autre = 25 £
    donc
    article 1= 10 >>> si la quantité et >0 l'articles et choisi mais pas toute la quantité
    article 2= 15 >>> si la quantité et >0 l'articles et choisi mais pas toute la quantité
    article 3= 25 >>> si la quantité et >0 l'articles et choisi mais pas toute la quantité
    alors on va avoir
    article1 = 10 £ = 1000 unité
    article2 = 15£ = 1500 unité
    article3 = 25£ = 2500 unité
    donc
    article 1 = 100 unité x 10 £ = 1000 £
    le réste = 9000£
    article 2 =150 £ x 15 £ = 2250 £
    le réste = 6750 £
    et on poursui comme ça jusqu'a que excel nous donne une liste articles avec leurs prix et a la fin le montant de mander = 10000 £
    et Merci infiniment
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. niyonabil Messages postés 11 Statut Membre
     
    salut; j'ai trouver un truck sur vb scripte voila le code c'est un peut prés de ce que je veux 
    dim resu,res
    dim tableau()
    redim preserve tableau (10,2)'tableau 2 dimensions
    'liste d'articles
    tableau(1,1) = "article 1"
    tableau(2,1) = "article 2"
    tableau(3,1) = "article 3"
    tableau(4,1) = "article 4"
    tableau(5,1) = "article 5"
    tableau(6,1) = "article 6"
    tableau(7,1) = "article 7"
    tableau(8,1) = "article 8"
    tableau(9,1) = "article 9"
    tableau(10,1) = "article 10"
    'prix articles (dh)
    tableau(1,2) = 10
    tableau(2,2) = 13
    tableau(3,2) = 430
    tableau(4,2) = 120
    tableau(5,2) = 210
    tableau(6,2) = 90
    tableau(7,2) = 65
    tableau(8,2) = 12
    tableau(9,2) = 1200
    tableau(10,2) = 980
    Do Until res > 1000 and res < 10000' montant final compris entre 9000 et 10000
    intLowNumber = 1
    intHighNumber = 10
    Randomize
    n1 = (Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber))'nombre aléatoire
    resu = resu & tableau(n1,1) & vbCrLf
    res = res+tableau(n1,2)
    msgbox resu & vbCrLf & "total = " & res & " Dirhams"
    loop
    mais je la veux sur excel aidez moi svp
    0