Impression par double-clic dans listview

Bonjour,

Comme indiqué dans le titre, je souhaite imprimer une ligne dans une listview par un double-clic.

J'ai fait de longues recherches sur le net, mais je n'ai rien trouvé qui me plait vraiment, la plupart des codes pour cette action en particulier sont de vraies usines à gaz, et j'aimerais si possible que le code ne soit pas trop compliqué, c'est plus facile à comprendre

Sur la feuille "Index", cliquer sur le bouton "Recherche et Impression OF" pour faire apparaître le formulaire, les données à imprimer devront être envoyées vers la feuille "Modèle OF".

Je sais bien que je n'ai même pas fait une ébauche de code pour cette fonction d'impression, mais je ne vois vraiment pas comment faire ça, donc si l'un d'entre vous est assez motivé pour s'y coller, ça serait vraiment sympa.

En guise d’acompte, je propose un "Merci"

Bonjour Wawach le forum

bah le fichier il est ou???

a+

papou

Raaahhhh

J'avais pourtant mis le fichier, mais comme ça n'a pas marché, je pense qu'il doit être trop gros, je corrige ça.

Bonsoir Wawach le forum

moi j'aimerais bien savoir pourquoi mon nom à disparu des macros de l'userform??

car c'est moi qui ai fait ces macros!!!

pour tes infos à coller si au minimum tu avais mis ou elles doivent aller dan,s la feuille Of , j'aurais répondu

n'ayant pas de boule de cristal !!!!!!!

a+

Papou

Salut,

J'ai trouvé cette macro dans un fichier qui s'appelle Fabdu57100 V4, et y'avait pas le nom de l'auteur dans le code (c'est d'ailleurs rarement le cas), mais si c'est ton code, je te remercie pour cette réalisation qui me convient parfaitement

Pour les infos à coller, voici le détail, en respectant l'ordre du formulaire :

With WorkSheets("Modèle OF")

.Range("G14:H14") = N° de lot produit fini

.Range("B8") = Date

.Range("A14:B14") = N° de commande client

.Range("C14:E14") = Article

.Range("F14") = Poids net

.Range("B37:C37") = Ingrédient 1

.Range("D37:E37") = Quantité ing 1

.Range("F37:G37") = N° de lot ing 1

.Range("B38:C38") = Ingrédient 2

.Range("D38:E38") = Quantité ing 2

.Range("F38:G38") = N° de lot ing 2

.Range("B39:C39") = Ingrédient 3

.Range("D39:E39") = Quantité ing 3

.Range("F39:G39") = N° de lot ing 3

.Range("B40:C40") = Ingrédient 4

.Range("D40:E40") = Quantité ing 4

.Range("F40:G40") = N° de lot ing 4

.Range("B41:C41") = Ingrédient 5

.Range("D41:E41") = Quantité ing 5

.Range("F41:G41") = N° de lot ing 5

.Range("B42:C42") = Ingrédient 6

.Range("D42:E42") = Quantité ing 6

.Range("F42:G42") = N° de lot ing 6

.Range("B43:C43") = Ingrédient 7

.Range("D43:E43") = Quantité ing 7

.Range("F43:G43") = N° de lot ing 7

.Range("A26") = 25 Kg

.Range("B26") = 20 Kg

.Range("C26") = 10 Kg

.Range("D26") = 5 Kg

.Range("E26") = 1 Kg

.Range("F26") = 0.2 Kg

.Range("G26") = 5 L

.Range("H26") = 1 L

à +