Private Sub CommandButton1_Click() 'bouton "Valider"
Dim I As Integer 'déclare la variable I
For I = 1 To 11
If I = 2 Then
Range("TB").Item(LI, I) = Format(CDate(Me("C" & I).Value), "dd/mm/yyyy")
....
....
Private Sub CommandButton1_Click() 'bouton "Valider"
Dim I As Integer 'déclare la variable I
For I = 1 To 11
If I = 2 Then
Range("TB").Item(LI, I) = Format(CDate(Me("C" & I).Value), "dd/mm/yyyy")
....
....
Merci vous pensez bienBonjour Michest,
Je pense que la date doit être mise au bon format, le format par défaut du VBA est la notation US, avec :
VB:Private Sub CommandButton1_Click() 'bouton "Valider" Dim I As Integer 'déclare la variable I For I = 1 To 11 If I = 2 Then Range("TB").Item(LI, I) = Format(CDate(Me("C" & I).Value), "dd/mm/yyyy") .... ....