Insertion date dans userform

CHB · 31 Mars 2004

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 · 31 Mars 2004

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 · 31 Mars 2004

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

Insertion date dans userform

CHB

Guest

JB

Guest

Arnaud

Guest

Discussions similaires