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
Partager