Code VBA pour supprimer les valeurs de la case adjacente

Dull

XLDnaute Barbatruc

• 18 Octobre 2010

• #2

Re : Code VBA pour supprimer les valeurs de la case adjacente

Salut phiphi27, le Forum

Un essai

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

Bonne Journée

 

Vote positif 0 Vote négatif

P

phiphi27

XLDnaute Junior

• 18 Octobre 2010

• #3

Re : Code VBA pour supprimer les valeurs de la case adjacente

Bonjour Dull
Super merci juste un dernier pour la route si je effacer la ligne entière comment adapter ton code?
Merci

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 18 Octobre 2010

• #4

Re : Code VBA pour supprimer les valeurs de la case adjacente

Re phiphi, le Fil

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.EntireRow.ClearContents
End Sub

Bonne Journée

 

Vote positif 0 Vote négatif

P

phiphi27

XLDnaute Junior

• 18 Octobre 2010

• #5

Re : Code VBA pour supprimer les valeurs de la case adjacente

Merci Dull
Je te souhaite une bonne journée
Phiphi

 

Vote positif 0 Vote négatif