lamho27
XLDnaute Occasionnel
Bonjour le forum
j'ai un calendrier avec 6 semaine ; je voudrais impression soit semaine par semaine soit page entier
merci d'avance
j'ai un macro pour impression par semaine ; c'est bon pour 1er semaine, mais 2eme semaine il imprime semaines 1et 2
code
Sub Impression()
'
Dim Sem, i As Integer
'
Sem = InputBox("Numéro semaine?")
If Sem = 1 Then
i = 0
Else
i = (Sem - 1) * 7
End If
Range("A" & (6 + i) & ":" & "Z" & (12 + i)).Select
Selection.PrintOut Copies:=1, Collate:=True
End Sub
j'ai un calendrier avec 6 semaine ; je voudrais impression soit semaine par semaine soit page entier
merci d'avance
j'ai un macro pour impression par semaine ; c'est bon pour 1er semaine, mais 2eme semaine il imprime semaines 1et 2
code
Sub Impression()
'
Dim Sem, i As Integer
'
Sem = InputBox("Numéro semaine?")
If Sem = 1 Then
i = 0
Else
i = (Sem - 1) * 7
End If
Range("A" & (6 + i) & ":" & "Z" & (12 + i)).Select
Selection.PrintOut Copies:=1, Collate:=True
End Sub
Pièces jointes
Dernière édition: