Impression à partir d'une liste de données

[ivan27]

Bonjour à tous,
Je cherche à imprimer sous forme de fiches les lignes sélectionnées dans une liste de données.
Je vous joins un exemple succinct.
Une liste de données sur laquelle certaines lignes ont été sélectionnées (colonne A).
Je souhaite imprimer chaque ligne sélectionnée, sur une feuille différente, selon une disposition des champs prédéfinie.
Mes recherches sur le forum sont restées vaines.
Avec mes remerciements anticipés,
Ivan.

 

[jpb388]

Re : Impression à partir d'une liste de données

Bonjour
Regarde si cela te va

 

[fanfan38]

Re : Impression à partir d'une liste de données

Bonjour
La solution ci dessous utilise une macro...
A chaque fois que vous saisissez un X dans la colonne A cette macro se mettra en route
Pour imprimer directement (sans passer par l'aperçu) remplacer printpreview par print...

clic droit sur le nom de la feuille
Choisir "Visualiser le code"
copier la macro ci dessous


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
lig = Target.Row
Sheets("Feuil3").Range("c3").Value = Range("D" & lig).Value
Sheets("Feuil3").Range("c5").Value = Range("B" & lig).Value
Sheets("Feuil3").Range("f5").Value = Range("C" & lig).Value
Sheets("Feuil3").Range("c7").Value = Range("E" & lig).Value
Sheets("Feuil3").Range("d9").Value = Range("F" & lig).Value
Sheets("Feuil3").Range("c11").Value = Range("G" & lig).Value
Sheets("Feuil3").PrintPreview
End Sub

A+ François

 

[ivan27]

Re : Impression à partir d'une liste de données

Merci Messieurs,

Vos solutions respectives correspondent à ce que je cherchais.

@+
Ivan