Créer une Macro impression excel contenant plusieurs onglets

Antoine972 -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
      1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > Antoine972
         
        Re,

        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