Bonjour
Je souhaiterai adapter ce code VBA pour qu'en doubleclick je n'efface, que dans la ligne active, les cellules Ex. A3 à J3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B2:B20")) Is Nothing Then Cancel = True
If Target <> "" Then Target.Offset(, -1).ClearContents
End Sub
Merci
Je souhaiterai adapter ce code VBA pour qu'en doubleclick je n'efface, que dans la ligne active, les cellules Ex. A3 à J3
Code:
If Not Intersect(Target, Range("B2:B20")) Is Nothing Then Cancel = True
If Target <> "" Then Target.Offset(, -1).ClearContents
End Sub
Merci