Vba

[Format]

Bonjour,

Je voudrais faire apparaitre une X en double-cliquant sur les cellules de la plage A1:B10. Comment puis-je modifier ce code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 6 Then
Target.Value = "X"
Cancel = True
End If
End Sub

Merci pour votre réponse.

 

[abc]

Re : Vba

Bonsoir,
essaye si cela te convient
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Intersect(Range("A1:B10"), Target) Is Nothing Then Exit Sub
If IsEmpty(Target) Then
Target = "x"

Else
Target = ""
End If
Cancel = True

End Sub

A+