Microsoft 365 Création automatique d'onglets nommé avec dates semaine (début et fin)

[TAL]

Bonjour,

Tout d'abord, je vous souhaite à tous une excellente année, une bonne santé !!!

J'aurai besoin de vous, en effet, j'ai créé un planning à la semaine, il faut que je crée 54 onglets nommé à la date de la semaine concerné. J'ai une date de début et une date de fin, puis j'ai compilé ces deux dates de façon qu'il n'y ai plus qu'une cellule avec ces deux dates en A2. (formule : =TEXTE($C$1;"jjmmm")&"."&TEXTE($I$1;"jjmmm ")

J'aimerai arriver à créer en une seule fois les 54 onglets nommé avec les dates de la semaine ex : 27.dec.02janv

Ce planning sera archivé, et un autre devra être créer avec l'année suivante.
Afin de ma faciliter la tâche, je fais appel à votre savoir faire.

D'avance merci

 

[TAL]

Re bonjour Patricktoulon

Serait-il possible, au lieu d'avoir à retourner systématiquement sur la feuille "B" pour choisir le numéro de semaine dans la combo afin de créer la semaine suivante, de placer, un bouton directement dans l’onglet « Trame », ce bouton se nommerait « Semaine suivante », afin qu'il apparaissent dans chaque onglet semaine créé, et que ce bouton servent à créer la semaine suivante automatiquement, puis la suivante et ainsi de suite.

Cela me permettrait de gagner du temps sur l’utilisation du planning

J’espère que la demande est assez explicite.

D'avance merci

 

[patricktoulon]

re
tu met l'année en i1 -->ca ca change pas
tu click sur création de la liste -->ca ca change pas
tu click sur créer la première -->ca c'est nouveau
dans celle qui viens d’être créée tu a le bouton "semaineX" en haut a gauche
tu click dessus ca te fait la suivante et ainsi de suite
les autres boutons restent valables si tu veux faire tout d'un coup
c'est toi qui vois

 

[TAL]

Bonjour Patricktoulon,

Extraordinaire !!!! Je garde tout !!!! cela va me servir pour créer d’autres modèles !!!! c'est fantastique !!!!!

Encore un tout tout tout petit détail et cela devrait être le dernier, à la création du premier onglet semaine créer, Semaine 1, peut on faire en sorte que l’onglet de la semaine 2 soit dupliquée mais avec le l’enregistrement des heures déjà planifiées de la semaine 1.

La semaine 3 soit dupliquée avec les heures déjà planifiées de la semaine 2 et ainsi de suite.

Il y a très peu de modif à faire dans la planification, soit changement de nom, soit pour une personne on lui modifie des d’heures mais le reste des heures déjà planifiées ne change pas. Cela évite de tout ressaisir continuellement.

Une belle journée à toi

 

[patricktoulon]

re

La semaine 3 soit dupliquée avec les heures déjà planifiées de la semaine 2 et ainsi de suite.

je pige pas pas trop l'intérêt mais bon
dans ce cas là dans la sub semaineX c'est activesheet que l'on copy et pas sheets("trame")

 

[TAL]

Bonjour,

Je suis désolée mais il me bloque au 2e onglet créer, pour la suivante il m'indique "cette semaine existe déjà"

Sub semaineX()
Dim i As Integer, N$
i = ActiveSheet.[b1].Value + 2
N = Sheets("B").Range("I" & i).Value
For Each sh In Worksheets
If sh.Name = N Then MsgBox "cette semaine existe déjà": Exit Sub
Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Trame").Unprotect ("....")
If Feuil2.Cells(i, "G") <> "" Then
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("B").Range("I" & i).Value
Range("A2").Value = ActiveSheet.Name
Range("C1").Value = Sheets("B").Range("G" & i).Value
ActiveWorkbook.Names.Add Name:="semaine_" & i - 1, RefersToR1C1:="='" & ActiveSheet.Name & "'!R2C1"
ActiveSheet.Protect ("....")
End If
Application.ScreenUpdating = True
Sheets("Trame").Protect ("....")
Feuil2.OLEObjects("Combobox1").Object.ListIndex = -1
End Sub

J'ai mis en rouge ce que j'ai changé

 

[patricktoulon]

re
bon c'est la dernière hein !

 

[TAL]

mais il ne copie pas avec ce qu'y a été enregistrer dans la feuille précédente

Je suis vraiment gênée et tellement désolée

 

[patricktoulon]

a oui c'est vrai
5 minutes

 

[patricktoulon]

re
voila

 

[TAL]

Merci beaucoup
Merci merci merci

 

[patricktoulon]

re
si c'est bon pointe ce sujet résolu

 

[TAL]

Je voulais le faire, mais j'ai cherché pas trouvé. Dès que je le trouve promis je pointe résolu

Encore grand merci !!!!!!!!!!

 

[patricktoulon]

re
dans mon dernier exemple post #39
en bas tu "marquer comme solution" clique dessus