Planning perpétuel : Code créé par Chat gpt

SALUT,

je ne connais pas grand chose à vba, j'ai demandé à chat GPT de créer un code

je lui ai demandé un planning perpétuel avec en colonne 1 la liste des agents en 2 leurs poste et en 3 leurs catégorie

voilà ce qu'il a fait ...

vous en pensez quoi?

Bonsoir,

Ben, ça marche mais vous ne lui avez pas donné suffisamment de renseignements, Lui dire par exemple que la date de départ choisie était en cellule D1 ou autre, lui indiquer aussi sur combien de jours ou de mois?

La dernière partie est inutile (le remplissage du tableau avec "Disponible").

Voici le code modifié avec la date du premier jour renseignée par vous-même en cellule D1.

Sub CreerPlanningPerpetuel()
    Dim ws As Worksheet
    Dim LastRow As Long
    Dim Personnel As Range, Postes As Range, Categories As Range
    Dim DateDebut As Date
    Dim JoursDansPlanning As Integer, i As Integer, j As Integer

    ' Spécifiez la feuille de calcul
    Set ws = ThisWorkbook.Sheets("Planning")

    ' Spécifiez la plage de noms du personnel, des postes et des catégories (ajustez selon vos besoins)
    Set Personnel = ws.Range("A2:A10")
    Set Postes = ws.Range("B2:B10")
    Set Categories = ws.Range("C2:C10")

    ' Spécifiez la date de début et le nombre de jours dans le planning (ajustez selon vos besoins)
    DateDebut = Range("D1").Value
    JoursDansPlanning = 31

    ' Boucle pour remplir la date de début et les jours
    For i = 1 To JoursDansPlanning
        ws.Cells(1, i + 3).Value = DateDebut + i - 1
    Next i
End Sub

CDlt

merci pour ta réponse ;)