Discussion :

[kilimanjaro]

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.

[=JBO=]

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.
_

[kilimanjaro]

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.

[=JBO=]

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 .
_

[=JBO=]

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

[kilimanjaro]

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 !

[Pierre Fauconnier]

Un peu tardivement, et je n'ai peut-être pas tout compris

Pourquoi pas Outils/options/General puis cocher "Arrêt sur toutes les erreurs"