Macro - Recherche une valeur et imprime une fiche

[gourdin]

Bonjour,

Je recherche le code d'une macro permettant d'imprimer une fiche à chaque fois qu'une valeur choisie est trouvée dans un tableau.

Mieux qu'un discours, la pièce jointe.

Merci.

 

[DoubleZero]

Re : Macro - Recherche une valeur et imprime une fiche

Bonjour, gourdin, le Forum,

Comme ceci ?

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

 

[Papou-net]

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.

 

[DoubleZero]

Re : Macro - Recherche une valeur et imprime une fiche

Re-bonjour, gros bisous, Papou-net ,

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

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

A bientôt

 

[gourdin]

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.