Defaut d'affichage

bonjour avec le code çi dessous rien ne s'affiche dans ma feuille de calcul, quelqu'un voit l'erreur

Sub FillSchedule()

    Dim rng As Range
    Dim cell As Range
    Dim startDate As Date
    Dim schedule As String
    Dim i As Integer

    ' Définir la date de début et le planning
    startDate = DateValue("2/9/2024")
    schedule = "RRRRRRRJJJRMMMMAANRRRRRRJJJRMMMMANNNRRRRRRMMMMANNN"

    ' Définir la plage à partir de la cellule correspondant à la date de début
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A" & (DateDiff("d", DateSerial(Year(startDate), 1, 0), startDate) + 1) & ":A" & (DateDiff("d", DateSerial(Year(startDate), 1, 0), DateSerial(Year(startDate) + 1, 1, 0))))

    ' Remplir chaque cellule de la plage avec le planning
    i = 1
    For Each cell In rng
        cell.Value = Mid(schedule, i, 1)
        i = i + 1
        If i > Len(schedule) Then
            i = 1
        End If
    Next cell

End Sub

Bonjour

Après SET RNG=....

Mets

msgbox rng.address

et tu verras où sont tes données....

A+ François

Merci beaucoup,

C'est parfait !