Microsoft 365 macro pour imprimer plusieur feuille d'un classeur

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

nicoco784

XLDnaute Nouveau
bonjour

je cherche a imprimer un fichier excel avec plusieurs feuilles d'on des cache, que je ne veut pas imprimer et avoir plusieurs copie des certaine feuil de se classeur.
j'aimerais un tableau ou je peut rentrer le nombre de copie désire pour telle feuil

si il avais une personne gentil pour explique ça serais cool

merci de votre aide
 
Trier par date Trier par votes
Bonjour à tous
@gbinforme je suis plutôt friand de boite de dialog perso
j'aime bien ton truc

cependant on peut pousser un peu plus loin
en effet si on a 30 feuilles par exemple ton userform sera ingérable
en terme de taille
je te propose une adaptation avec une frame scroller uniquement au delà de 10 feuilles pour garder une taille de dialogue raisonnable
rien ne nous empêche de faire un peu de design les entêtes

d'autre part boucler sur les worksheets t'empêcherais de prendre en compte les sheets graphique
on bouclera donc sur les sheets et non la collection worksheets

VB: 
Option Explicit
Private Sub UserForm_Activate()
    Dim H&, W&, T&, CtrL, CtrL2, f, a&: H = 15: W = 90: T = 5
    Set CtrL = Me.Controls.Add("Forms.Label.1", "titleFN", True)

    'titre
    With CtrL: .Caption = "Feuille  à imprimer": .Move 5, 1, W, H: .BorderStyle = 1: .TextAlign = 2: .ForeColor = vbWhite: End With
    Set CtrL2 = Me.Controls.Add("Forms.Label.1", "titleNB", True)
    With CtrL2: .Caption = "Nb Copies": .Move CtrL.Left + CtrL.Width + 5, 1, 40, H: .BorderStyle = 1: .TextAlign = 2: .ForeColor = vbWhite: End With

    'Liste des feuilles à imprimer
    For Each f In ThisWorkbook.Sheets
        a = a + 1
        Set CtrL = Me.Frame1.Controls.Add("Forms.Label.1", "title" & a, True)
        With CtrL: .Caption = f.Name & " : ": .Move 5, T, W, H: .BorderStyle = 1: .TextAlign = 2: End With
        Set CtrL2 = Me.Frame1.Controls.Add("Forms.textbox.1", "NBC" & a, True)
        With CtrL2: .Tag = f.Name: .Move CtrL.Left + CtrL.Width + 5, T, 40, H: End With
        T = T + 18
    Next

    'redimensionnement du userform ,de la frame + scrollbars si necessaire, placement du bouton
    'pour un visuel aisé la frame est limité  à  10  feuilles
    'au dela de 10 feuilles  la frame  a une scrollbar verticale
    With Frame1
        .Move 1, 18, CtrL2.Left + CtrL2.Width + 10, Application.Min(185 + 5, CtrL2.Top + H + 5)
        If CtrL2.Top + 20 > (18 * 11) + 5 Then .ScrollBars = 2: .ScrollHeight = CtrL2.Top + 20: .Width = .Width + 10
    End With
    Me.Width = Frame1.Width + 5 + 1
    Me.Height = Frame1.Height + Frame1.Top + 50
    BtImprim.Move ((Me.InsideWidth) - BtImprim.Width) / 2, Me.InsideHeight - 25
End Sub


Private Sub BtImprim_Click()
    Dim CtrLx
    For Each CtrLx In Frame1.Controls
        If CtrLx.Tag <> "" Then If CtrLx.Value <> "" Then Sheets(CtrLx.Tag).PrintOut Copies:=Val(CtrLx.Value), Collate:=False
    Next
End Sub

exemple avec avec 5 feuilles
1711445089692.png


exemple avec avec 10 feuilles
1711444604640.png


avec plus de 10 feuilles
demo.gif
 

Pièces jointes

Vote positif 0 Vote négatif
patricktoulon à dit:
Bonjour à tous
@gbinforme je suis plutôt friand de boite de dialog perso
j'aime bien ton truc

cependant on peut pousser un peu plus loin
en effet si on a 30 feuilles par exemple ton userform sera ingérable
en terme de taille
je te propose une adaptation avec une frame scroller uniquement au delà de 10 feuilles pour garder une taille de dialogue raisonnable
rien ne nous empêche de faire un peu de design les entêtes

d'autre part boucler sur les worksheets t'empêcherais de prendre en compte les sheets graphique
on bouclera donc sur les sheets et non la collection worksheets

