Paramétrage et point d’arrêt..

Bonjour,
J'aimerais savoir s'il est possible de configurer VBA de façon a ne pas passer par les procédures internes lors d'une exécution pas à pas.
Et je voulais savoir aussi s'il était possible (encore durant une exécution pas à pas) de faire en sorte qu'une boucle s’arrête à une certaine itération.
Exemple :

Code:

---

1 2 3 4

For j = 7 To Feuil2.Range("A7").End(xlDown).Row Instructions... ... Next j

---

Je souhaiterais que l’exécution du programme s’arrête lorsque j = 72 pour comprendre ce qu'il se passe à cette ligne. Je peux bien exécuter la boucle en pas à pas mais c'est quand même très long...

Par avance, merci

Bonjour,

si tu souhaites que ton pas à pas s'arrête à un instant précis de ta boucle, il te suffit de mettre une condition IF comme ça :

Code:

---

1 2 3 4 5 6 7

For j = 7 To Feuil2.Range("A7").End(xlDown).Row If j = 72 Then Debug.Print j 'c'est un exemple, il faut juste une ligne de code dans la condition pour placer ton point d'arrêt End If Instructions... ... Next j

---

et tu places ton point d'arrêt sur la ligne de code juste après ton "If j = 72 Then"
quand tu vas lancer ta macro de manière classique, il va passer en pas à pas uniquement à la boucle j = 72

concernant ta première question, j'ai peur de ne pas avoir bien compris.

Merci, bonne méthode, je n'y avait pas pensé :).
Je vais essayer de reformuler ma première question... Lorsque j’exécute mon programme pas à pas, il arrive que je quitte le "Sub" dans lequel je suis pour aller dans des procédures déjà configurée (ça se passe souvent sur un changement de feuille ou de classeur). Donc je me retrouve dans une procédure que je n'ai pas programmé moi même et qui par conséquent ne m’intéresse pas spécialement. J'ai déjà réussi à faire l’exécution pas à pas en "sautant" ces procédures mais un paramètre de VBA à dû changer et désormais je passe par ces procédures. Voila un exemple de procédures dans lesquelles je me retrouve :

Code:

---

1 2 3 4 5 6 7 8

'CR034283 Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Not PreviousSel Is Nothing Then App_SheetChange Nothing, PreviousSel End If Set PreviousSel = Target End Sub

---

ou encore

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Private Sub App_SheetChange(ByVal Sh As Object, ByVal Source As Range) On Error Resume Next If bSkip Then bSkip = False Exit Sub End If   If Source.Columns.Count * Source.Rows.Count > 256000 Then ' Prevent hanging up when large amount of cells copied/pasted natively Exit Sub End If   Dim str As String i = 0 If IsArray(Source.FormulaR1C1Local) Then For Each fm In Source.FormulaR1C1Local i = i + 1 str = fm If ConvertCellFormula(str) Then bSkip = True fm = str Else End If Next fm Else str = Source.FormulaR1C1Local If ConvertCellFormula(str) Then bSkip = True Source.FormulaR1C1Local = str UpdateSingleCell (str) Else End If End If End Sub

---

Voilà, s'il m'étais possible d’éviter ce genre de procédure ça me permettrais de gagner pas mal de temps...

Merci encore

EDIT : Les procédures que je cherche à éviter sont les procédures "événementielles"

Bonjour,

si les procédures à "éviter" sont les procédures évènementielles, il faudra utiliser l'instruction

Code:

---

Application.EnableEvents = False

---

sans oublier de remettre la propriété à True ! Sinon ils ne vont pas se réactiver tout seuls

Attention aux effets de bord : quand tu vas lancer ta procédure, durant la boucle J=72, ces procédures ne travailleront pas ... soit sûr qu'ils ne sont pas nécessaires au bon déroulement de ta procédure

en couplant tes deux demandes, on obtient :

Code:

---

1 2 3 4 5 6 7 8

For j = 7 To Feuil2.Range("A7").End(xlDown).Row If j = 72 Then Application.EnableEvents = False ' ici tu mets le point d'arrêt End If Instructions... Application.EnableEvents = True ... Next j

---

je reste réticent sur cette manière de faire ... mais à part utiliser une variable publique qui neutralise chaque procédure évènementielle (ce qui est plus fastidieux à mettre en place) ... je ne vois pas comment zapper tes évènements uniquement à la boucle 72

Bonjour,

Citation:

---

Envoyé par magikmed

Bonjour,
Et je voulais savoir aussi s'il était possible (encore durant une exécution pas à pas) de faire en sorte qu'une boucle s’arrête à une certaine itération.

Je souhaiterais que l’exécution du programme s’arrête lorsque j = 72 pour comprendre ce qu'il se passe à cette ligne. Je peux bien exécuter la boucle en pas à pas mais c'est quand même très long...

Par avance, merci

---

Un clic-droit sur ta ligne de code et tu choisis "Insérer un espion" dans le menu contextuel. Tu vas voir une "belle petite boîte de dialogue" pour paramétrer ton espion.

Bonjour,
pour passer les sous-sub en pas à pas majuscule F8

@rudurupt : Merci beaucoup, tu as parfaitement cerné mon soucis et apporté la meilleur solution. Au top !

@Clementmarcotte : Tout ce que j'ai c'est une option "ajouter un espion" et la fenêtre qui apparaît me propose soit un arrêt si la valeur est vraie ou un arrêt si la valeur change. Moi je cherche a arrêter le code lorsque ma variable atteint une certaine valeur

Cordialement