Bonjour à tous,

Totalement novice en VBA je bute depuis quelques jours, malgré de nombreuses recherches sur le net, sur un code qui me permet de gérer les impressions de telles ou telles feuilles.

Le code VBA dans la feuille "impression" du fichier joint (via les boutons) me permet d'imprimer directement les feuilles que je choisis. Mon problème est qu'il m'imprime toutes les pages des feuilles choisies alors que je ne voudrais imprimer que la première ou la seconde page.

J'espère avoir été assez clair,
un grand merci pour aide car je désespère de trouver une solution

Val

Voici mon code VBA
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub CommandButton2_Click()
'Impression de Novembre
'Imprime les onglets en fonction du choix : 1 imprime la feuille, 0 n'imprime pas
Select Case MsgBox("Confirmez-vous l'impression du moi de Novembre ?", vbYesNo + vbInformation, "Confirmation")
    Case vbYes
        Dim vararray() As String
        csname = Range("D7").Column
        c = Range("E7").Column
        Set sname = ActiveSheet
        r = Range("E7").Row
        countarr = 0
        While sname.Cells(r, csname) <> ""
        If sname.Cells(r, c) = 1 Then
        ReDim Preserve vararray(countarr)
        vararray(countarr) = sname.Cells(r, csname).Value
        countarr = countarr + 1
        End If
        r = r + 1
        Wend
        Sheets(vararray).Select
        ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1, Collate:=True
        sname.Activate
        MsgBox ("Impression en cours")
    Case vbNo
End Select
End Sub