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 : 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
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