VB: 
Option Explicit
Private Sub UserForm_Activate()
    Dim H&, W&, T&, CtrL, CtrL2, f, a&: H = 15: W = 90: T = 5
    Set CtrL = Me.Controls.Add("Forms.Label.1", "titleFN", True)

    'titre
    With CtrL: .Caption = "Feuille  à imprimer": .Move 5, 1, W, H: .BorderStyle = 1: .TextAlign = 2: .ForeColor = vbWhite: End With
    Set CtrL2 = Me.Controls.Add("Forms.Label.1", "titleNB", True)
    With CtrL2: .Caption = "Nb Copies": .Move CtrL.Left + CtrL.Width + 5, 1, 40, H: .BorderStyle = 1: .TextAlign = 2: .ForeColor = vbWhite: End With

    'Liste des feuilles à imprimer
    For Each f In ThisWorkbook.Sheets
        a = a + 1
        Set CtrL = Me.Frame1.Controls.Add("Forms.Label.1", "title" & a, True)
        With CtrL: .Caption = f.Name & " : ": .Move 5, T, W, H: .BorderStyle = 1: .TextAlign = 2: End With
        Set CtrL2 = Me.Frame1.Controls.Add("Forms.textbox.1", "NBC" & a, True)
        With CtrL2: .Tag = f.Name: .Move CtrL.Left + CtrL.Width + 5, T, 40, H: End With
        T = T + 18
    Next

    'redimensionnement du userform ,de la frame + scrollbars si necessaire, placement du bouton
    'pour un visuel aisé la frame est limité  à  10  feuilles
    'au dela de 10 feuilles  la frame  a une scrollbar verticale
    With Frame1
        .Move 1, 18, CtrL2.Left + CtrL2.Width + 10, Application.Min(185 + 5, CtrL2.Top + H + 5)
        If CtrL2.Top + 20 > (18 * 11) + 5 Then .ScrollBars = 2: .ScrollHeight = CtrL2.Top + 20: .Width = .Width + 10
    End With
    Me.Width = Frame1.Width + 5 + 1
    Me.Height = Frame1.Height + Frame1.Top + 50
    BtImprim.Move ((Me.InsideWidth) - BtImprim.Width) / 2, Me.InsideHeight - 25
End Sub


Private Sub BtImprim_Click()
    Dim CtrLx
    For Each CtrLx In Frame1.Controls
        If CtrLx.Tag <> "" Then If CtrLx.Value <> "" Then Sheets(CtrLx.Tag).PrintOut Copies:=Val(CtrLx.Value), Collate:=False
    Next
End Sub

exemple avec avec 5 feuilles
Regarde la pièce jointe 1193550

exemple avec avec 10 feuilles
Regarde la pièce jointe 1193547

avec plus de 10 feuilles
Regarde la pièce jointe 1193549
Cliquez pour agrandir...
merci de ta réponse
j'aime beaucoup avec ta boite de dialogue
je te donne plus de detail sur mon fichier alors j'ai 18 feuil visible sur 42 le reste es masquer
peut tu me dire comme integrer a mon ficher et comment modifier la boite de dialogue pour quelle soit plus grande sur ma version elle est trop petite on voie même pas le nombre de copie et feuille a imprimer

merci pour ton aide
 
Vote positif 0 Vote négatif
re
le voici un peu plus gros
et tu a désormais les variables H,W ecx et VueMax pour paramétrer la taille
change tout le code du userform
VB: 
Private Sub UserForm_Initialize()

    Dim H&, W&, T&, CtrL, CtrL2, f, a&, ecX&, VueMax
    H = 25    'hauteur des controls
    W = 150    'largeur des controls de gauche(les noms de feuille)
    T = 5    'le top de depart
    ecX = 3    'espaces  entre les controls
    VueMax = 10    'nombre de feuille visible dans le dialogue avant la scroll

    'titre
    Set CtrL = Me.Controls.Add("Forms.Label.1", "titleFN", True)
    With CtrL: .Caption = "Feuille  à imprimer": .Move 5, 1, W, H: .BorderStyle = 1: .TextAlign = 2: .ForeColor = vbWhite
        .Font.Size = 14: End With
    Set CtrL2 = Me.Controls.Add("Forms.Label.1", "titleNB", True)
    With CtrL2: .Caption = "Copies": .Move CtrL.Left + CtrL.Width + 5, 1, 60, H: .BorderStyle = 1: .TextAlign = 2: .ForeColor = vbWhite
        .Font.Size = 14: End With

    'Liste des feuilles à imprimer
    For Each f In ThisWorkbook.Sheets
        a = a + 1

        Set CtrL = Me.Frame1.Controls.Add("Forms.Label.1", "title" & a, True)
        With CtrL: .Caption = f.Name & " : ": .Move 5, T, W, H: .BorderStyle = 1: .TextAlign = 2: .Font.Size = 14: End With
        Set CtrL2 = Me.Frame1.Controls.Add("Forms.textbox.1", "NBC" & a, True)
        With CtrL2: .Tag = f.Name: .Move CtrL.Left + CtrL.Width + 5, T, 60, H: .Font.Size = 14: End With
        T = T + H + ecX
    Next

    'VueMax = a   'pour faire peter la limite de vuemax bien sur si l'ecran le permet

    'redimensionnement du userform ,de la frame + scrollbars si necessaire, placement du bouton
    'pour un visuel aisé la frame est limité  à  10  feuilles
    'au dela de 10 feuilles  la frame  a une scrollbar verticale
    With Frame1
        .Move 1, (H + ecX), CtrL2.Left + CtrL2.Width + 10, (H + ecX) * VueMax
        If CtrL2.Top + H > ((H + ecX) * VueMax) + 5 Then .ScrollBars = 2: .ScrollHeight = CtrL2.Top + H: .Width = .Width + 10
    End With
    Me.Width = Frame1.Width + 5 + 1
    Me.Height = Frame1.Height + Frame1.Top + 50
    BtImprim.Move 0, Me.InsideHeight - H - 2, Me.Width, H
