XL 2016 Plusieurs DoubleClics dans TextBox

[roby]

Bonjour le Forum

J'aimerai effectuer plusieurs doubleclics dans un textbox pour afficher plusieurs données.

3 Doubleclics possibles :
1er) textbox1 = 0800 et textbox2 = 1300
2ème) textbox1 = 1100 et textbox2 = 1600
3ème) textbox1 = 1000 et textbox2 = 1700

J'ai un code sur une cellule, mais ne peux adapter sur une textbox

Merci à vous pour un début de piste

Bonne soirée

 

[Jacky67]

Bonjour le Forum

J'aimerai effectuer plusieurs doubleclics dans un textbox pour afficher plusieurs données.

3 Doubleclics possibles :
1er) textbox1 = 0800 et textbox2 = 1300
2ème) textbox1 = 1100 et textbox2 = 1600
3ème) textbox1 = 1000 et textbox2 = 1700

J'ai un code sur une cellule, mais ne peux adapter sur une textbox

Merci à vous pour un début de piste

Bonne soirée

Bonjour,
Comme ceci peut-être

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Select Case TextBox1
    Case ""
        Me.TextBox1 = "0800": Me.TextBox2 = "1300"
    Case "0800"
        Me.TextBox1 = 1100: Me.TextBox2 = 1600
    Case "1100"
        Me.TextBox1 = 1000: Me.TextBox2 = 1700
    Case "1000"    'facultatif
        Me.TextBox1 = "": Me.TextBox2 = ""
    End Select
    Me.CommandButton1.SetFocus
End Sub

Version simplifiée V2

 

[Phil69970]

Bonjour @roby
Edit : Bonjour @Jacky67 avec une idée approchante 😉

Je te propose ce fichier

Merci de ton retour

@Phil69970

 

[patricktoulon]

Bonjour
juste une question
imaginons que dblclick une fois j'ai 0800
je vais boire un café et je reviens et je dblclick encore une fois
quel nombre devra être dans le textbox
plus clairement ma question est : y a t il un temps défini entre les dblclick

 

[Jacky67]

Bonjour
juste une question
imaginons que dblclick une fois j'ai 0800
je vais boire un café et je reviens et je dblclick encore une fois
quel nombre devra être dans le textbox
plus clairement ma question est : y a t il un temps défini entre les dblclick

Hello patricktoulon
Ben voilà......il a dblclické et......est resté à la cafétéria 🍻🥂🥳😉

 

[roby]

Bonjour le Forum

J'aimerai effectuer plusieurs doubleclics dans un textbox pour afficher plusieurs données.

3 Doubleclics possibles :
1er) textbox1 = 0800 et textbox2 = 1300
2ème) textbox1 = 1100 et textbox2 = 1600
3ème) textbox1 = 1000 et textbox2 = 1700

J'ai un code sur une cellule, mais ne peux adapter sur une textbox

Merci à vous pour un début de piste

Bonne soirée

Bonjour,
Comme ceci peut-être

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Select Case TextBox1
    Case ""
        Me.TextBox1 = "0800": Me.TextBox2 = "1300"
    Case "0800"
        Me.TextBox1 = 1100: Me.TextBox2 = 1600
    Case "1100"
        Me.TextBox1 = 1000: Me.TextBox2 = 1700
    Case "1000"    'facultatif
        Me.TextBox1 = "": Me.TextBox2 = ""
    End Select
    Me.CommandButton1.SetFocus
End Sub

Version simplifiée V2

bonsoir le Forum, Jacky67 et Phil69970

Merci a tous les deux. Trop fort et assez simple à la fois mais il fallait y penser.
je préfère la version qui fait la boucle vide remplie et vide à la fin mais là encore c'est mon point de vue.

bonne soirée à vous