Discussion :

[judoka0209]

Bonjour, je reviens vers vous car je seche completement
j'ai reussi a mettre le n° de semaine et quelques autres truc mais la je seche
je souhaiterai 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 la semaine 21/22/23/24/25 avec le bouton imprime et cela imprimer 5 semaines
merci

[Patrice740]

Bonjour,

Il est difficile de te répondre : ton classeur ne contient pas de macro
(elle se trouve dans ton classeur Planning_EP.xls)

[judoka0209]

avec beaucoup l'aide j'ai presque reussi il me manque plus qu'a imprimer a partir de la colonne 21
ci-joint le fichier

[Patrice740]

Bonjour,

Ton code pour pointer la semaine est pas mal, mais il est conseillé préciser la feuille sur laquelle tu travailles et je suppose que tu veux pointer sur la ligne 5 de la semaine.
Voici une solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub workbook_open()
Dim sem As Byte
  sem = CByte(Format(Date, "ww", 2, 2))
  Worksheets("année en cours").Activate
  With ActiveWindow
    .ScrollRow = 1
    .ScrollColumn = .SplitColumn + sem
    Cells(5, .SplitColumn + sem).Activate
  End With
End Sub

Pour l'impression, il faut définir la zone d'impression, si il s'agit d'imprimer uniquement des colonnes des 5 semaines, c'est assez simple à l'aide d'un code similaire à celui ci-dessus, d'un resize et d'un intersect.
Par contre si tu veux aussi les 3 premières colonnes c'est moins facile : il va falloir masquer les colonnes non désirées.

[judoka0209]

c'est exactement ca que je veux mais je ni arrive pas
la seule chose que j'arrive a faire c'est imprimer mais a partir de la colonne a1 jusqu'a h1 et non les colonnes de la macro

[78chris]

Bonjour

C'est bien de poster sur moult forums mais ensuite il faut gérer les réponses qui t'y sont données...

[judoka0209]

C'est ce que je fais

[Patrice740]

Bonjour,

Il me semble que dans le code moral du judoka, il y a le respect.

Habituellement je réponds ceci :

Poster sur plusieurs forums sans en informer personne, est un manque de respect envers les bénévoles qui te consacrent de leur temps pour résoudre ton problème !
N'étant pas au courant, ils perdent leur temps avec des questions déjà résolues sur les autres forums.
Pendant ce temps là, ils pourraient répondre à d'autres personnes qui eux aussi ont besoin d'aide.

Mais après une journée passée au dojo avec les cadets, sous la canicule, je te donnes quand même un code :

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
27
28
29
30
Sub Imprime5semaines()
Dim rng As Range
Dim cel As Range
Dim sem As Byte
  sem = CByte(Format(Date, "ww", 2, 2))
  ' Cellule semaine actuelle
  Set cel = Cells(1, ActiveWindow.SplitColumn + sem)
  ' Zone d'impression
  With Worksheets("année en cours")
    ActiveSheet.PageSetup.PrintArea = _
      Cells(1, 1).Resize(.UsedRange.Rows.Count, 3 + sem + 4).Address
  End With
  ' Masquer les lignes inutiles
  With ActiveWindow
    If sem > 1 Then
       cel.Offset(0, 1 - sem).Resize(1, sem - 1).EntireColumn.Hidden = True
    End If
  End With
  ' Imprimer
  Worksheets("année en cours").PrintOut
  ' Ré-afficher les colonnes masquées
  Worksheets("année en cours").Columns.Hidden = False
  ' Revenir sur la semaine actuelle
  With ActiveWindow
    .ScrollRow = 1
    .ScrollColumn = .SplitColumn + sem
    Cells(5, .SplitColumn + sem).Activate
  End With
 
End Sub

[judoka0209]

Justement j'ai énormément de respect pour les bénévoles et justement plus vite j'ai la reponse plus vite ils ont du temps pour les autres
Mais il est quand même bizarre qu'il y est de multitude de forum si c'est les meme personnes que je gère pourquoi pas avoir un seul forum
Car vous avez chaqu'un le votre
La réflexion serait peut être bien pour tout le monde
Il est vrai que prévenir que tu demande la même chose sur plusieurs forums est bien mais encore faudrait-il le savoir
Quand je commande chez amazon j'en avertie pas cdiscount
Apres cela s'appelle de l'art divinatoire
Merci pour ton code
Je l'essai au plus vite

[clementmarcotte]

Justement j'ai énormément de respect pour les bénévoles et justement plus vite j'ai la reponse plus vite ils ont du temps pour les autres

Je ne suis vraiment pas sûr d'aimer cette réflexion. Parce que tu as mauditement l'air de vouloir absolument une réponse et d'être prêt à poser la question partout pour l'avoir

Mais il est quand même bizarre qu'il y est de multitude de forum si c'est les meme personnes que je gère pourquoi pas avoir un seul forum.

Ce n'est pas une justification pour tout les utiliser à la même fois

Car vous avez chaqu'un le votre
La réflexion serait peut être bien pour tout le monde

Peut-être qu'ils ne visent pas tous la même clientèle

Il est vrai que prévenir que tu demande la même chose sur plusieurs forums est bien mais encore faudrait-il le savoir

Pour développez, il y a quelque chose d'important là et plus spécialement là

[judoka0209]

Il est vrai quand je cherche une reponse je souhaite l'avoir sinon ça sert à rien de poser une question
Et j'ai posé la question sur plusieurs site vba cela a donc la même clientèle je suppose qu'il traite pas de la cuisson du pain
Cela dit je suis quand même très satisfait des différents site qui existe et du temps que passent les bénévoles à répondre, j'aime beaucoup moins me faire engueuler par un manque d'information
Ça serait bien de préciser avec quelles sites vous travailler cela éviterait les longs prise de tete inutile

[78chris]

Bonjour

Ce qui m'agace c'est le "je ne fais surtout aucun effort".

J'ai expliqué ailleurs, où en plus il y avait plusieurs posts pour le même sujet, qu'avec Excel on peut définir des colonnes à répéter et qu'une fois calculée la première semaine (j'avais donné le code qui a été à peu près repris) il est facile de définir la zone d'impression de cette colonne à la colonne + 4. On peut donc éviter de masquer les colonnes.

Je n'ai pas donné le code pour ce second point mais tous les éléments pour qu'en sollicitant un ou deux neurones il soit facile à faire et aide à avancer dans l'usage d'Excel et du VBA.

Comme déjà dit, seul les bébés manchots attendent que les adultes leur régurgitent le poisson qu'ils ont pêché, après il faut que le manchot apprenne à pêcher entouré de la communauté...

Pour information nous ne gérons pas de forums, nous essayons d'aider les demandeurs à avancer, nous ne sommes pas là pour faire à leur place, sinon cela n'a aucun intérêt, ni pour nous, ni pour les demandeurs.

[judoka0209]

Merci ça marche

Je ferais gaffe la prochaine fois

[Patrice740]

Il y a une certaine contradiction entre :
« Justement j'ai énormément de respect pour les bénévoles et justement plus vite j'ai la reponse plus vite ils ont du temps pour les autres »

et :
« Merci ça marche »

Alors que tu n'as pas mis le post en [Résolu] !
http://club.developpez.com/regles/#LIV-M