Bonjour,

Je ne comprends un phénomène particulier !

Je saisis une date dans une cellule exemple:30/10/2013

Si je personnalise le format via la console "Format de cellule" en choisissant "personnalisé" et "dd", la cellule affiche "30" et dans la barre de formule il y a "30/10/1973"

Par contre, si je provoque dynamiquement via vba le remplissage de la cellule en lui appliquant le meme type de format, la cellule affiche certes "30" mais la barre de formule indique "30" et non plus "30/10/1973"
Et je souhaite ce dernier cas de figure !!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
'c est un numéro de colonne et d une date quelconque 
Public Sub RemplirDateNum(c As Integer, d As Date)
    For i = 1 To Day(DateSerial(Year(d), Month(d) + 1, 1) - 1)
        Dim dateserie As Date
        dateserie = DateSerial(Year(d), Month(d), i)
        With ActiveSheet.Cells(i + 6, c)
            .Value = Format(dateserie, "dd")
 
        End With
    Next i
End Sub
Pouvez vous m'aider, svp?