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

Guest

Dull

XLDnaute Barbatruc

phiphi27

Guest

Discussions similaires

Effacer une partie de la ligne active VBA

phiphi27

Guest

Dull

XLDnaute Barbatruc

phiphi27

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency