Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Définir plusieurs zones impression, dans 1 onglet

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion toune21
  • Date de début Date de début

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
T

toune21

XLDnaute Impliqué
Bonjour à tous,

Mon fichier comporte 12 onglets.
Par onglet, comment imprimer plusieurs zones ?
Exemple :
Onglet 02, impression des zones suivantes, ces zones sont identiques pour tous les onglets.
- A1 : I150
- A51 : I131
- A132 : I181
- A182 : I154
- K1 : U 59
- K60 : Y123
- K124 : T180
- K184 : V248

Je pense qu'il faut créer un onglet "Impression", et avec une macro il me proposerait le mois à imprimer et le n° de page.
Quel mois voulez imprimer ? 02
Quelle page voulez imprimer ? page 1 ou le nom 🙄

Il faudrait peut être nommer les zones !!!! à imprimer

Merci pour vos solutions.
Cordialement
Voilà le fichier, merci encore
MM
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Définir plusieurs zones impression, dans 1 onglet

Bonsoir,


Merci à tous les deux,

Les deux solutions me conviennent très bien,
@Kjin je vais adopter la tienne, comme tu peux t'en douter j'ai plus que 12 onglets.

@111 je garde la tienne 'pour un autre fichier'.

Salutations amicales,
 
Vote positif 0 Vote négatif
Re : Définir plusieurs zones impression, dans 1 onglet

Bonjour kjin, et à tous,

Pourrais je ajouter un message si clic sur le bouton imprimer et aucun onglet est sélectionner,

MsgBox "Aucun onglet n'a été sélectionné !", vbCritical 'message
si oui à quel endroit je peux le mettre ?

Code: 
Private Sub CommandButton1_Click() 'bouton imprimer
Dim i%, x%, zone$
For i = 0 To ListBox2.ListCount - 1
    If ListBox2.Selected(i) Then
        zone = zone & ListBox2.List(i, 1) & ","
    End If
Next
zone = Left(zone, Len(zone) - 1)
Me.Hide
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
        With Sheets(ListBox1.List(i))
            .PageSetup.PrintArea = ""
            .PageSetup.PrintArea = zone
            '.PrintOut                      ' à décocher pour imprimer
            .PrintPreview                   ' à cocher pour imprimer
        End With
    End If
Next
Me.Show
End Sub
Merci,
MM
 
Vote positif 0 Vote négatif
Re : Définir plusieurs zones impression, dans 1 onglet

Bonjour à tous,
Code: 
Private Sub CommandButton1_Click() 'bouton imprimer
Dim i%, x%, zone$
For i = 0 To ListBox2.ListCount - 1
    If ListBox2.Selected(i) Then
        zone = zone & ListBox2.List(i, 1) & ","
    End If
Next
If zone = "" Then Exit Sub
zone = Left(zone, Len(zone) - 1)
Me.Hide
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
        With Sheets(ListBox1.List(i))
            .PageSetup.PrintArea = ""
            .PageSetup.PrintArea = zone
            '.PrintOut                      ' à décocher pour imprimer
            .PrintPreview                   ' à cocher pour imprimer
        End With
    End If
Next
Me.Show
End Sub
la modif concerne uniquement l'ajout de la ligne:
If zone = "" Then Exit Sub


à+
Philippe
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

J
  • Résolu(e)
Microsoft 365 Impression groupée de plusieurs feuilles dans plusieurs onglets
2
Réponses
15
Affichages
605
Phil69970
L
  • Question Question
XL 2016 Impression personnalisée multi onglets
Réponses
8
Affichages
1 K
fanch55
F
  • Question Question
Microsoft 365 Code VBA pour créer une impression de plusieur onglet
Réponses
14
Affichages
6 K
job75
C
  • Question Question
Définir des zones d'impression sur plusieurs onglets
Réponses
0
Affichages
1 K
croixrousienne
C
K
  • Question Question
copier les lignes non vides de plusieurs onglets dans un nouvel onglet
Réponses
1
Affichages
3 K
Guest
G
M
[REF] Wiki 4 de MichelXld (Fonctions, Evenements, Dates et calendriers, Flash , Ooo)
Réponses
0
Affichages
35 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…