XL 2010 [Résolu] Insertion numéro de semaine et masquage tableaux selon critères

[Lone-wolf]

Bonjour à tous (enfin... je devrait dire rebonjour )

Dans le fichier joint, il y a déjà la fonction pour afficher les numéro de semaines; mais comme il y à 12 tableaux(12 mois), je ne sais pas comment m'y prendre; à partir de C8 jusqu'à AG 184 faire une boucle avec Step 14.

J'aimerais aussi afficher les tableaux selon les dates de début et de fin (mois) qui varient.

 

[job75]

Re,

J'ai un peu bataillé pour mettre en forme les semaines, voyez ce fichier (2).

A+

 

[Lone-wolf]

Bonsoir job

Il y a un souci à cause de la formule, vu que tu l'éfface pour ne prendre que les valeurs, les n° de semaine sont éffacés, en tout cas sur mon ordi. Je pense dans ce cas est de faire la fonction VBA.

 

[Jacky67]

Re,

J'ai un peu bataillé pour mettre en forme les semaines, voyez ce fichier (2).

A+

Hello Job75
Beau travail. Il y a là....une preuve de beaucoup de patience.
Mon xl2007 et "ISOWEEKNUM" ne font pas bon ménage.

 

[job75]

RE,

Mon xl2007 et "ISOWEEKNUM" ne font pas bon ménage.

Dans ce cas la remplacer par la fonction NOSEM de Lone-wolf.

A+

 

[job75]

Re,

Il manquait des RAZ dans le fichier (2) du post #16 et j'ai remplacé ISOWEEKNUM par NOSEM.

Bonne nuit.

 

[Lone-wolf]

Bonsoir job


Tu n'a pas remis le fichier au #16


Très bonne nuit

 

[job75]

Re,

Ah oui merci, je viens de le remettre.

Re-bonne nuit.

 

[Jacky67]

Re,

Il manquait des RAZ dans le fichier (2) du post #16 et j'ai remplacé ISOWEEKNUM par NOSEM.

Bonne nuit.

Re...
Bravo! Là... c'est beaucoup mieux
Il ne reste au demandeur qu'a ajouter les mfc pour les week-end et ceux des jours fériés.

Bonne nuit aussi

 

[Lone-wolf]

Bonjour job , jacky , Le Forum

@ jacky: c'est fait!

@ job: s'il-te-plaît, à partir de la feuille data works, j'insère un commentaire dans la feuille calendar. J'aimerais que ceux-ci s'affichent selon la date inscrite. Merci encore

 

[job75]

Bonjour Lone-wolf, le forum,

Pas du tout compris ce que tu veux faire avec la feuille "Data Works", ni son intérêt.

De mon coté (bien que hors du sujet) j'ai continué en ajoutant un bouton Archiver qui me paraît indispensable :

Private Sub CommandButton1_Click() 'Archiver
Dim dat$, i&
dat = "1/1/" & [I2]
If Not IsDate(dat) Then Exit Sub
dat = CStr(Year(dat))
[E2,G2] = ""
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Sheets(dat).Delete
Sheets.Add After:=Me
With ActiveSheet
  Cells.Copy .[A1]
  .[A1].Copy .[A1] 'vide la mémoire
  .[I2].Validation.Delete 'supprime la liste de validation
  .Name = dat
End With
For i = 2030 To 2016 Step -1 'classe les feuilles
  Sheets(CStr(i)).Move After:=Me
Next
Application.Goto [I2]
Application.ScreenUpdating = True
'---RAZ---
If MsgBox("Voulez-vous vider la feuille 'Calendrier' ?", 52) = 7 Then Exit Sub
[I2,C13:AG198] = ""
For i = 13 To 189 Step 16
  Cells(i, 3).Resize(10, 31).Interior.ColorIndex = xlNone
  Cells(i, 3).Resize(10, 31).Font.ColorIndex = xlAutomatic
Next
End Sub

Et le code qui concerne les cellules E2 et G2 a été mis dans la macro Workbook_SheetChange de ThisWorkbook.

Fichier (3).

A+

 

[Lone-wolf]

Re job

Dans la feuille data works, j'inscrit les dates de début et fin des travaux.

Avec la colonne K, si inscrit OK ajouter le commentaire avec texte X sinon texte Y dans le calendrier à la même ligne et colonne Date correspondant à la date de la colonne J de data work.

La macro est en partie déjà dans Change de la feuille, seulement quand je change d'année, le commentaire reste avec l'ancienne date et texte; et normalement la cellule devrait être vide.

Exemple:
02.12.2016 commentaire en date du 02.12.2016
02.12.2018 commentaire en date du 02.12.2018

Je ne sais pas si tu comprend mieux.

 

[job75]

Bonjour Lone-wolf, le forum,

Je ne comprends pas mieux car pour alimenter une année quelconque il faut l'avoir déjà archivée...

Et là, malgré ce que j'ai proposé, tu as l'air de t'en tamponner le menton

Fichier (4) avec un complément sur la validation de l'année en I2 de la feuille "Calendrier".

Quand on revient sur une année archivée il faut copier l'archive :

  '---récupération de la feuille de l'année si elle a été archivée---
  If IsDate(dat) Then
    Application.Undo
    If [I2] = Year(dat) Then GoTo 1 Else Application.Undo
    On Error Resume Next
    Sheets(CStr([I2])).[8:198].Copy [A8]
    On Error GoTo 0
  End If

J'ai aussi créé une MFC pour les week-ends.

A+

 

[Lone-wolf]

Bonjour job

Comment ça, si j'ai refait le fichier avec ta macro + la mise en forme des weekends, pense-tu sincèrement que je m'en tamponne???

Avec le dernier fichier, il faudrait éffacer la mise en forme et texte de l'ancienne année lorque on crée une nouvelle année. En ce qui concerne les commentaires, tu avais déjà fait un travail du genre dans une agenda personnalisée. J'ai dû mal à comprendre que tu ne voie pas ce que je veux faire.

Est-ce que ça te parle plus maintenant? Et donc ça évite de créer des feuilles inutilement. Le fameux fichier.

 

[job75]

Avec le dernier fichier, il faudrait éffacer la mise en forme et texte de l'ancienne année lorque on crée une nouvelle année.

Avant de créer une nouvelle année normalement on archive celle en cours et là le choix de tout effacer est proposé.