Code VBA pour supprimer les valeurs de la case adjacente

phiphi27 · 18 Octobre 2010

Bonjour a tous
Je cherche un code VBA qui me permet de faire ceci:

J'ai en colonne A2 à A20 des valeurs en colonne B2 d'autres valeurs en C2 etc...
Je souhaite quand faisant un double clic dans l'une des cases de la colonne B cela m'efface la cellule de la case A pour la même ligne (B5 efface A5)
Merci et bonne journée
Phiphi

Dull · 18 Octobre 2010

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

phiphi27 · 18 Octobre 2010

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

Dull · 18 Octobre 2010

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

phiphi27 · 18 Octobre 2010

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

Merci Dull
Je te souhaite une bonne journée
Phiphi

Code VBA pour supprimer les valeurs de la case adjacente

phiphi27

XLDnaute Junior

Dull

XLDnaute Barbatruc

phiphi27

XLDnaute Junior

Dull

XLDnaute Barbatruc

phiphi27

XLDnaute Junior

Discussions similaires