imprimer les pages contenant '2006'

[bruno]

bonjour,

je suis bien embété car je n'arrive pas à résoudre mon problème.
j'ai un classeur avec X feuilles et Y pages. Dans ces pages il y a des tableaux avec une légende qui stipule l'année.
je souhaiterais n'imprimer seulement les pages qui contiennent qui contiennent l'année 2006.

si vous avez des idées je suis preneur.

merci

 

[Evelynetfrancois]

bonjour Bruno
en supposant que la date '2006' se trouve en 'A1' pour toutes les feuilles d un classeur

Private Sub Imprimer2006()
retour = MsgBox('Imprimer les feuilles de 2006 ! ', 4 + vbInformation, ' Impression 2006 Uniquement')
If retour = vbYes Then
Application.ScreenUpdating = False
For Each Feuille In Sheets
If Feuille.Range('A1').Value = 2006 Then
Feuille.PrintOut
End If
Next
End If
End Sub

bon travail
E et F