IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

zone d'impression précise


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2009
    Messages
    83
    Détails du profil
    Informations personnelles :
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations forums :
    Inscription : Septembre 2009
    Messages : 83
    Par défaut zone d'impression précise
    bonjour à tous

    voilà je voudrais créé un bouton qui me permettrait d'imprimer une partie d'un tableau je m'explique:

    voilà j'ai un tableau composé de 10 colonnes pour l'exemple on prendra des numéros de colonne allant de 1 à 10. donc je voudrais un bouton qui m'imprime la colonne 1,2,3 et 7,8,9 mais sans qu'il y ai de blanc entre chaque en gros que mon tableau imprime et six colonnes 1,2,3,7,8,9
    et je voudrais un autre bouton qui m'imprime mon tableau complet

    voilà je voulais savoir si cela était possible et merci d'avance de votre aide

  2. #2
    Membre expérimenté
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    226
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Avril 2008
    Messages : 226
    Par défaut
    Hello,

    Essaie cette macro, à placer dans un module.. Au fait, il s'agiz juste de masquer, puis réafficher les colonnes voulues...
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    Sub Test()
     
        Application.ScreenUpdating = False ' On ne voit rien à l'écran grâce à ce bout de code.
     
        Range("D:F,J:J").Select
        Selection.EntireColumn.Hidden = True 'On masque les colonnes voulues.
        Range("A1").Select
     
        ActiveSheet.PageSetup.PrintArea = "$A$1:$K$34" 'Zone d'impression -> A1:K34 = Feuille A4.
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
     
        Columns("C:K").Select
        Selection.EntireColumn.Hidden = False 'Puis on les affiche à nouveau.
        Range("A1").Select
     
    End Sub
    Bonne soirée, Anto.

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2009
    Messages
    83
    Détails du profil
    Informations personnelles :
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations forums :
    Inscription : Septembre 2009
    Messages : 83
    Par défaut
    J'ai essaye ton code mais là je patoge vu mon très faible niveau en vba donc je te mets mon fichier en exemple si tu peu m'aider, voilà je te remercie beaucoup

    J'aimerai savoir si pour l'impression partiel il était possible de ne pas avoir de blanc entre les colonnes et aucune ligne vide
    merci beaucoup
    Fichiers attachés Fichiers attachés

  4. #4
    Membre expérimenté
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    226
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Avril 2008
    Messages : 226
    Par défaut
    Re,

    Voilà, peut-être ça te conviendra...

    Bye.
    Fichiers attachés Fichiers attachés

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2009
    Messages
    83
    Détails du profil
    Informations personnelles :
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations forums :
    Inscription : Septembre 2009
    Messages : 83
    Par défaut
    wouahh!!! merci beaucoup c'est tout à fait ça qu'il me faut
    Par contre j'aimerais savoir ta méthode pour faire car je dois reproduire ça sur plusieurs tableaux et franchement je patauge un peu sur ton code. Si tu peux m'expliquer, tu m'ôterais une épine du pied. En tout cas grand merci à toi

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [VBA-E]Definir une zone d'impression
    Par byflo dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 20/06/2006, 09h29
  2. [VBA-E] Range de la page d'une zone d'impression ?
    Par JulienCEA dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 22/05/2006, 15h39
  3. Réponses: 8
    Dernier message: 10/03/2006, 01h05
  4. Vba excel agrandir la zone d'impression a droite
    Par mb95 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 09/12/2005, 07h42
  5. définir une zone d'impression sous Excel
    Par mirumoto dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 25/11/2005, 12h26

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo