VBA : Imprimer sauf si les lignes sont masquées

Bonjour,

Désolée pour le temps de réponse...
Merci pour ton aide cs_Le Pivert
Je n'ai pas qu'une check box mais plusieurs :
Je voudrais que la page 1 et 2 s'impriment toujours
que la page 3 s'imprime si checkbox1 cochée
que la page 4 s'imprime si checkbox 1 ou 3 ou 21 cochées
que la page 5 et 6 s'imprime si la checkbox 6 est cochée
que la page 7 s'imprime si la checkbox 2 est cochée
que la page 8 s'imprime si la checkbox 24 est cochée
que la page 9 s'imprime si la checkbox 23 est cochée
que la page 10 s'imprime si la checkbox 3 est cochée
que la page 11 s'imprime si la checkbox 21 est cochée
que la page 12 et 13 s'imprime si la checkbox 5 est cochée
etc...
De plus avec mon Sub Imprime, je n'arrive pas à imprimer les page dans un seul document pdf, cela me fiat plusieurs documents séparés. y a t-il une solution pour ça ?
Merci d'avance

Hello,

Je débute depuis peu en VBA, et pour m'amuser et m'améliorer j'ai souhaité raccourcir le code de fannoche35, sans succès. Aurais-tu une piste ou une idée de pourquoi ca ne marche pas ? Surement à cause de ces page(i) que j'ai mal déclaré...

PS : sans prendre en compte les checkboxes

Sub Imprime()
Dim page1 As String, page2 As String, page3 As String, page4 As String

page1 = "A1:AX69"
page2 = "A70:CM95"
page3 = "A96:AX166"
page4 = "A167:AX237"

    For i = 1 To 4
    
        With ActiveSheet.PageSetup
        
            If i = 2 Then
                Set c = xlLandscape
                Else: c = xlPortrait
            End If
        
        .PrintArea = "page" & i 'définition de la zone d'impression
        .Orientation = c 'mise au format portrait
        .CenterHorizontally = True 'centrage horizontal de la feuille
        End With
    Next i

'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'impression
End Sub

Voir ceci pour les tableaux:

https://silkyroad.developpez.com/vba/tableaux/#LVI

Sub Imprime()
  Dim NomTableau As Variant
    Dim i As Integer
   NomTableau = Array("A1:AX69", "A70:CM95", "A96:AX166", "A167:AX237")
For i = LBound(NomTableau) To UBound(NomTableau)
        MsgBox NomTableau(i)
          With ActiveSheet.PageSetup
        .PrintArea = NomTableau(i) 'définition de la zone d'impression
        End With
    Next i
End Sub

@+

fannoche35,

voici le principe pour ne pas faire une usine à gaz:

Tu mets dans chaque Feuille la sélection correspondante qui se déclenchera avec l’événement Activate de la Feuille comme ceci:

Option Explicit
Private Sub Worksheet_Activate()
Range("A1:AX69").Select 'définition de la plage de cellules constituant la 1ère page 
ActiveSheet.PageSetup.PrintArea = "$A$1:$AX$68" 'définition de la zone d'impression 
ActiveSheet.PageSetup.Orientation = xlPortrait 'mise au format portrait 
ActiveSheet.PageSetup.CenterHorizontally = True 'centrage horizontal de la feuille 
End Sub

voir l'evenement Feuille ici:

https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/#LII-A-1

Ensuite la caption de chaque CheckBox sera mis au nom de la Feuille correspondante

On fera une boucle sur la collection des checkBox que l'on affichera dans une listbox

https://silkyroad.developpez.com/VBA/ControlesUserForm/#LI-B

Il faudra aussi une ListBox pour afficher les Feuilles sélectionnées.

Voilà le code pour 3 feuilles à toi de l'adapter pour toutes tes feuilles:

Option Explicit
'http://www.mdf-xlpages.com/modules/newbb/viewtopic.php?post_id=7055
'http://silkyroad.developpez.com/VBA/ControlesUserForm/#LI-B
'http://silkyroad.developpez.com/VBA/FeuilleDeCalcul/#LII-A-1
Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim sRep As String
Dim sFilename As String
Dim nom As String
Dim nombre As Integer 'nombre de feuille
ListBox1.Clear
'Boucle sur la collection de contrôles mettre la Caption des checkBox au nom des feuilles
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.CheckBox Then
  If Ctrl.Object.Value = True Then
ListBox1.AddItem (Ctrl.Caption)
  End If
  End If
Next Ctrl
nombre = ListBox1.ListCount 'nombre de feuille
Select Case nombre
Case Is = 1
Sheets(Array(ListBox1.List(0))).Select
nom = "_1"
Case Is = 2
Sheets(Array(ListBox1.List(0), ListBox1.List(1))).Select
nom = "_2"
Case Is = 3
Sheets(Array(ListBox1.List(0), ListBox1.List(1), ListBox1.List(2))).Select
nom = "_3"
End Select
sRep = ThisWorkbook.Path & "\" 'chemin du dossier
    sFilename = Replace(ThisWorkbook.Name, ".xlsm", "") 'nom seul sans extension
    sFilename = sFilename & nom & ".pdf"
ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sRep & sFilename, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
            MsgBox "Enregistrer dans le même dossier que ce classeur au nom du classeur et du nombre de feuilles"
End Sub

Voici un exemple à télécharger

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


Bon courage

@+ Le Pivert

Bonjour cs_Le Pivert,
Je nage...
Moi qui débute en autoformation c'est très compliqué ! Je vais travailler dessus.
Merci pour ton aide.
(ps: le lien de l'exemple à télécharger, n'est pas ou plus actif)
Bonne journée

Moi qui débute en autoformation c'est très compliqué ! Je vais travailler dessus.

Ce que tu demandes n'est pas compliqué, mais c'est une usine à gaz à paramétrer pour chaque cas de figure!

(ps: le lien de l'exemple à télécharger, n'est pas ou plus actif

il est valable 4 jours

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

Voilà