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 :


Planning de suivi des tâches sur 52 semaines avec 1 bouton toupie sur Excel



📌↪️→ 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 :











Posts les plus consultés de ce blog

Suivi des stocks et inventaire avec alerte

Cases à cocher interactives sur Excel

DIAGRAMME DE GANTT SUR EXCEL