Passer d un double clic a un simple clic

[Evelynetfrancois]

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]

Re : Passer d un double clic a un simple clic

bonjour Evelynetfrancois

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]

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]

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