Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Impression selon critères de selection dans un tableau

Fabice

XLDnaute Nouveau
Bonjour à tous,

Voila je suis plus que novice dans les macro d'excel, mais je me suis lancé. J'ai créé une macro pour imprimer différence feuille dans un même classeur selon qu'un croix est indiqué dans un tableau situé dans une feuille paramètre. Cela donne ceci :

Sub Impression_Plaquette()
'
' Impression Macro
'
If [F7] = "X" Then Worksheets("Page de Garde").PrintOut
If [F8] = "X" Then Worksheets("Sommaire").PrintOut
If [F9] = "X" Then Worksheets("Intercalaire").PrintOut
If [F10] = "X" Then Worksheets("Balance Comparative").PrintOut
If [F11] = "X" Then Worksheets("Bilan - Actif").PrintOut
If [F12] = "X" Then Worksheets("Bilan - Passif").PrintOut
If [F13] = "X" And [F14] = "X" Then Worksheets("Résultat").PrintOut
If [F13] = "X" And [F14] <> "X" Then Worksheets("Résultat").Range("A1:M63").PrintOut
If [F15] = "X" And [F16] = "X" Then Worksheets("SIG").PrintOut
If [F15] = "X" And [F16] <> "X" Then Worksheets("SIG").Range("A1:J42").PrintOut
If [F17] = "X" Then Worksheets("Intercalaire 2").PrintOut
If [F18] = "X" Then Worksheets("Détail Bilan Actif").PrintOut
If [F19] = "X" Then Worksheets("Détail Bilan Passif").PrintOut
If [F20] = "X" And [F21] = "X" Then Worksheets("Détail Résultat").PrintOut
If [F20] = "X" And [F21] <> "X" Then Worksheets("Détail Résultat").Range("A1:G559").PrintOut
If [F22] = "X" And [F23] = "X" Then Worksheets("Détail SIG").PrintOut
If [F22] = "X" And [F23] <> "X" Then Worksheets("Détail SIG").Range("A1:G386").PrintOut

'
End Sub

Si je lance ma macro manuellement elle fonctionne à merveille, si je l'as joins à un bouton elle ne m'imprime que les 2 premières. Avez-vous une idée ?

Merci d'avance

Fabrice
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…