Planning suivi tâches 52 semaines
Créer un planning de suivi des tâches sur 52 semaines avec un bouton toupie sur EXCEL
🎯 Dans ce tutoriel Excel, vous allez découvrir comment créer un planning de suivi des tâches sur 52 semaines.
✅ Grâce à l'utilisation d'un bouton toupie, vous naviguez entre les semaines, en conservant en mémoire les tâches enregistrées.
👍 Vous pouvez bien sûr, adapter et utiliser ce planning pour diverses situations.
Pour construire votre planning, je vous invite à suivre les explications de ce tutoriel :
Créer un planning hebdomadaire en utilisant les 10 premières minutes de la vidéo.
-> Ensuite, voir la vidéo pour créer un planning de suivi des tâches sur Excel sur 52 semaines en utilisant un bouton toupie :
📌↪️→ Code VBA à utiliser pour votre planning de suivi des tâches sur 52 semaines avec un bouton toupie sur Excel :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Enregistrez les tâches de la semaine actuelle avant de fermer le fichier
Set semaine = ThisWorkbook.Sheets("Planning").Range("B4:H24")
ThisWorkbook.Sheets("Semaine " & ThisWorkbook.Sheets("Planning").Range("Z1").Value).Range("A1:G21") = semaine.Value
End Sub
Private Sub Workbook_Open()
' Chargez les tâches de la semaine actuelle après l'ouverture du fichier
Set semaine = ThisWorkbook.Sheets("Planning").Range("B4:H24")
Dim semaineNum As Integer
semaineNum = Int(Range("B1").Value / 7) + 1
semaine.Value = ThisWorkbook.Sheets("Semaine " & semaineNum).Range("A1:G21").Value
ThisWorkbook.Sheets("Planning").Range("Z1").Value = semaineNum
End Sub
Sub AjouterOnglets()
Dim i As Integer
For i = 1 To 52
With ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
.Name = "Semaine " & i
.Visible = False ' Rend l'onglet invisible
End With
Next i
End Sub
Sub BoutonToupie_Click()
On Error GoTo ErrorHandler
' Initialiser semainePrecedente à 1 lors de la première exécution
If ThisWorkbook.Sheets("Planning").Range("Z1").Value = "" Then
ThisWorkbook.Sheets("Planning").Range("Z1").Value = 1
End If
Set semaine = ThisWorkbook.Sheets("Planning").Range("B4:H24")
Dim semaineNum As Integer
semaineNum = Int(Range("B1").Value / 7) + 1
' Enregistrez les tâches de la semaine précédente dans une autre feuille de calcul
If ThisWorkbook.Sheets("Planning").Range("Z1").Value > 0 Then
ThisWorkbook.Sheets("Semaine " & ThisWorkbook.Sheets("Planning").Range("Z1").Value).Range("A1:G21") = semaine.Value
End If
If semaineNum <> ThisWorkbook.Sheets("Planning").Range("Z1").Value Then
semaine.ClearContents
End If
If semaineNum <= 52 Then
semaine.Value = ThisWorkbook.Sheets("Semaine " & semaineNum).Range("A1:G21").Value
End If
ThisWorkbook.Sheets("Planning").Range("Z1").Value = semaineNum
Exit Sub
ErrorHandler:
MsgBox "Une erreur s'est produite : " & Err.Description
End Sub
👇
Un autre tutoriel qui pourrait vous intéresser :
