Code VBA pour supprimer les valeurs de la case adjacente

[phiphi27]

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]

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

Salut phiphi27, le Forum

Un essai

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]

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]

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

Re phiphi, le Fil

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]

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

Merci Dull
Je te souhaite une bonne journée
Phiphi