XL 2016 Création d'un PDF non aboutie

[bobafric]

Bonjour à tous,

A partir du tableau feuil1 je crée un tableau sur la feuil2 avec le bouton "sélection" et un pdf avec le bouton "PDF", j’ai toutes les lignes.

Comment grouper les deux commandes en une seule macro pour éviter le passage par la feuil2.

 

[xUpsilon]

Bonjour,

Voir ci-joint, en cliquant sur Sélection les deux macros se déclenchent à la suite.
Il suffit de copier/coller le code du Module 2 dans le Module 1.
J'en ai profité pour faire un petit peu de nettoyage dans les "Select" à tout va.

Bonne journée,

 

[sylvanu]

Bonjour Bobafric,
essayez de lancer cette macro à partir de la feuil1 :

Sub MasquerEtPdf()
    ' Masquer
    Columns("A:A").EntireColumn.Hidden = True
    Columns("C:H").EntireColumn.Hidden = True
    Columns("J:J").EntireColumn.Hidden = True
    ' Lancer impression PDF
    PDF
    ' Démasquer
    Columns("A:J").EntireColumn.Hidden = False
End Sub

Je ré-utilise votre macro PDF.

 

[sylvanu]

Ou mieux peut être pour éviter d'avoir le bouton dans le PDF :

Sub MasquerEtPdf()
    ' Figer écran
    Application.ScreenUpdating = False
    With Sheets(1)
        ' Masquer bouton et colonnes
        .Shapes("Rectangle à coins arrondis 1").Visible = False
        .Columns("A:A").EntireColumn.Hidden = True
        .Columns("C:H").EntireColumn.Hidden = True
        .Columns("J:J").EntireColumn.Hidden = True
        ' Lancer impression PDF
        PDF
        ' Démasquer bouton et colonnes
        .Columns("A:J").EntireColumn.Hidden = False
        .Shapes("Rectangle à coins arrondis 1").Visible = True
    End With
End Sub

 

[bobafric]

Bonjour Bobafric,
essayez de lancer cette macro à partir de la feuil1 :

Sub MasquerEtPdf()
    ' Masquer
    Columns("A:A").EntireColumn.Hidden = True
    Columns("C:H").EntireColumn.Hidden = True
    Columns("J:J").EntireColumn.Hidden = True
    ' Lancer impression PDF
    PDF
    ' Démasquer
    Columns("A:J").EntireColumn.Hidden = False
End Sub

Je ré-utilise votre macro PDF.

Désolé sylvanu mais ça coince à partir de l'impression.
Il y a une erreur de compilation, Sub ou Function non définie

 

[sylvanu]

Ca m'étonne, je n'ai pas touché à votre macro.
Testez cette PJ j'ai remis la macro dans le même module. Je l'ai testé et ça marche.

 

[bobafric]

Nickel ça fonctionne pour upsillon et sylvanu
Merci à tous les deux