Créer une Macro impression excel contenant plusieurs onglets

Antoine972 -  
Bonjour,
Me voila face à un obstacle. Je travail sur un document excel contenant une trentaine d'onglets. J'aimerais créer des macros me permettant de lancer l'impression d'un groupe d'onglets prédéfinis. Je sais que l'on peut aussi créer des boutons qui lance directement l'impression.
Comment faire?
Merci d'avance

1 réponse

  1.  f894009
    Bonjour,

    un exemple: 

    Private Sub CommandButton2_Click()
    Dim a As Byte, tOngl() As String
    
    Application.ScreenUpdating = False
    a = 0
    For x = 1 To Worksheets.Count
        ' tests des onglets a ne pas selectionner
        If Worksheets(x).Name <> "A" And Worksheets(x).Name <> "B" Then
           ReDim Preserve tOngl(a)
           tOngl(a) = Worksheets(x).Name
           a = a + 1
        End If
    Next x
    'selection onglet(s)
    Sheets(tOngl()).Select
    Application.ScreenUpdating = True
    'impression
    ActiveSheet.PrintOut
End Sub
    0
    1. Antoine972
      Merci pour ta réponse, il y a quelque chose que je ne comprend toujours pas, ou dois je mettre les onglets selectionnées et sous quelle forme (titre des onglets, numeros, ...)?
      0
    2. f894009
      @Antoine972Re,

      ou dois je mettre les onglets selectionnées dans ce code, vous devez mettre les onglets a ne pas selectionner dans la ligne du If. Si vous avez moins d'onglets a selectionner que d'onglets a ne pas selectionner, dans la ligne du If mettez =nomdelonglet au lieu de <>nomdelonglet et Or au lieu de And
      0