Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Problème avec OnKey


Sujet :

Macros et VBA Excel

  1. #1
    Futur Membre du Club
    Problème avec OnKey
    Bonjour
    Ma configuration : Win 7 - 64b et Excel 2003
    Dans un programme de résolution d'équation, j'ai une boucle qui peut tourner très longtemps.
    Je veux pouvoir l'interrompre par l'appui d'une touche
    J'ai fait ceci :
    Dans ThisWorkBook :
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Private Sub Workbook_Open()
     
        ' Reassign Ctrl+C
       Application.OnKey "s", "Fini"
       ' Disable Ctrl+C
       'Application.OnKey "^c", ""
       ' Restore Ctrl+C
       ' Application.OnKey "^c"
    End Sub


    Et dans Module 1 :

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Sub Fini()
        Rep = MsgBox("Boucle interrompue. Continuer ?", vbYesNo)
        ' Oui = 6   Non = 7
        If Rep = 6 Then Exit Sub
        If Rep = 6 Then GoTo FIN
    End Sub


    Ça ne fonctionne pas. Je me suis trompé où ?

    Merci à ceux qui pourront m'aider

  2. #2
    Expert éminent sénior
    Si tu veux simplement arrêter l'exécution d'une macro, il suffit d'appuyer sur la touche Esc.

    En plus, ta procédure Fini n'arrêtera pas la macro souhaitée.
    Le Exit Sub mettra uniquement fin à la procédure Fini et aucune autre.
    Quand à la ligne suivante, elle ne s'exécutera jamais puisqu'elle ne peut s'exécuter que si la réponse est 6 et, si c'est le cas, la ligne précédente aussi s'exécutera mettant fin à la procédure Fini.
    Sans compter qu'à ma connaissance, FIN n'est pas une constante système. Donc pour qu'il Goto FIN fonctionne, il faudrait que le module compte un label FIN.
    Si ce label FIN se trouve dans un autre Sub, ça ne fonctionnera pas : les GoTo ne permettent pas de sauter d'un processus à l'autre.

    Petit détail de puriste : pour les réponses à une MsgBox, je te conseille plutôt d'utiliser les constantes système (xlYes et xlNo) plutôt que des valeurs numériques. C'est à la fois plus parlant quand on relit le code et surtout plus perenne.
    Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion.

  3. #3
    Futur Membre du Club
    Merci pour ta réponse
    En réalité c'est dans le programme principal que se trouve la boucle que je vaux stopper.
    L'étiquette FIN: se trouve dans le programme principal à l'endroit où je veux arriver
    Voici un résumé de la structure du programme principal :

    Quand on clique un bouton de commande on arrive là :

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Private Sub Resolution_Click()
    --------
    --------
    do
        --------------
        --------------
        --------------
    loop
     
    FIN:
    End Sub



    Mais quand j'appuie sur "s" il ne se passe rien
    J'ai mis des points d'arrêt dans Sub Fini() et dans Private Sub Workbook_Open() pour constater que le programme n'y arrivait jamais.

  4. #4
    Expert éminent sénior
    Citation Envoyé par jmh-60 Voir le message
    Mais quand j'appuie sur "s" il ne se passe rien
    J'ai mis des points d'arrêt dans Sub Fini() et dans Private Sub Workbook_Open() pour constater que le programme n'y arrivait jamais.
    Je t'ai expliqué les multiples raisons pour lesquelles ta procédure "Fini" ne peut pas fonctionner.
    Il y a sans doute aussi le fait que Excel n'est pas vraiment multi-tâches. Je ne suis pas sûr qu'une procédure puisse commencer alors qu'une autre est toujours en cours (je pense même, sans certitude, qu'elle ne le peut pas).
    Ca fait 4 raisons (chacune étant suffisante) pour lesquelles ta procédure ne fonctionnera pas.

    Une méthode propre de faire ça serait d'ajouter à ta boucle Do Loop une condition qui, si elle est Vraie, ne passe pas au tour suivant.
    Ca permettrait de sortir de la boucle proprement.

    Mais, comme je l'ai dit, la touche Esc arrête les macro en cours d'exécution.
    Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion.