kadelmalin
XLDnaute Occasionnel
Bonjour,
j'ai appliqué cette petite procédure à ma feuille, mais je voudrai que le double-clic ne concerne que les cellules E59, E61 et E63.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If IsEmpty(ActiveCell.Value) Then
ActiveCell.Value = "X"
ElseIf ActiveCell.Value = "X" Then
ActiveCell.Value = ""
End If
Cancel = True
End Sub
j'ai appliqué cette petite procédure à ma feuille, mais je voudrai que le double-clic ne concerne que les cellules E59, E61 et E63.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If IsEmpty(ActiveCell.Value) Then
ActiveCell.Value = "X"
ElseIf ActiveCell.Value = "X" Then
ActiveCell.Value = ""
End If
Cancel = True
End Sub