Devis Automatique

[ricorez]

Bonjour à tous,

Me voilà nouveau sur ce forum fort intéressant.
Je vais poster ici une question certainement posée avant moi mais je n'ai pas trouvé la réponse dans les messages deja existants.

Je souhaite créer un fichier afin d'éditer rapidement des devis.

Exemple:

Je dispose sur ma "feuille 1" d'une liste d'articles (admettons 10articles) avec prix d'achat, de vente...etc....
Il y a une colonne dans la quelle j'inscris la quantité souhaité par le client pour chaque article.
Le client choisis par exemple 1 unité de 5 articles dans la liste.
Je souhaite reporter ces articles sur ma "feuille 2" sous forme de liste entre mon entête et mon pied de page.

Je met un exemple en pièce jointe.

Quelle est la meilleure solution à envisager pour ce cas ?

Je suis plutôt peu expérimenté pour ce genre d'application.

Merci d'avance.
Cordialement,
Mathieu.

 

[clafouti]

Re : Devis Automatique

Bonjour,

Je te soumet une proposition avec ce que j'ai compris, le problème étant l'apparition de ligne vide! dit moi si (hormis les lignes vides) l'esprit de ta demande est respecté

 

[ricorez]

Re : Devis Automatique

Merci pour la réponse.

Mon but serait de ne pas avoir les espaces vides entre les lignes afin que ça présente bien et que ce soir imprimable directement.

Est ce possible ?

Mathieu.

 

[Dranreb]

Re : Devis Automatique

Bonjour
Je mettrais ceci dans le module Feuil2:

Private Sub Worksheet_Activate()
Me.[B9:G24].Clear
Feuil1.AutoFilterMode = False
Feuil1.[B4:G14].AutoFilter Field:=6, Criteria1:="<>0"
Feuil1.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Me.[B9]
Feuil1.AutoFilterMode = False
End Sub

Ce n'est qu'un début sans doute.

P.S. Remarque votre formule en G17 peut s'écrire plus simplement :

=SOMMEPROD($E$5:$E$14;G$5:G$14)

À +