Macro - Recherche une valeur et imprime une fiche

DoubleZero

XLDnaute Barbatruc

• 16 Janvier 2016

• #2

Re : Macro - Recherche une valeur et imprime une fiche

Bonjour, gourdin, le Forum,

Comme ceci ?

Code:

Option Explicit
Sub Imprimer()
    Dim nb
    [e8].AutoFilter
    Columns("a:c").EntireColumn.Hidden = True
    ActiveSheet.[d8:f10000].AutoFilter Field:=2, Criteria1:=[b4].Value
    nb = Application.Subtotal(3, [e9:e1000])
    ActiveSheet.PrintOut Copies:=nb, Collate:=True
    [e8].AutoFilter
    Columns("a:c").EntireColumn.Hidden = False
End Sub

A bientôt

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 16 Janvier 2016

• #3

Re : Macro - Recherche une valeur et imprime une fiche

Bonjour gourdin,
Bisous Chère petite Anesse,

Je l'ai fait d'une manière différente alors je joins le résultat de mon travail.

Bon WE

A +

Cordialement.

 

Pièces jointes

• Copie de FORUM_janv2016.xlsm

  19.1 KB · Affichages: 28

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 16 Janvier 2016

• #4

Re : Macro - Recherche une valeur et imprime une fiche

Re-bonjour, gros bisous, Papou-net ,

Papou-net à dit:

... Je l'ai fait d'une manière différente...

Cliquez pour agrandir...

Et moi n'avoir pas su lire correctement la demande.

A bientôt

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 16 Janvier 2016

• #5

Re : Macro - Recherche une valeur et imprime une fiche

Merci à vous 2 d'avoir passer du temps pour m'aider

La solution de Double zéro me semble convenir et maintenant je vais essayer de l'adapter à mon fichier d'origine.

 

Vote positif 0 Vote négatif