Problème d'impression

Résolu
amar_7423 Messages postés 20 Date d'inscription samedi 20 février 2021 Statut Membre Dernière intervention 27 juillet 2023 - 9 juil. 2023 à 15:20
amar_7423 Messages postés 20 Date d'inscription samedi 20 février 2021 Statut Membre Dernière intervention 27 juillet 2023 - 12 juil. 2023 à 00:24

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

PHILOU10120 Messages postés 6368 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 22 avril 2024 796
9 juil. 2023 à 18:28

Bonjour

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


0
amar_7423 Messages postés 20 Date d'inscription samedi 20 février 2021 Statut Membre Dernière intervention 27 juillet 2023
10 juil. 2023 à 02:35

Bonsoir,

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

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

0
ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
Modifié le 10 juil. 2023 à 10:59

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
amar_7423 Messages postés 20 Date d'inscription samedi 20 février 2021 Statut Membre Dernière intervention 27 juillet 2023
11 juil. 2023 à 00:52

Bonsoir,

Mais alors vous proposez quelle solution?

0
PHILOU10120 Messages postés 6368 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 22 avril 2024 796
10 juil. 2023 à 13:22

Bonjour

Une idée dans le fichier

Impression-PhC5.xlsm (cjoint.com)


0
amar_7423 Messages postés 20 Date d'inscription samedi 20 février 2021 Statut Membre Dernière intervention 27 juillet 2023
11 juil. 2023 à 00:54

Bonsoir,

j'aimerais une meilleur idée si possible

0

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

Posez votre question
ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
Modifié le 11 juil. 2023 à 15:54

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
amar_7423 Messages postés 20 Date d'inscription samedi 20 février 2021 Statut Membre Dernière intervention 27 juillet 2023
12 juil. 2023 à 00:24

Merci beaucoup. ça marche très bien

Merci aussi à tous les participants.

A bientôt

0
Schawrazeneger Messages postés 25 Date d'inscription jeudi 22 juin 2023 Statut Membre Dernière intervention 23 octobre 2023
11 juil. 2023 à 15:57

Bonjour,

Merci pour l'info ;)

0