ajout automatique date

[marleauc]

Bon matin

J'ai un soucis, j'aimerais lorsque je clique sur le bouton ajout de mon userform que la date du jour en TextBox2 s'inscrire automatiquement

Private Sub BoutAjout_Click()
If TextBNom.Text = "" Then Beep: Exit Sub
If SurAjout Then
SurAjout = False
BoutAjout.Caption = "Modifier/ Mise a jour"
BoutNew.Caption = "Nouveau"
AjoutDansBase
Else
If IndexBase = 0 Then Beep Else ModifieBase
End If

merci bcp
End Sub

 

[Pierrot93]

Re : ajout automatique date

Bonjour,

essaye ceci, dans l'événement "click" de ton bouton :

TextBox2 = Date

bon après midi
@+

 

[marleauc]

Re : ajout automatique date

Bonjour

merci beaucoup mais il semble y avoir un problème lors de la fermeture de l'userform , car sur le tableau a la colonne M , la date transférer est erroné!

 

[Pierrot93]

Re : ajout automatique date

Bonjour,

vois pas de quoi tu parles maintenant avec la colonne M... si tu veux transférer une date présente dans un textbox vers une celluler de la feuille, utilise la fonction "cdate"..

Range("A1") = CDate(TextBox1)

bonne journée
@+