Problème d'impression

Résolu
amar_7423 Messages postés 29 Statut Membre -  
amar_7423 Messages postés 29 Statut Membre -

Bonjour,

J'ai un tableau excel de 7 colonnes et de nombre de lignes variable selon que les lignes sont vides ou non.

Maintenant colonnes 1 et 2 ont des données sur par exemples 40 lignes et les colonnes 3, 4, 5, 6 et 7 sont vides. Mais il y a une tête de ligne.

J'ai créé un code VBA pour imprimer les 7 colonnes et les 40 lignes.

Le problème est quand on exécute le code VBA l'aperçu ne montre que les entêtes de ligne
Alors pourquoi?

6 réponses

  1. PHILOU10120 Messages postés 6463 Date d'inscription   Statut Contributeur Dernière intervention   835
     

    Bonjour

    Avez-vous définis une zone d'impression? Il faut certainement l'utiliser dans votre code VBA 


    0
  2. amar_7423 Messages postés 29 Statut Membre
     

    Bonsoir,

    Je vous joins le fichier et vous verrez vous même.

    https://www.cjoint.com/c/MGkaIp5h6c8

    0
  3. ccm81 Messages postés 11033 Statut Membre 2 434
     

    Bonjour

    ActiveSheet.PageSetup.PrintArea = "A1:H" & Range("H" & Cells.Rows.Count).End(xlUp).Row

    La colonne H ne contenant rien après la ligne de titre (6), normal que l'aperçu s'arrête en ligne 6.

    Cdlmnt

    0
    1. amar_7423 Messages postés 29 Statut Membre
       

      Bonsoir,

      Mais alors vous proposez quelle solution?

      0
  4. PHILOU10120 Messages postés 6463 Date d'inscription   Statut Contributeur Dernière intervention   835
     

    Bonjour

    Une idée dans le fichier

    Impression-PhC5.xlsm (cjoint.com)


    0
    1. amar_7423 Messages postés 29 Statut Membre
       

      Bonsoir,

      j'aimerais une meilleur idée si possible

      0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. ccm81 Messages postés 11033 Statut Membre 2 434
     

    Mais alors vous proposez quelle solution?

    Remplacer la colonne H par une colonne renseignée par exemple colonne B

     ActiveSheet.PageSetup.PrintArea = "A1:H" & Range("B" & Rows.Count).End(xlUp).Row

    Cdlmnt

    0
    1. amar_7423 Messages postés 29 Statut Membre
       

      Merci beaucoup. ça marche très bien

      Merci aussi à tous les participants.

      A bientôt

      0
  7. Schawrazeneger Messages postés 25 Date d'inscription   Statut Membre Dernière intervention  
     

    Bonjour,

    Merci pour l'info ;)

    0