Discussion :

[magikmed]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[magikmed]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[joe.levrai]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[clementmarcotte]

Bonjour,

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.

[Invité]

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

[magikmed]

@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