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+