OVH Cloud OVH Cloud

comment "parametrer" le STOP dans le debugger ?

3 réponses
Avatar
Alfred WALLACE
Bonjour

au cours de mon developpement, je suis amen=E9 tres souvent =E0 rajouter
des stop, ici, ou l=E0 ... et =E0 la longue, lorsque je souhaite faire
tourner
"d'une traite" le programme, je dois passer et repasser de partout pour
enlever
les stop devenus inutils...


Je souhaiterai, par exemple, rendre le stop conditionnel =E0 un flag
pr=E9sent
dans ma feuille parametres.

au lieu du code VBA "Stop" je souhaiterai utiliser une sorte de "debug"
lequel arreterai
l'execution de ma macro SI le flag est activ=E9.


J'avais bien =E9cris un truc comme =E7=E0 :

If Sheets("PARAMETRES").Range("E1").Value <> "" Then
' SI E1 de la FEUILLE PARAMETRE N'EST PAS VIDE ALORS ON EST EN MODE
DEBUB
Stop
End If

mais avouez que, c'est plus long =E0 =E9crire que debug (par exemple)


est-ce possible ?

Merci

Jos=E9

3 réponses

Avatar
Daniel
Bonjour.
Clique dans ta ligne de code et "Débogage / Basculer le point d'arrêt" ou
clic dans la bordure gauche de la fenêtre du code.
Cordialement.
Daniel
"Alfred WALLACE" a écrit dans le message de news:

Bonjour

au cours de mon developpement, je suis amené tres souvent à rajouter
des stop, ici, ou là ... et à la longue, lorsque je souhaite faire
tourner
"d'une traite" le programme, je dois passer et repasser de partout pour
enlever
les stop devenus inutils...


Je souhaiterai, par exemple, rendre le stop conditionnel à un flag
présent
dans ma feuille parametres.

au lieu du code VBA "Stop" je souhaiterai utiliser une sorte de "debug"
lequel arreterai
l'execution de ma macro SI le flag est activé.


J'avais bien écris un truc comme çà :

If Sheets("PARAMETRES").Range("E1").Value <> "" Then
' SI E1 de la FEUILLE PARAMETRE N'EST PAS VIDE ALORS ON EST EN MODE
DEBUB
Stop
End If

mais avouez que, c'est plus long à écrire que debug (par exemple)


est-ce possible ?

Merci

José
Avatar
Alfred WALLACE
Merci Daniel,
mais je pense que ce n'est pas le fonctionnement que je recherche...

En effet, les "point d'arrêt" sont indépendant les uns des autres,
soit je les enleves
tous, soit je les remets, tous, là où j'en ai besoin...

ce que je recherche, moi, est une entrée en mode debug lorsque dans ma
feuille "parametre" j'ai un flag qui l'indique.

Merci pour ton aide.

José



Bonjour.
Clique dans ta ligne de code et "Débogage / Basculer le point d'arrêt " ou
clic dans la bordure gauche de la fenêtre du code.
Cordialement.
Daniel
"Alfred WALLACE" a écrit dans le message de news:

Bonjour

au cours de mon developpement, je suis amené tres souvent à rajouter
des stop, ici, ou là ... et à la longue, lorsque je souhaite faire
tourner
"d'une traite" le programme, je dois passer et repasser de partout pour
enlever
les stop devenus inutils...


Je souhaiterai, par exemple, rendre le stop conditionnel à un flag
présent
dans ma feuille parametres.

au lieu du code VBA "Stop" je souhaiterai utiliser une sorte de "debug"
lequel arreterai
l'execution de ma macro SI le flag est activé.


J'avais bien écris un truc comme çà :

If Sheets("PARAMETRES").Range("E1").Value <> "" Then
' SI E1 de la FEUILLE PARAMETRE N'EST PAS VIDE ALORS ON EST EN MODE
DEBUB
Stop
End If

mais avouez que, c'est plus long à écrire que debug (par exemple)


est-ce possible ?

Merci

José


Avatar
MichDenis
Pour afficher dans la fenêtre "Exécution" la valeur d'une variable
à un moment de la routine :

dim A as integer
a = 5
Debug.Print a





"Alfred WALLACE" a écrit dans le message de news:

Bonjour

au cours de mon developpement, je suis amené tres souvent à rajouter
des stop, ici, ou là ... et à la longue, lorsque je souhaite faire
tourner
"d'une traite" le programme, je dois passer et repasser de partout pour
enlever
les stop devenus inutils...


Je souhaiterai, par exemple, rendre le stop conditionnel à un flag
présent
dans ma feuille parametres.

au lieu du code VBA "Stop" je souhaiterai utiliser une sorte de "debug"
lequel arreterai
l'execution de ma macro SI le flag est activé.


J'avais bien écris un truc comme çà :

If Sheets("PARAMETRES").Range("E1").Value <> "" Then
' SI E1 de la FEUILLE PARAMETRE N'EST PAS VIDE ALORS ON EST EN MODE
DEBUB
Stop
End If

mais avouez que, c'est plus long à écrire que debug (par exemple)


est-ce possible ?

Merci

José