Macro lorsque cellule ( avec Formule ) change

Re : Macro lorsque cellule ( avec Formule ) change

rebonjour bloomby le forum un code qui peut t interesser
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Intersection As Range, Plage As Range

Set Plage = Range("B1:b10000")

Set Intersection = Application.Intersect(Target, Plage)
If Intersection Is Nothing Then
MsgBox "La cellule visée n'est pas dans la plage !"
Else
MsgBox "La cellule visée est dans la plage !"
End If

End Sub