Vider les cellules fusionnées automatiquement sous condition

[Ilino]

Forum buonasera
je vous solstice a résoudre mio problema ci dessous

SI la cellule G16 (fusionnées) contient le Texte "Approuvé Sans Réserves" alors vider automatiquement la cellule N16 (fusionnée)
ci joint le code utilisé

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 7 And Target(1).Value = "Approuvé Sans Réserves" Then Target(1, 8).ClearContents
End Sub

A+

 

[Ilino]

Re : Vider les cellules fusionnées automatiquement sous condition

Re
Mon PBLM est Résolut

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, [G16:G24])
If r Is Nothing Then Exit Sub
For Each r In r
  If r = "Approuvé Sans Réserves" Then r(1, 8) = ""
Next
End Sub

A+