Macro pour effacer une cellule

Bonjour

Ci joint un fichier tout simple où je voudrais intégrer un code VBA qui efface une cellule quand je clique sur une autre.....

Merci et bon dimanche

No

Bonjour,

À placer dans la feuille concernée (dans ton exemple : la "Feuil1" )

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("D5")) Is Nothing Then Exit Sub
    Range("D7").ClearContents
End Sub

ric

Bonjour ric

Super , merci pour ce retour rapide.

Et si je veux également effacer la D5 quand je clique sur la D7 c'est possible ?

Et merci encore

No

Bonjour,

Un essai ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("D5", "D7")) Is Nothing Then Exit Sub
    If Target.Address = "$D$5" Then Range("D7").ClearContents
    If Target.Address = "$D$7" Then Range("D5").ClearContents
End Sub

ric

Bonjour Ric

Super Génial

Tout fonctionne comme je le souhaitais.

Un grand merci Ric

Bonne journée

No

Rechercher des sujets similaires à "macro effacer"