Macro pour imprimer une sélection

Résolu/Fermé

Looping38 Messages postés 92 Date d'inscription samedi 22 octobre 2016 Statut Membre Dernière intervention 20 juillet 2020 - Modifié le 5 janv. 2018 à 11:32
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 5 janv. 2018 à 14:52

Bonjour,
et meilleurs vœux à tous.

Je suis bloqué sur une macro d'impression sous excel.
Je souhaite déclencher un l'aperçu avant impression sur une sélection de cellules.
Mon soucis, c'est que certaines colonnes sont masquées, et donc ma définition de range est fausse.
Je cherche la syntaxe qui me permettrait de sélectionner les 10 colonnes "visibles" uniquement.
Actuellement, ma macro est la suivante :

Sub Imprime_PDF()
'
    Range(Cells(8, 2), Cells(109, 10)).Select
    Selection.PrintPreview
    
End Sub

Mais dans ce cas, elle prend bien les 10 colonnes, mais y compris les masquées.

Si vous avez une idée?
Cordialement,

A voir également:

Macro imprimer
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Comment signer un pdf sans l'imprimer - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
5 janv. 2018 à 11:50

Bonjour,

les 10 colonnes "visibles" uniquement.
Vous avez une plage de colonnes fixe ou flottante en fonction des colonnes masquees ??

Looping38 Messages postés 92 Date d'inscription samedi 22 octobre 2016 Statut Membre Dernière intervention 20 juillet 2020 1
5 janv. 2018 à 12:24

Bonjour
Je souhaite au final imprimer uniquement les 10 premières colonnes visibles de la feuille dans la limite de la ligne 109.
Les colonnes conservent leur nom d'origine, les autres sont masquées par une autre macro de tri.

Looping38 Messages postés 92 Date d'inscription samedi 22 octobre 2016 Statut Membre Dernière intervention 20 juillet 2020 1
5 janv. 2018 à 12:25

Je passe par la fonction d'imprimer la sélection.

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
5 janv. 2018 à 13:18

Re,

une autre macro de tri.
Tout a fait Thierry, mais la derniere colonne visible est toujours le meme ou pas ??

Looping38 Messages postés 92 Date d'inscription samedi 22 octobre 2016 Statut Membre Dernière intervention 20 juillet 2020 1
5 janv. 2018 à 14:11

Re,
Les colonnes avant d'être masquées sont au nombre de 70 (BX)
Je ne veux pas en imprimer plus de 5 (jusqu'à colonne K) maxi.
Ma macro de tri peut en laisser visible autant qu'on veut, mais lors de l'impression, je ne souhaite pas en faire apparaitre plus de 5, sinon document illisible.
J'ai tenté de faire une copie des colonnes visibles sur une autre feuille, et ça marche, mais je bute sur l'appel de la dialogbox de fichier->imprimer en ayant prédéfinit :
imprimer la sélection ajustées à une page

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
5 janv. 2018 à 14:52

Re,

c'est
uniquement les 10 premières colonnes visibles
ou
pas en faire apparaitre plus de 5, sinon document illisible.
Sinon, le principe c'est de compter les colonnes visibles jusqu'au nombre que vous aurez decide et le code devient

'une facon de faire

Sub Imprime_PDF()
    CV = 0
    With Worksheets("feuil1")
        For n = 2 To 70
            If .Columns(n).Hidden = False Then CV = CV + 1
            If CV = 5 Then Exit For
        Next n
        .Range(Cells(8, 2), Cells(10, n)).PrintPreview
    End With
End Sub

Discussions similaires

Réaliser une macro VBA permettant d'envoyer un classeur Excel par mail

Protection de feuille dans macro (excel 2013)

Copier ligne(s) sous condition dans une autre feuille

Macro pour enregistrer une feuille excel d'un classeur

Copier/coller d'un classeur à un autre

Macro pour comparer deux fichiers excel

Discussions similaires

Newsletters