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 :

Définir la zone d'impression


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé Avatar de goninph
    Homme Profil pro
    Inscrit en
    Octobre 2013
    Messages
    805
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Suisse

    Informations forums :
    Inscription : Octobre 2013
    Messages : 805
    Par défaut Définir la zone d'impression
    Hello,

    J'ai défini la zone d'impresssion de mon planning comme indiqué dans le code ci-dessous.

    Mon planning a un nombre de ligne variable et l'entête contenue dans les 5 premières lignes est d'une durée de 2.5 années.

    J'aimerai que la zone d'impression stop à la dernière colonne non vide sans prendre en compte les 5 premières colonnes.

    Par exemple mes entêtes sont fixes de 2.5 années juqu'en 2021 et que j'ai planninfié une intervention le 14.10.2019, la zone d'impression n'ira pas au-delà du 14.10.2019.

    Merci pour votre aide
    Meilleures salutations
    Philippe



    Code : Sélectionner tout - Visualiser dans une fenêtre à part
            Zone_impression = Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 914)).Address

  2. #2
    Expert confirmé
    Homme Profil pro
    Electrotechnicien
    Inscrit en
    Juillet 2016
    Messages
    3 241
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Electrotechnicien

    Informations forums :
    Inscription : Juillet 2016
    Messages : 3 241
    Par défaut
    Bonjour,

    Ceci devrait marcher
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
        Derlig = Cells.SpecialCells(xlCellTypeLastCell).Row
        DerCol = Range(Cells(6, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 914)).Find("*", , , , xlByColumns, xlPrevious).Column
        Zone_impression = Range(Cells(1, 1), Cells(Derlig, DerCol)).Address
    Cdlt

  3. #3
    Membre éclairé Avatar de goninph
    Homme Profil pro
    Inscrit en
    Octobre 2013
    Messages
    805
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Suisse

    Informations forums :
    Inscription : Octobre 2013
    Messages : 805
    Par défaut
    Parfiat encore merci

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

Discussions similaires

  1. En VBA définir une zone d'impression
    Par maxval18 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 21/01/2013, 16h57
  2. [XL-2007] définir une zone d'impression en fonction du nombre de ligne.
    Par maxval18 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 20/03/2012, 23h14
  3. Réponses: 2
    Dernier message: 14/04/2011, 12h19
  4. Définir une zone d'impression
    Par Didpa dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 10/03/2009, 15h12
  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