IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
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

VBA Discussion :

Identifier le mode Debug par code VBA


Sujet :

VBA

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Mars 2005
    Messages
    37
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2005
    Messages : 37
    Par défaut Identifier le mode Debug par code VBA
    Bonjour je cherche, afin de me faciliter mon travail de Debug, à débrancher mes modules de gestion d'erreur lorsque je suis en mode Debug (pas à pas par exemple).

    A force de recherche sur le web, je me dis qu'il y certainement quelque chose à faire avec un #IF ou un debug.assert mais je n'arrive pas à trouver une méthode simple fonctionnant sous Access comme sous Excel.

    Merci de votre aide.

  2. #2
    Membre Expert

    Profil pro
    Inscrit en
    Février 2005
    Messages
    1 751
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 1 751
    Par défaut
    Bonjour,

    Ta question est double:
    - avec VBA, peut-on reconnaître que le code s'exécute en mode Debug ?
    - en fonction du "mode d'exécution" du code, comment débrancher les modules de gestion d'erreur ?

    Un projet VBA ne peut pas reconnaître s'il est exécuté en mode "Débogage" ou "Exécution pas-à-pas".
    Il est vrai qu'un complément (Add-in) pourrait éventuellement surveiller le mode d'exécution, mais cela nous éloigne de ta question initiale.

    Alors, puisqu'il n'est pas possible "simplement" de reconnaître le mode d'exécution, tu pourrais indiquer que tu souhaites que le code s'exécute avec ou sans les modules de gestion d'erreur.

    Pour indiquer le mode d'exécution que tu souhaites, tu as 2 possibilités:
    (1) utiliser les consignes de compilation conditionnelles (#Const, #If...Then...#Else...#End If),
    (2) utiliser une constante ou une variable du projet (avec une portée publique).

    Personnellement, je préfère utiliser les consignes de compilation conditionnelle.
    J'utilise une constante de compilation conditionnelle nommée ModeDebug que j'utilise ainsi dans mon code (par exemple):
    Code vba : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    #If ModeDebug = 1 Then
        Debug.Print "Je veux avoir des infos pour le débogage"
    #Else
        ' ne rien imprimer
    #End If

    Mais la compilation conditionnelle apporte des contraintes:
    - la modification du code en cours de débogage peut souvent déboucher sur la nécessaire réinitialisation du projet.
    - la consigne #Const est locale au module (pas de portée "globale" au projet).
    Pour obtenir l'équivalent d'une déclaration globale, tu dois déclarer ta constante (avec sa valeur) directement dans les propriétés du projet, dans la zone de texte "Arguments conditionnels de compilation".

    Par exemple:
    _ ModeDebug = 1

    Ceci fonctionne quelle que soit l'application hôte de VBA (Access, Excel, etc).

    Bon débogage !


    P.S. Attention ! tu as posté ta question au mauvais endroit.
    _

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Mars 2005
    Messages
    37
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2005
    Messages : 37
    Par défaut
    Bonjour

    Un grand merci pour ta réponse très complète que je ne vois que ce soir.

    J’ai avancé depuis l’autre jour et j’utilise cette fonction que je livre à ta critique d'expert :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Function Fun_Mode_Debug() As Boolean
        On Error Resume Next
        Err.Clear
        Debug.Print Application.VBE.ActiveWindow.Caption
        Fun_Mode_Debug = (Err = 0)
        On Error goto 0
    End Function
    Pour ne moment je ne l’utilise que sous access mais elle fonctionne fort bien et me permet de shunter la gestion d’erreur pendant le debug manuel.

  4. #4
    Membre Expert

    Profil pro
    Inscrit en
    Février 2005
    Messages
    1 751
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 1 751
    Par défaut
    Hé hé hé... Félicitations !


    Voilà qui est très astucieux.
    As-tu trouvé ça par toi même ?

    Je pense que ta fonction mériterait bien de figurer dans les contributions de ce forum, avec un petit exemple pour montrer son usage.

    A une prochaine fois et encore .
    _

  5. #5
    Membre Expert

    Profil pro
    Inscrit en
    Février 2005
    Messages
    1 751
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 1 751
    Par défaut
    Allez, je ne résiste pas à la tentation...

    Je me suis permis de ré-écrire ta super-fonction.
    C'est la même chose, mais sans gestion d'erreur.

    Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Function Fun_Mode_Debug() As Boolean
        Fun_Mode_Debug = Not (Application.VBE.ActiveWindow Is Nothing)
    End Function

  6. #6
    Membre averti
    Profil pro
    Inscrit en
    Mars 2005
    Messages
    37
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2005
    Messages : 37
    Par défaut
    Ok merci de cette modification qui allége encore le code.
    J'ai effectivement trouvé cela tout seul et cela fait des années que je cherche.
    Par contre je n'arrive pas à construire l'équivalent pour Vba Excel.

    Je suis sur qu'à nous deux nous aurons rendu service à pas mal de gens qui cherchent. Super !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Requête exécutée par code vba
    Par tit65 dans le forum Access
    Réponses: 4
    Dernier message: 22/08/2007, 18h07
  2. ajouter un utilisateur au groupe users par code VBA ?
    Par electrosat03 dans le forum Access
    Réponses: 2
    Dernier message: 12/01/2007, 17h00
  3. [VBA-E] Change links par code VBA
    Par Capsule dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 12/01/2007, 10h09
  4. Définir marge par code VBA
    Par tamyme dans le forum Access
    Réponses: 2
    Dernier message: 10/03/2006, 09h43
  5. Comment faire Copier/Coller par code VBA sur INTERNET...
    Par GESCOM2000 dans le forum Access
    Réponses: 5
    Dernier message: 02/01/2006, 13h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo