Clavier dans userform

[Maxime]

Bonjour,
Je voudrais que dans ma textbox1, orsque j'appuie sur la touche entrer, cell c soit annulé. Est ce possible?
Merci!
Maxime

 

[Hervé]

bonjour maxime

si par annula tu entend effacer, c'est à dire que lorsque tu fait entrée dans une textbox celui ci soit effacée, une astuce :

tu places un commandbutton sur ton userform, tu lui affectes la propriété visible à false (comme ca on le verra pas), et la propriété défaut à true.

ensuite, imaginons 3 textbox, en placant ce code dans l'userform, l'appuis sur la touche entré effacera le contenu du textbox ayant le focus :

Dim ctrl As Control
Private Sub CommandButton1_Click()
If Not ctrl Is Nothing Then
        ctrl = ''
        ctrl.SetFocus
End If
End Sub

Private Sub TextBox1_Enter()
Set ctrl = TextBox1
End Sub

Private Sub TextBox2_Enter()
Set ctrl = TextBox2
End Sub

Private Sub TextBox3_Change()
Set ctrl = TextBox3
End Sub

salut

 

[Mytå]

salut Forum

Cell c (Celle-ci) ou Cell $C

Mytå

Et hop comment bcp +1 au compteur

 

[Maxime]

Bonjour,

ta technique est sympa Hervé mais en fait je voudrais juste 'empécher' l'utilisateur d'appuyer sur une touche et non pas tout supprimer lorsqu'il clique dessus.
Est-ce possible?

Myta: sans commentaire...
A+ Hervé

Max