macro d'impression avec option

[Yvon HERVE]

Bonjour à tous,

Je cherche à faire une macro qui imprimera 3 feuilles d'un classeur par défaut et une 4mè et/ou une 5ème suivant si une des cases à cocher est activée ou non.

Merci de vos réponses, essayer d'être le plus explicite je débute.

Encore merci à ceux qui 'savent' de transmettre gracieusement leur savoir

Yvon

 

[MichelXld]

bonsoir Yvon

j'espere que cet exemple répondra à ta demande


Sub Impression()
'impression systematique des Feuil1 , Feuil5 et Feuil7
Sheets(Array('Feuil1', 'Feuil5', 'Feuil7')).PrintOut

'impression conditionnelle en fonction des Checkboxs
If Sheets('Feuil1').CheckBox1 = True Then Sheets('Feuil8').PrintOut
If Sheets('Feuil1').CheckBox2 = True Then Sheets('Feuil9').PrintOut
End Sub


bonne soiree
MichelXld

 

[Yvon]

C'est super je vais pouvoir avancer je te remercie j'essaie et je te tiens au courant.

Merci
Yvon 🙂

 

[Yvon]

😱 Heu j'ai ptit souci, ton code est surement le bon par contre je n'arrive pas à le lancer via un bouton, voila ce que j'ai fait j'ai copier ton code entre
private sub ok_click() et end sub
cela marche pas.
j'ai essayer d'enlever private sub ok_clik()
marche pas non plus

j'ai chercher sur le forum pas trouvé la réponse est ce que je positionne mon code au bon endroit j'ai un doute.

merci d'avance

yvon petit scarabee de l'Excel

 

[MichelXld]

bonjour Yvon

le bouton est placé dans une feuille ou dans un userform ?

s'il s'agit d'un Userform tu peux essayer

Private Sub ok_Click()
'impression systematique des Feuil1 , Feuil5 et Feuil7
Sheets(Array('Feuil1', 'Feuil5', 'Feuil7')).PrintOut

'impression conditionnelle en fonction des Checkboxs
If CheckBox1 = True Then Sheets('Feuil8').PrintOut
If CheckBox2 = True Then Sheets('Feuil9').PrintOut
End Sub


sinon peux tu preciser ce qui ne marche pas : tu as un message d'erreur ? si oui lequel ? as tu bien adapté le nom des feuilles à imprimer ?


bonne journée
MichelXld

 

[Yvon]

Je te livre le code copié tel quel en fait dans la macro et cela ne marche pas le débog surligne en jaune la ligne sheets Array('Feuil17', 'Feuil17', 'Feuil11')).PrintOut ; je pensais avoir un trait de génie en rajoutant le nom des feuilles mais cela ne marche pas; par contre je ne suis pas sur qu'il faille ajouter le nom du useform
avant la checkbox
Private Sub OK_Click()
'impression systematique des Feuil1 , Feuil5 et Feuil7
Sheets(Array('Feuil17', 'Feuil17', 'Feuil11')).PrintOut

'impression conditionnelle en fonction des Checkboxs
If menuimpression2.CheckBox1 = True Then Sheets('Feuil5').PrintOut
If menuimpression2.CheckBox2 = True Then Sheets('Feuil15').PrintOut

End Sub

e n tout cas merci de ton aide

 

[yvon]

Eureka, j'ai compris le problème, il faut utiliser les numéros de feuille, et non pas ('feuill1'), le seul souci c'est qu'elle ne m'impime pas les bons numéro, je n'aies pas encore trouvé la logique de l'impression, j'utilise pourtant le numéro qui est mentionné après feuill et avant le nom de l'onglet, y a surement une explication l'essentiel est que la macro fonctionne le reste n'est qu'ajustage.

Merci Michel,

Yvon