XL 2016 impression cellules et page entier

M

max.lander

XLDnaute Occasionnel

• 25 Juillet 2016

• #2

Salut à tous,

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

A toi de dire si ça te convient

 

Pièces jointes

• JC Suivi heure-ok-2.xlsm

  2.5 MB · Affichages: 61

Vote positif 0 Vote négatif

lamho27

XLDnaute Occasionnel

• 25 Juillet 2016

• #3

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

 

Vote positif 0 Vote négatif

M

max.lander

XLDnaute Occasionnel

• 25 Juillet 2016

• #4

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

 

Vote positif 0 Vote négatif

lamho27

XLDnaute Occasionnel

• 25 Juillet 2016

• #5

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

 

Vote positif 0 Vote négatif

lamho27

XLDnaute Occasionnel

• 25 Juillet 2016

• #6

quelqu'un pouvez me aider ?SVP

 

Vote positif 0 Vote négatif

M

max.lander

XLDnaute Occasionnel

• 25 Juillet 2016

• #7

J'ai suivi la logique du fichier fourni.

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

remplace ton code par :

VB:

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

 

Vote positif 0 Vote négatif

lamho27

XLDnaute Occasionnel

• 25 Juillet 2016

• #8

Très bien, Merci 1000 fois max.lander

 

Vote positif 0 Vote négatif