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
Partager