Effacer une partie de la ligne active VBA

[phiphi27]

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

 

[Dull]

Re : Effacer une partie de la ligne active VBA

Salut phiphi27, le Forum

Peut-être comme cela

[COLOR=BLUE]Private Sub[/COLOR] Worksheet_BeforeDoubleClick([COLOR=BLUE]ByVal[/COLOR] Target [COLOR=BLUE]As[/COLOR] Range, Cancel [COLOR=BLUE]As Boolean[/COLOR])
[COLOR=BLUE]If Not[/COLOR] Intersect(Target, Range("B2:B20")) [COLOR=BLUE]Is Nothing Then[/COLOR] Cancel = [COLOR=BLUE]True[/COLOR]
[COLOR=BLUE]If[/COLOR] Target <> "" [COLOR=BLUE]Then[/COLOR] Range(Target.Offset(, -1).Address & ":" & Target.Offset(, 8).Address).ClearContents
[COLOR=BLUE]End Sub[/COLOR]

Bonne Journée

 

[phiphi27]

Re : Effacer une partie de la ligne active VBA

Merci Dull
C'est ce qu'il me fallait
Bonne journée🙂