ajout automatique date

marleauc · 25 Août 2015

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 · 25 Août 2015

Re : ajout automatique date

Bonjour,

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

Code:

TextBox2 = Date

bon après midi
@+

marleauc · 25 Août 2015

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 · 26 Août 2015

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"..

Code:

Range("A1") = CDate(TextBox1)

bonne journée
@+

ajout automatique date

marleauc

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

marleauc

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Discussions similaires