Debogage impossible dans procédure Worksheet_SelectionChange

Version imprimable

Bonjour,

tout est dans le titre, je voudrais pouvoir exécuter pas à pas ma procédure du type Worksheet_SelectionChange, mais excel ne veut pas. J'entends juste un bip m'indiquant que cela n'est pas possible.

Une idée.

Merci d'avance.

Je joins cette procédure

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim maplage As Range, note As Byte
 
    Set maplage = Range(Cells(3, 2), Cells(Range("A50").End(xlUp).Row, Range("Z1").End(xlToLeft).Column))
    If Not Application.Intersect(Target, maplage) Is Nothing Then
        For Each cell In maplage
          note = Right(Cells(2, cell.Column), Len(Cells(2, cell.Column)) - 2)
          If IsNumeric(cell) Then
            If (cell > note) And (cell < 0) Then
              Cells(cell.Row, cell.Column).Select
              MsgBox ("Valeur incorrecte")
              Selection.Clear
              Exit For
            End If
          End If
        Next
 
        For Each cell In maplage
         If cell = "" Then
           CommandButton1.Enabled = False
           Exit For
         Else: CommandButton1.Enabled = True
         End If
        Next
    End If
End Sub

24/08/2014, 11h03
Invité

Bonjour

Essayes en utilisant l'instruction STOP avant la déclaration des tes variables et après en appuyant sur la touche F8.

Philippe
24/08/2014, 11h10
JackIsJack

Bonjour,

Tu peux essayer ça :

- Vérifier que ta macro est bien arrêté - càd pas d'autres traitements en cours (notamment que tu n'es pas déjà en mode débogage). Appuie sur le bouton "carré" (arrêt) de l'éditeur VBA.

- Vérifier que ton curseur actif n'est pas dans une zone formule dans Excel - càd que tu n'es pas en train d'écrire dans une cellule au moment où tu lances ta macro.

- Dans l'éditeur VBA, Outils > Options > Général, coche "Arrêt sur toutes les errreur"

- Place un point d'arrêt sur la 1ère ligne de ta macro (c'est à dire un "point rouge" que tu fais apparaître en cliquant sur la bande à gauche qui est à coté de là où tu tape ton code)
Exécute ta macro, et ensuite passe d'une ligne à l'autre avec F8 (jusqu'à ce que tu trouves la ligne qui fais planté)
24/08/2014, 12h34
Invité
Bonjour,
Code:

1 2 3 Sub test() cells(activecell.row + 1,1).select End sub
test ça en pas a pas
24/08/2014, 14h42
stepel

Merci pour vos nombreuses propositions que j'ai toutes testées. Seule celle de rdurupt a fonctionné, cad lancer le débogage pas à pas depuis une petite procédure de test qui enchaine ensuite immédiatement sur ma procédure.

Néanmoins quelques chose m'échappe, mais cela ne concerne plus ce post, j'en rédige un nouveau de suite.

Merci à tous.