Insertion date dans userform

[CHB]

Bonjour à tous,

Dans Exce, la combinaison des touches CTRL + ; (point virgule) génère l'insersion de la date dans la cellle sélectionnée.

Comment doit-on procéder pour pour utiliser cette même combinaison de touches pour insérer la date courante dans le champ d'un userForm.

Merci d'avance.

 

[JB]

Salut CHb,




il te suffit de mettre dans la macro

Private Userform_Initialize()
TextBox1 = Date
End Sub

D'office en ouvrant ton Userform la date du jour apparaîtra dans le champs désigné.

J'espère que c'est celà que tu attendais.

@+

JB

 

[Arnaud]

salut,

il faut que tu utilise l'evenement KeyDown :

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 190 And Shift = 2 Then TextBox1.Value = Date
End Sub