XL 2010 Remplacer DblClick

[mic6259]

Bonjour
Serait-il possible de remplacer DblClick par un Click
Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Merci beaucoup

 

[Dudu2]

Bonjour,
Avec l'évènement:

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
End Sub

?