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

[Fabice]

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

 

[Fabice]

C'est bon j'ai trouvé. J'ai changé un truc et j'ai mis CommandeButton1_Click et cela fonctionne.

Bonne journée