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
|
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'Macro -> Si demande temrinée (traitée), alors le nombre de potelets est changé à 0.
Dim I As Long, DerniereLigne As Long
If Target.Count > 1 Then Exit Sub
DerniereLigne = Cells(Rows.Count, 1).End(xlUp).Row
If Not Intersect(Target, Range("A2:A" & DerniereLigne)) Is Nothing Then
Application.EnableEvents = False
Application.ScreenUpdating = True
For I = 2 To DerniereLigne
If Cells(I, 1) = "Terminer" Then Cells(I, 2) = 0
Next I
Application.ScreenUpdating = True
Application.EnableEvents = True 'éviter une boucle sans fin
Cancel = True
'MsgBox "Fin de traitement !", vbInformation
End If
End Sub |