Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

impression tableau fixe par semaine

judoka0209

XLDnaute Occasionnel
Bonjour je souhaiterai une macro qui m'imprime une portion de tableau en permanence meme quand je me déplace les volet figés
j'ai joint un fichier avec plus d'explication
merci
 

Pièces jointes

  • Classeur1.xlsm
    19.2 KB · Affichages: 38

chezswan

XLDnaute Occasionnel
Bonjour,

Essaye avec une macro relative. Dans 1er cas, tu te places en D1, dans le second en E1, ensuite tu actives la macro.

Regarde si ça te va.

Salut
 

Pièces jointes

  • test1.xlsm
    25.7 KB · Affichages: 32

judoka0209

XLDnaute Occasionnel
marche pas
mais ce que je veux c'est a l'ouverture dans la colonne D se trouve la semaine en court soit la semaine 21 et apres quand j'imprime il le fasse avec le bouton imprime et cela imprimer 5 semaines
merci
 

chris

XLDnaute Barbatruc
Re

Pour la 1ère question
Code:
Private Sub Workbook_Open()
    Sem = 3 + Format(Date, "ww", 2, 2) * 1
    Range("D1").Select
    ActiveWindow.SmallScroll ToRight:=Sem - 1
End Sub
 

chris

XLDnaute Barbatruc
Bonjour

On peut enlever 3 + sur la 1ère ligne car j'ai ajouté la ligne
Code:
Range("D1").Select
après coup... donc

Code:
Private Sub Workbook_Open()
    Sem = Format(Date, "ww", 2, 2) * 1
    Range("D1").Select
    ActiveWindow.SmallScroll ToRight:=Sem - 1
End Sub

Pour l'impression si tu réfléchis un minimum tu peux trouver : tu as la semaine en cours donc facile de trouver la semaine +4
Tu as 3 colonnes de titres à répéter et donc les colonnes des semaines sont décalées de 3 colonnes (mon 3+ initial) par rapport au numéro des colonnes dans Excel.
Sachant que dans Excel pour imprimer une partie d'un onglet il faut définir une zone d'impression sans oublier les lignes/colonnes à répéter...

Tu n'es pas un bébé manchot donc tu peux aisément pêcher ton poisson...
 

Discussions similaires

Réponses
7
Affichages
344
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…