VBA: comment imprimer une zone d'une feuille excel

Résolu/Fermé

Feuille

mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 - 1 nov. 2012 à 12:15
GermPeru Messages postés 172 Date d'inscription mercredi 7 décembre 2016 Statut Membre Dernière intervention 27 mars 2018 - 3 janv. 2017 à 23:52

Bonjour,

L'aide de VB ne m'apporte rien alors voici mon problème:
J'ai défini les paramètres nécessaire pour imprimer une zone d'une feuille mais je ne trouve pas la bonne instruction pour cela. La seule que je connaisse est après:

Private Sub CommandButton7_Click() 'Imprimer
Dim lgdeb, lgfin, cldeb, clfin As Integer
MsgBox " Etes-vous sur de vouloir imprimer ?"
lgdeb = 1 + TrimB * decalC
cldeb = 67
lg fin = lgdeb + 30
clfin = 81

Worksheets(Array(" ")).PrintOut

End Sub

Quelqu'un peut-il m'aiguiller SVP?
Merci

A voir également:

Excel vba imprimer zone d'impression
Spouleur d'impression - Guide
Zone telechargement - Accueil - Outils
Liste déroulante excel - Guide
Comment imprimer un tableau excel sur une seule page - Guide
Si et excel - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 1 712
1 nov. 2012 à 15:55

Bonjour,

Private Sub CommandButton7_Click() 'Imprimer
  Dim lgdeb, lgfin, cldeb, clfin As Integer
  MsgBox " Etes-vous sur de vouloir imprimer ?"
  lgdeb = 1 + TrimB * decalC
  cldeb = 67
  lgfin = lgdeb + 30
  clfin = 81

  'adaptez le nom de la feuille
  Sheets("Feuil1").Select
  Range(Cells(lgdeb, cldeb), Cells(lgfin, clfin)).Select
  Selection.PrintOut

  ou

  Sheets("Feuil1").Range(Cells(lgdeb, cldeb), Cells(lgfin, clfin)).PrintOut

End Sub

Bonne suite

mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
2 nov. 2012 à 09:59

Merci f894009,

Pouvez-vous me dire aussi comment je peux poser la question en n'ayant la possibilité de répondre non et sortir de l'impression svp?

mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
2 nov. 2012 à 23:46

Je la pose sur un autre poste.

f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 1 712
3 nov. 2012 à 08:06

Bonjour,

je poste quand meme.

Private Sub CommandButton7_Click() 'Imprimer
  Dim lgdeb, lgfin, cldeb, clfin As Integer
  Dim Msg, Style, Title, Help, Ctxt, Response, MyString
  '------------
  'Aide EXCEL
  'Dim Msg, Style, Title, Help, Ctxt, Response, MyString
  'Msg = "Souhaitez-vous continuer?"    ' Définit le message.
  'Style = vbYesNo + vbCritical + vbDefaultButton2    ' Définit les boutons.
  'Title = "Démonstration de MsgBox "    ' Définit le titre.
  'Help = "DEMO.HLP"    ' Définit le fichier d'aide.
  'Ctxt = 1000    ' Définit le contexte de
                ' la rubrique.
  ' Affiche le message.
  'Response = MsgBox(Msg, Style, Title, Help, Ctxt)
  'If Response = vbYes Then    ' L'utilisateur a choisi Oui.
  '  MyString = "Oui"    ' Effectue une action.
  'Else    ' L'utilisateur a choisi Non.
  '  MyString = "Non"    ' Effectue une action.
  'End If
  '---------------

  Msg = " Etes-vous sur de vouloir imprimer ?"
  Title = "Impression Document "    ' Définit le titre.
  Style = vbYesNo + vbExclamation + vbDefaultButton2    ' Définit les boutons.
  Response = MsgBox(Msg, Style, Title)
  If Response = vbYes Then    ' L'utilisateur a choisi Oui.
    lgdeb = 1 + TrimB * decalC
    cldeb = 67
    lgfin = lgdeb + 30
    clfin = 81
    'adaptez le nom de la feuille
    Sheets("Feuil1").Select
    Range(Cells(lgdeb, cldeb), Cells(lgfin, clfin)).Select
    Selection.PrintOut
  End If

End Sub

Bonne suite

GermPeru Messages postés 172 Date d'inscription mercredi 7 décembre 2016 Statut Membre Dernière intervention 27 mars 2018 > f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025
3 janv. 2017 à 23:52

Bonjour f894009,

Pourriez vous m'expliquer la configuration de lgdeb, lgfin, cldeb, clfin par rapport au format de la plage a imprimer ou alors par rapport au format de la feuille d´impression.

Je souhaite imprimer des etiquettes 10.5 cm * 10.5 cm et j´aimerais adapter votre code.

De plus a quoi correspond TrimB * decalC?

Merci d´avance de votre réponse.

mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
3 nov. 2012 à 11:40

Merci

Discussions similaires

Macro enregistrer en PDF

Impression excel en pdf avec macro VBA

Comment afficher le contenue d'une feuille excel userform Vba

code pour afficher une feuille excel( vba)

vba excel macro afficher feuille

VBA Excel Copie feuille dans autre classeur