Clavier dans userform

Maxime

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

Hervé

XLDnaute Barbatruc
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
 

Maxime

XLDnaute Nouveau
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 ;)
 

Discussions similaires

Réponses
21
Affichages
491
Réponses
4
Affichages
344

Statistiques des forums

Discussions
312 836
Messages
2 092 635
Membres
105 475
dernier inscrit
ramzi slama