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

TAL

XLDnaute Occasionnel
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
 

Pièces jointes

  • Heures Frais_V4 - Essai VBA_exemple.xlsx
    89.9 KB · Affichages: 17

TAL

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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
 

Pièces jointes

  • Heures Frais_V6 - v° patricktoulon All in Vba all or one week with combobox.xlsm
    66 KB · Affichages: 6

TAL

XLDnaute Occasionnel
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
 

TAL

XLDnaute Occasionnel
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é :oops::oops:
 

TAL

XLDnaute Occasionnel
200.gif

Merci beaucoup
Merci merci merci
 

Discussions similaires

Réponses
15
Affichages
1 K
Réponses
0
Affichages
322