macro imprimer certaines feuilles

[chinel]

Salut tout le monde !


j'ai un classeur avec plusieurs feuilles je voudrais créer un bouton qui imprime 4 feuilles (la feuille A,B,C,D) la sélection d'impression pour les 4 est A1:I38



merci de votre aide !

 

[job75]

Re : macro imprimer certaines feuilles

Bonjour chinel,
Créer le bouton avec la barre de menus "Boîte à Outils Contrôles"
Clic droit sur le bouton et Visualiser le code
Introduire le code suivant (testé) :

Private Sub CommandButton1_Click()
x = Array("A", "B", "C", "D")
For i = 0 To 3
Sheets(x(i)).Range("A1:I38").PrintOut Copies:=1, Preview:=True, Collate:=True
Next
End Sub

Pour terminer, menu Exécution, Quitter le mode Création.
A+

 

[job75]

Re : macro imprimer certaines feuilles

Re

Un détail : chaque feuille va s'imprimer normalement sur 2 pages.

Pour imprimer sur une seule page : clic droit sur un onglet et Sélectionner toutes les feuilles, puis menu Fichier-Mise en page-Page et Ajuster 1 page en largeur sur 1 en hauteur.

A+

 

[chinel]

Re : macro imprimer certaines feuilles

Désolé mais cela ne fonctionne pas car mes feuilles sont cachées !


Merci de ton aide !

 

[jeanpierre]

Re : macro imprimer certaines feuilles

Bonsoir chinel, job,

Lève (dans les propriétés et dans ton code) le visible -1 - xlsheetvisible avant le début de ta macro, repositionnes le ensuite.

 

[chinel]

Re : macro imprimer certaines feuilles

Bonjour jeanpierre je suis content de te revoir !


je suis super nul !


je ne veux pas de macro
je voudrais juste un bouton (commandbutton) pour imprimer la feuille A,B,C,D en range (A1:I18) mais sans voir les feuilles juste imprimer


Merci à toi !!!

 

[jeanpierre]

Re : macro imprimer certaines feuilles

Re,

Tu ne veux pas de macro... il en faudra bien une avec ton (commandbutton), non ?

 

[job75]

Re : macro imprimer certaines feuilles

Re
Je repasse par là...
Eh oui un bouton sans macro c'est beau à voir et c'est tout.
Pour que la macro fonctionne avec des feuilles masquées, il suffit de modifier le code pour les démasquer et les remasquer :

Private Sub CommandButton1_Click()
x = Array("A", "B", "C", "D")
For i = 0 To 3
Sheets(x(i)).Visible = True
Sheets(x(i)).Range("A1:I38").PrintOut Copies:=1, Preview:=False, Collate:=True
Sheets(x(i)).Visible = False
Next
End Sub

A+

 

[chinel]

Re : macro imprimer certaines feuilles

Merci job75 ceci est une réponse précise et je comprend maintenant !

cela fonctionne super bien !


Merci à toi !!!!