macro d'impression avec option

  • Initiateur de la discussion Yvon HERVE
  • Date de début
Y

Yvon HERVE

Guest
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

XLDnaute Barbatruc
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
 
Y

Yvon

Guest
:eek: 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

XLDnaute Barbatruc
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
 
Y

Yvon

Guest
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
 
Y

yvon

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
312 848
Messages
2 092 787
Membres
105 534
dernier inscrit
EmilieG60