BtImprim.Font.Size = 14
End Sub


Private Sub BtImprim_Click()
    Dim CtrLx
    For Each CtrLx In Frame1.Controls
        If CtrLx.Tag <> "" Then If CtrLx.Value <> "" Then Sheets(CtrLx.Tag).PrintOut Copies:=Val(CtrLx.Value), Collate:=False
    Next
End Sub
 
Vote positif 0 Vote négatif
nicoco784 à dit:
peut tu me dire comme integrer a mon ficher et comment modifier la boite de dialogue pour quelle soit plus grande sur ma version elle est trop petite on voie même pas le nombre de copie et feuille a imprimer
Cliquez pour agrandir...
Voilà un formulaire avec des textes plus grands.
Les feuilles non visibles ne peuvent pas être imprimées et donc ne sont pas affichées.
Pour l'intégrer dans ton classeur il suffit de sélectionner la feuille du formulaire dans l'éditeur VBE et de la tirer dans ton classeur ouvert simultanément.
Ensuite pour le lancer tu as un exemple dans "Thisworbook"
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
re
Bonjour à tout les deux
nouvelle version avec Bouton inséré dans le ruban dynamiquement en premier dans l'onglet accueil
je dis tout dans la vidéo
au final il vous suffit de régler la hauteur de la variable "H" et tout le reste s'ajuste
Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

pour l'intégrer dans votre projet
il vous suffit de :
  1. faire glisser dans la fenêtre VBE , l'userform dans votre projet
  2. copier les deux subs du module thisworkbook dans le votre
  3. copier la sub show du module standard dans un des vôtres

terminé c'est réglé 😉
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

jeff1494
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
375
jeff1494
jeff1494
K
  • Résolu(e)
Microsoft 365 Impression d'un tableau sans cases vides
Réponses
13
Affichages
525
KadNes
K
Y
  • Résolu(e)
XL 2021 Macro pour imprimer un document
Réponses
2
Affichages
854
Yoan_VBA
Y
suzannegobeil
  • Résolu(e)
XL 2016 Créer Macro pour imprimer un nombre d'étiquettes en fonction d'une colonne Excel "Quantité"
Réponses
4
Affichages
1 K
suzannegobeil
suzannegobeil
C
  • Résolu(e)
Macro VBA. Impression de plusieurs feuilles d'un classeur en fonction d'une autre feuille
2
Réponses
16
Affichages
2 K
Hasco
Hasco
S
  • Question Question
Autres Macro sous conditions
Réponses
3
Affichages
477
scorpileo
S
A
  • Question Question
XL 2013 Macro pour copier des colonne d'une feuille A dans un classeur sur une feuille B dans un autre classeur .
Réponses
7
Affichages
1 K
Hasco
Hasco
9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
L
  • Question Question
XL 2019 VBA - classeur maitre agrégateur de fichiers élèves
Réponses
10
Affichages
1 K
yal
Y
M
  • Question Question
Microsoft 365 Import d'un fichier .xlsx et analyse des données en VBA
Réponses
3
Affichages
2 K
Massy1
M
G
  • Question Question
XL 2013 Macro avec nom de fichier et de feuille modifiable
Réponses
3
Affichages
1 K
sylvanu
sylvanu
P
  • Question Question
Microsoft 365 Besoin de votre aide svp formule excel + macro pour la gestion d'un planning Gantt
Réponses
1
Affichages
982
Piksaw
P
J
  • Résolu(e)
XL 2016 Comment importer un classeur Excel dans un autre?
Réponses
2
Affichages
2 K
Jovial87
J
P
  • Question Question
XL 2019 Enregistrer et imprimer une feuille en pdf
Réponses
9
Affichages
2 K
PeewhY
P
J
  • Question Question
XL 2016 Importer données depuis fichier source - VBA
Réponses
0
Affichages
2 K
james7734
J
B
  • Résolu(e)
XL 2016 macro pour enlever/remettre la protection de toute les feuilles d'un fichier
Réponses
12
Affichages
3 K
berru76
B
H
  • Question Question
XL 2016 Récupérer variable dans un onglet d'un autre classeur
Réponses
2
Affichages
2 K
Hogwarts
H
R
  • Résolu(e)
XL 2010 Copie de feuilles d'un classeur dans un autre selon certains critères
Réponses
7
Affichages
2 K
fanch55
fanch55
D
  • Question Question
XL 2019 Macro pour imprimer et enregistrer
Réponses
0
Affichages
1 K
Dim.Reichart
D
B
  • Question Question
XL 2016 Besoin d'aide pour correction macro en version excel 2016
Réponses
3
Affichages
1 K
Hasco
Hasco
Retour