XL 2016 impression cellules et page entier

[lamho27]

Bonjour le forum
j'ai page calendrier , je voudrais faire des boutons clic pour impression titre A1:X5 et des lignes correspondance avec la semaine et page entier
merci d'avance

 

[max.lander]

Salut à tous,

lamho27, un essai très basique avec un seul bouton.

A toi de dire si ça te convient

 

[lamho27]

Bonjour max.lander
Grand merci, c'est meilleur que je pense

 

[max.lander]

Si cela te convient, c'est une bonne chose !

 

[lamho27]

Bonjour max.lander
J'ai un petit problème semaine 2 il ne donne pas , il passe direct semaine 3 et la 3 passe 4
pouvez-vous me corriger, merci

 

[lamho27]

quelqu'un pouvez me aider ?SVP

 

[max.lander]

J'ai suivi la logique du fichier fourni.

Si la semaine n°1 démarre plus haut :

remplace ton code par :

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

 

[lamho27]

Très bien, Merci 1000 fois max.lander