Private Sub Worksheet_Change(ByVal Target As Range)
With [E15] 'cellule à adapter éventuellement
If Not Intersect(Target, .Cells) Is Nothing And CStr(.Value) <> "" Then
If IsNumeric(Evaluate("Mem_" & .Address(0, 0))) Then
.Font.ColorIndex = 1
ThisWorkbook.Names.Add "Mem_" & .Address(0, 0), Evaluate("Mem_" & .Address(0, 0)) + 1
Else
.Font.ColorIndex = 3
ThisWorkbook.Names.Add "Mem_" & .Address(0, 0), 1 'nom défini
End If
End If
End With
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With [E15] 'cellule à adapter éventuellement
If Not Intersect(Target, .Cells) Is Nothing And IsNumeric(Evaluate("Mem_" & .Address(0, 0))) Then
Cancel = True
If CStr(.Value) = "" Or Evaluate("Mem_" & .Address(0, 0)) = 1 Then
MsgBox "Nombre de modifications : " & Evaluate("Mem_" & .Address(0, 0)), , .Address(0, 0)
Else
If MsgBox("Nombre de modifications : " & Evaluate("Mem_" & .Address(0, 0)) _
& vbLf & vbLf & "Voulez-vous réinitialiser le comptage ?", 4, .Address(0, 0)) = 6 Then _
ThisWorkbook.Names.Add "Mem_" & .Address(0, 0), 1: .Font.ColorIndex = 3
End If
End If
End With
End Sub