Macro pour imprimer une sélection

[Résolu/Fermé]
Signaler
Messages postés
92
Date d'inscription
samedi 22 octobre 2016
Statut
Membre
Dernière intervention
20 juillet 2020
-
Messages postés
15957
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 septembre 2021
-
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,

1 réponse

Messages postés
15957
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 septembre 2021
1 534
Bonjour,

les 10 colonnes "visibles" uniquement.
Vous avez une plage de colonnes fixe ou flottante en fonction des colonnes masquees ??
Messages postés
92
Date d'inscription
samedi 22 octobre 2016
Statut
Membre
Dernière intervention
20 juillet 2020
1
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.
Messages postés
92
Date d'inscription
samedi 22 octobre 2016
Statut
Membre
Dernière intervention
20 juillet 2020
1
Je passe par la fonction d'imprimer la sélection.
Messages postés
15957
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 septembre 2021
1 534
Re,

une autre macro de tri.
Tout a fait Thierry, mais la derniere colonne visible est toujours le meme ou pas ??
Messages postés
92
Date d'inscription
samedi 22 octobre 2016
Statut
Membre
Dernière intervention
20 juillet 2020
1
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
Messages postés
15957
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 septembre 2021
1 534
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