Discussion :

[mrthomas]

Bonjour à tous,

J'ai un problème de latence avec mon userform, je m'explique.

Comme vous pouvez le voir sur la photo ci-dessous, les boutons 1, 5, 10, me permettent de modifier une variable dans mon code VBA (variable qui sera par la suite affichée dans la textbox à droite).
Tout simplement quand je vais cliquer sur un bouton à plusieurs reprises, ma quantité ce cumule.

Mon pb : Si je clique 2x de suite sur le même bouton trop vite (double clique), la macro liée au bouton marche 1x. Si j'attend un peu ou je clique 3x de suite elle marche.

Nous parlons de fractions de secondes mais ça me pose tout de même un problème, je dois cliquer 3x pour 2.



Pouvez vous m'aider à supprimer cette latence ?
Merci d'avance.

[Daniel.C]

Bonjour,

Est-ce que tu ne peux pas remplacer la macro double clic par une macro clic droit ? Ou insérer un message de confirmation dans la macro double clic ?

[mrthomas]

Bnojour Daniel,

Merci pour votre réponse.

Quand je clique sur le bouton dans le userform il lance une macro.
Quand je clique deux fois c'est pour lancer deux fois la macro, par exemple je veux une variable à 2 je vais cliquer deux fois sur le bouton 1.
Je n'ai rien lié à la macro double clique.

Par contre maintenant, je me demande si le fait de vouloir lancer rapidement deux fois la macro, la prise en compte d'un double clique ne se fait pas à la place d'un deuxieme simple clique.

[Invité]

Bonjour,
Les boutons on un temp de latence! Difficile de le réduire sens toucher aux paramètres Windows!

La meilleure solution c'est de laisser l'utilisateur se calmer, quand il aura compris que ça n'est pas utile il se calmera!

la tu tombe dans l’excès inverse!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Cl As Boolean
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Cl = True
While Cl = True
    If Me.TextBox1 = "" Then Me.TextBox1 = 0
   Me.TextBox1 = Me.TextBox1 + 1
DoEvents
Wend
MsgBox "r"
End Sub
 
Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Cl = False
End Sub

[mrthomas]

Bnojour rdurupt,

Merci pour votre réponse,

Pour être franc, je suis également l'utilisateur. Ce n'est pas vital en permanence d'aller aussi vite, mais il arrive des situations ou j'en aurais vraiment besoin.

[patricktoulon]

Bonjour
perso plutot que m'ennuyer a controler le tickcount(ou un eventuel timer)voir doubleclick pour arriver au nombre que je veux
je ferait un menu contextuel(popup) sur le bouton
un peu comme ceci:


exemple en piece jointe

[mrthomas]

Bonjour Patrick,

Merci pour votre réponse,

La solution est trop fragile, l'utilité de supprimer la latence est de pouvoir cliquer rapidementavec la précision liée à la taille du bouton. En gros je veux pouvoir taper comme une brute les yeux fermés pour augementer mon compteur.

Si je veux rentrer dans le détails je peux directement saisir ma valeur dans la textbox.

[patricktoulon]

re j'ai oublié d'argumenter le sous menu "de 1 en 1"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub CommandButton1_Click()
    On Error Resume Next
    Application.CommandBars("boutonX").Delete
    On Error GoTo 0
    Set mabarre = Application.CommandBars.Add(Name:="boutonX", Position:=msoBarPopup)
    Set cpop1 = mabarre.Controls.Add(Type:=msoControlPopup)
    cpop1.Caption = "de 1 en 1"
    With cpop1
        For X = 1 To 9
            Set bout = cpop1.Controls.Add(Type:=msoControlButton)
            With bout
                .Caption = X & "fois"
                .OnAction = "'pasteontextbox " & a & "'"
            End With
        Next
    End With

    Set cpop2 = mabarre.Controls.Add(Type:=msoControlPopup)
    cpop2.Caption = "de 5 en 5"
    With cpop2
        For a = 5 To 100 Step 5
            Set bout = cpop2.Controls.Add(Type:=msoControlButton)
            With bout
                .OnAction = "'pasteontextbox " & a & "'"
                .Caption = a & "fois"
            End With
        Next
    End With
    mabarre.ShowPopup
Application.CommandBars("boutonX").Delete
End Sub

La solution est trop fragile

on a pas la meme définition de "fragile" alors
bon courage

[mrthomas]

Fragile dans le sens ou je risque de cliquer ailleur et devoir recommencer la procédure. Sachant qu'aux max je serais sur 5x et que la répartion de mon utilisation est grosso modo à 90% entre 2x et 3x.
Mais merci pour votre retour, cette outil pourra mettre utile je pense.

[Invité]

sauf utiliser une sourie avec un indice de pression supérieur au niveau du click!

[Docmarti]

Bonjour.

Si on désactive le bouton et qu'on le réactive, ça fonctionne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub CommandButton1_Click()
 Set obj = CommandButton1
 
 obj.Enabled = False
 obj.Enabled = True
 
 Call macro
 TextBox1 = Val(TextBox1) + 1
 
End Sub
 
Sub macro()
 TextBox2 = Val(TextBox2) + 1
 For i = 1 To 100
  Cells(i, 1) = ""
  Cells(i, 1) = i
 Next
End Sub

[Invité]

@ Docmarti

je suis d'accord avec toi mais ça ne guéri pas Parkinson !

notre amis veut faire des click intempestif et que l'appli réagis au doit faute de pouvoir à l’œil!

[Docmarti]

je suis d'accord avec toi mais ça ne guéri pas Parkinson !

Ça ne le guérit pas encore, mais ça permet de le diagnostiquer.

[patricktoulon]

Bon allez j'en rajoute une couche

vous avez tous tendance a oublier les chose simple

regarder du coté de TakeFocusOnClick




avec la mise a jour du textbox dans le mouse up pour etre sur
essayé garanti meme a grande vitesse 10 click= 10 points

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Value = TextBox1.Value + 1
End Sub

j'ai meme essayé avec les doigts de pied ca marche aussi

[mrthomas]

Merci pour vos réponses,

je viens d'essayer bouton.enabled et ça marche au top ! Merci beaucoup !!

[PMO2017]

Bonjour,

J'ai supposé que le problème de latence est lié aux MSForms Controls qui possèdent les événements Click et DblClick et qui, selon l'interprétation d'Excel, entrent en conflit.
Le Control ScrollBar n'a aucun des deux mais on peut intercepter l'action d'un clic par son événement Change.

J'ai construit un exemple à parfaire d'après cette constatation (voir la pièce jointe).

[patricktoulon]

re
PmO @ sur un pc un peu lent du bulbe le probleme reste inchangé

le probleme n'est pas le decompte mais la latence entre deux click sur le control quelqu'il soit et selon la puisance du pc ou de son UC occupée

j'ai testé en poussant mon pc a 95% procc et 70%memoire

la solution de (disabled /enabled) est bonne mais perso, suprimer la prise de focus resout le soucis amplement et simplement car cette seule action elimine la latence engendrée par la prise de focus en memoire