Passer d un double clic a un simple clic

Evelynetfrancois · 5 Octobre 2013

bonjour
je vous ai fait un petit model de ma requête

A chaque " double click" le textbox est incrémenté de 1, et ce jusque 3, ensuite il revient à 1 . Comment obtenir la même chose avec un seul click ? merci pour tout

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = TextBox1.Value + 1
If TextBox1.Value = 4 Then
TextBox1.Value = 1
End If
End Sub

merci pour toutes vos sujétions
bonne journée à tous
E et F

laetitia90 · 5 Octobre 2013

Re : Passer d un double clic a un simple clic

bonjour Evelynetfrancois

Code:

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1 = TextBox1 + 1
If TextBox1 = 4 Then
TextBox1 = 1
End If
End Sub

Evelynetfrancois · 5 Octobre 2013

Re : Passer d un double clic a un simple clic

merci laetitia90 c'est genial
bonne soirée
au plaisir de vous lire
E et F

laetitia90 · 5 Octobre 2013

Re : Passer d un double clic a un simple clic

re
tu peus le faire avec MouseDown egalement

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If TextBox1 = 4 Then TextBox1 = 1 Else TextBox1 = TextBox1 + 1
End Sub

Passer d un double clic a un simple clic

Evelynetfrancois

XLDnaute Impliqué

Pièces jointes

laetitia90

XLDnaute Barbatruc

Evelynetfrancois

XLDnaute Impliqué

laetitia90

XLDnaute Barbatruc

Discussions similaires

Passer d un double clic a un simple clic

Evelynetfrancois

XLDnaute Impliqué

Pièces jointes

laetitia90

XLDnaute Barbatruc

Evelynetfrancois

XLDnaute Impliqué

laetitia90

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency