XL 2016 VBA - Comment afficher le prompt d'interruption

[Dudu2]

Bonjour à tous,

Savez-vous s'il existe une méthode pour afficher ce prompt qu'on obtient par exemple en faisant CTRL + PAUSE sur un MsgBox ?

 

[patricktoulon]

re
bonjour @Dudu2
ben ...
createobject("wscript.shell").sendkeys + ,les touches ctrl et pause
il existe aussi une api windows pour afficher les messages avec leur numero de code windows je dois avoir ça quelque part
mais ou là c'est une autre histoire

 

[dysorthographie]

Bonjour tu veux voir s'afficher dans un msgbox comme quand on fait un on error ?

Tu redéfini le raccourci clavier !

 

[Dudu2]

En fait c'est un peu compliqué.
Je suis dans un UserForm qui simule un MsgBox et je voudrais que Ctrl + Pause agisse comme pour une MsgBox standard, c'est à dire arrête le code et affiche le dialogue de l'exécution interrompue.

Il y a 2 cas.

1er cas: le UserForm est en vbModal: le code est interrompu sur le .Show mais pas de dialogue (fichier joint).
On peut intercepter le Ctrl + Pause (KeyCode = 3 si EnableCancelKey = False) mais comment afficher le dialogue ?

 

[Dudu2]

2ème cas: le UserForm est en vbModeless (en "pseudo-modal"): le code est interrompu avec dialogue d'exécution interrompue après le MsgBox qu'il a fallu ajouter (c'est pas vraiment ce que je veux) pour que l'interruption soit sortie du code du UserForm (fichier joint). Mais ce n'et pas 100% garanti. A condition de laisser les instructions sans pause (DoEvents) sinon ça ramène l'interruption dans le code du UserForm.

En fait c'est trop compliqué, laissez tomber cette question.

 

[patricktoulon]

c'est quoi déjà la touche keycode 3?

 

[Dudu2]

Le KeyCode = 3 c'est quand on entre CTRL + PAUSE.
Est-ce un vbKeyCancel ? Je sais pas trop.

 

[patricktoulon]

re
perso je préfère utiliser les vraies situations
if shift=2 then
if keycode=19 then
'blablabla
end if
end if

et je suis pas sur que la compil des touches ctrl+pause vaut 3

 

[Dudu2]

Suffit d'essayer.
Mais ne perds pas trop de temps là-dessus. Je crois que c'est un truc imaginaire non réalisable.
Sauf si tu sais via l'API afficher la boite de dialogue d'Exécution Interrompue.

 

[patricktoulon]

je sais que ça existe mais c'est dans mes archives
chez moi ctrl+pause au keydown sur textbox ne donne pas 3
d'ailleurs j'ai fait le test avec la vraie mainip "shift+pause" et 3
la vrai répond le 3 walouh

 

[Dudu2]

Chez moi, Desktop & Laptop Windows 10 64bits

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 
    'Escape
    If KeyCode = 27 Then
        Unload Me
        Exit Sub
    End If
  
    'Control
    If KeyCode = 17 Then Exit Sub
  
    'Pause
    If KeyCode = 19 Then Exit Sub
  
    'Control + Pause
    If KeyCode = 3 Then
        MsgBox "KeyCode = 3 => Control + Pause"
        Exit Sub
    End If
  
    MsgBox "KeyCode = " & KeyCode
End Sub

 

[Dudu2]

En fait l'idée serait d'inhiber le Control + Pause (Application.EnableCancelKey = False) ce qui n'empêche pas d'intercepter le fait d'entrer Control + Pause (KeyCode = 3) et d'afficher le dialogue d'Exécution Interrompue par un moyen quelconque (API ou SendKeys). Je vais essayer le SendKeys.

 

[Dudu2]

En UserForm Modal c'est le mieux que je puisse faire. Mais c'est pas l'idéal car il faut faire un MsgBox en cas d'interruption mais c'est mieux que rien.

 

[Dudu2]

Et même principe pour le vbModeless (pseudo-modal).

 

[Dudu2]

En fait si on envoie un MsgBox, ça sert à rien de faire un SendKeys de Control + Pause avant puisque on peut le faire manuellement sur le MsgBox.