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

T

TAL

XLDnaute Occasionnel

• 25 Janvier 2022

• #31

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Janvier 2022

• #32

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

Vote positif 0 Vote négatif

T

TAL

XLDnaute Occasionnel

• 26 Janvier 2022

• #33

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Janvier 2022

• #34

re

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

Cliquez pour agrandir...

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")

 

Vote positif 0 Vote négatif

T

TAL

XLDnaute Occasionnel

• 26 Janvier 2022

• #35

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é

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Janvier 2022

• #36

re
bon c'est la dernière hein !

 

Pièces jointes

• Heures Frais_V6 - v° patricktoulon All in Vba all or one week with combobox.xlsm

  63.8 KB · Affichages: 2

Vote positif 0 Vote négatif

T

TAL

XLDnaute Occasionnel

• 26 Janvier 2022

• #37

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Janvier 2022

• #38

a oui c'est vrai
5 minutes

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Janvier 2022

• #39

re
voila

 

Pièces jointes

• Heures Frais_V6 - v° patricktoulon All in Vba all or one week with combobox.xlsm

  66.4 KB · Affichages: 7

Vote positif 0 Vote négatif

Solution

T

TAL

XLDnaute Occasionnel

• 26 Janvier 2022

• #40

Merci beaucoup
Merci merci merci

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Janvier 2022

• #41

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

 

Vote positif 0 Vote négatif

T

TAL

XLDnaute Occasionnel

• 26 Janvier 2022

• #42

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

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Janvier 2022

• #43

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

 

Vote positif 0 Vote négatif