Problème affichage dates calendrier

bonjour

je rencontre un problème suite sans doute à une mauvaise manipulation de ma part sur mon calendrier les dates à coté des jours sont visibles de 1 au 9 de chaque mois mais à partir du 10 jusqu'à la fin de chaque mois les dates sont remplacées par ## ( au survol les dates apparaissent) j'ai joint le fichier original en pièce jointe

j'ai bien essayé en sélectionnant les cellules de supprimer les règles mais rien ne change

merci pour votre aide

Bonjour,

Je n'ai pas ce problème chez moi. Elargissez juste un peu vos colonnes et cela devrait résoudre votre problème.

Bonjour,
Modifie ta procédure !
Cdlt.

Sub Ajuster_Colonnes()
Dim ws As Worksheet, Dercol As Long, lCol As Long
    Application.ScreenUpdating = False
    Set ws = Worksheets("Calendrier")
    With ws
        Dercol = .Cells(6, .Columns.Count).End(xlToLeft).Column
        For lCol = 1 To Dercol Step 5
            .Columns(lCol).ColumnWidth = 0.83
            .Columns(lCol + 1).ColumnWidth = 1.71
            .Columns(lCol + 2).ColumnWidth = 3
            .Columns(lCol + 3).ColumnWidth = 9.57
            .Columns(lCol + 4).ColumnWidth = 0.42
        Next lCol
    End With
End Sub

merci beaucoup effectivement en élargissant légèrement tout est ok