Cellule date

bonjour,

je n'arrive pas a mettre une cellule au format DD/MM/YYYY

et si vous pouvez m'aider a corriger le code pour test si il y a une date dans la cellule

Dim AD As String

AD = Label23.Caption
TextBox2 = Format(TextBox2, "DD/MM/YYYY")

ActiveSheet.Range("S" & AD) = TextBox2
ActiveSheet.Range("S" & AD).Interior.Color = RGB(146, 208, 80)
ActiveSheet.Range("B" & AD).Interior.Color = RGB(255, 255, 0)

If isdate(ActiveSheet.Range("S" & AD).Value) Then
    If ActiveSheet.Range("S" & AD).Value > ActiveSheet.Range("C" & AD).Value Then
    Label21.Caption = ActiveSheet.Range("S" & AD).Value - ActiveSheet.Range("c" & AD).Value & " JOURS"
    Else: Label21.Caption = "--"
    End If
End If

merci pour votre aide

Bonjour

Peut-être cela:

ActiveSheet.Range("S" & AD) = CDate(TextBox2)

au lieu de cela :

ActiveSheet.Range("S" & AD) = TextBox2

A voir

Bonjour,

Utilise CDATE au lieu de FORMAT