Effacer une partie de la ligne active VBA

phiphi27 · 20 Octobre 2010

Bonjour
Je souhaiterai adapter ce code VBA pour qu'en doubleclick je n'efface, que dans la ligne active, les cellules Ex. A3 à J3

Code:

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 · 20 Octobre 2010

Re : Effacer une partie de la ligne active VBA

Salut phiphi27, le Forum

Peut-être comme cela

Code:

[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 · 20 Octobre 2010

Re : Effacer une partie de la ligne active VBA

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

Effacer une partie de la ligne active VBA

phiphi27

XLDnaute Junior

Dull

XLDnaute Barbatruc

phiphi27

XLDnaute Junior

Discussions similaires