Transfer la valeur d'une DTPicker1

bonjour, voici le code que j'utilise pour transférer les valeurs des textbox de mon userform vers excel,

pour le moment tout fonctionne bien.

Sauf que mon problème est comment transférer la valeur d'une " DTPicker1 " vers feuille excel.

merci.

- Cordialement Abdallah -

Private Sub CommandButton1_Click()

Dim derligne As Integer

    If MsgBox("Confirmez-vous l'Ajout des Données?", vbYesNo, "confirmation") = vbYes Then

derligne = ActiveSheet.Range("A254256").End(xlUp).Row + 1

          Cells(derligne, 1) = TextBox1.Value
          Cells(derligne, 2) = TextBox2.Value
          End If
    ThisWorkbook.Save

End Sub
                     

Bonjour,

A adapter pour la cellule où tu veux placer la date. Avec un range ou u cells

Range("A1").dtpicker1.value

merci ! ça fonctionne très bien.