Discussion :

[wolf491]

Bonjour à tous,
Je débute dans VBA et après avoir lu la FAQ, je n'ai pas trouvé de solution pour transférer la date de DTPicker vers [A2] de mon tableau et incrémenter les lignes à chaque nouvelle entrée.
Si une bonne ame peut m'aider?

[Kikumaru]

Voilà le code que j'ai développé il y'a peu il correspond exactement à ta demande après la confirmation par un bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub CommandButton1_Click()
    'tu recuperes la dernière ligne dispo, A2 si tu as juste un titre
    iL = Cells(65535, 1).End(xlUp).Offset(1).Row
 
    'la première cellule dispo prend la date donné par DTPicker1
    Cells(iL, 1) = Format(DTPicker1.Value, "dd/mmmm/yyyy")
End Sub

Voilà