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

Imprimer

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion apdf1
  • 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
A

apdf1

XLDnaute Impliqué
Bonjour,

Je suis à la recherche le code en VBA pour imprimer avec zone d'impression sans couleur et de "B2:E100) (G2:J100" sur la même feuille.

Un très grand merci à tout ceux qui pourront m'aider...

Cordialement

Max
 
Dernière édition:
Trier par date Trier par votes
Re : Imprimer

Bonjour Max,

Je reste assez perplexe, car avec 788 messages sur ce forum tu n'est pas eu l'idée de faire un petit tour avec l'enregistreur de macro.😕
sur xl2003
qui une fois épuré donne ceci :

VB: 
 ActiveSheet.PageSetup.PrintArea = "$B$2:$J$100"
    With ActiveSheet.PageSetup
        .BlackAndWhite = True
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Columns("F:F").EntireColumn.Hidden = True
    ActiveSheet.PrintOut
    Columns("F:F").EntireColumn.Hidden = False
 
Vote positif 0 Vote négatif
Re : Imprimer

Bonjour apdf1, nyko283, le forum,

Il est possible de définir la zone d'impression sans masquer/démasquer des colonnes.

Ex :

Code: 
Sub Imprimer
With Me
  .PageSetup.PrintArea = ""
  .PageSetup.PrintArea = "A2:E100,G2:J100"
  With .PageSetup
    .BlackAndWhite = True
    .FitToPagesWide = 1
    .FitToPagesTall = 1
  End With
  .PrintOut
End With
End Sub

Cordialement.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Imprimer

Bonjour Papou, Nyko,

Je vous remercie tous les deux je viens d'essayer celle a Papou sa fonctionne très bien nickel je n'arriver pas a mettre "A2:E100,G2:J100"
je mettais toujours un point virgule entre les deux. je vous remercie et vous souhaite une bonne fin d'apres midi.

@+

Max
 
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

A
  • Résolu(e)
Microsoft 365 filtres et zone d'impression Excel
Réponses
9
Affichages
310
auloin
A
L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
395
patricktoulon
  • Résolu(e)
XL 2010 Excel : Zone impression et Zone texte...
Réponses
5
Affichages
609
JTE
J
  • Résolu(e)
Microsoft 365 imprimer feuille selon valeur cellule
Réponses
6
Affichages
492
juju91
J
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
692
Jaykerz
J
H
  • Question Question
Microsoft 365 nommer automatiquement les différentes feuilles d'un dossier
Réponses
2
Affichages
121
Hdv95
H
M
  • Question Question
XL 2016 formulaire avec des frais de livraisons suivant 3 zones d 'envoi
2
Réponses
23
Affichages
529
sylvanu
G
  • Question Question
XL 2016 Calcul en boucle de valeurs cibles
Réponses
6
Affichages
408
job75
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
788
AtTheOne
S
  • Résolu(e)
XL 2016 Ne pas imprimer si 0 dans une cellule
Réponses
14
Affichages
694
AtTheOne
S
  • Résolu(e)
XL 2013 Sélection entre deux MsgBox...
2
Réponses
29
Affichages
889
Dudu2
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
626
anthoYS
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
3 K
Banbara
B
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
853
Lu76Fer
C
  • Question Question
XL 2019 Rotation Olympiades 4 épreuves, 8 équipes.
Réponses
5
Affichages
499
cc33
C
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
373
CortoXls
C
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
285
PR.
P
J
  • Résolu(e)
Microsoft 365 ComboBox en cascade
2 3
Réponses
40
Affichages
2 K
AtTheOne
  • Question Question
XL 2019 Conflit entre taille et couleur de la police dans les commentaires
2
Réponses
15
Affichages
537
Magic_Doctor
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
529
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…