Macro lorsque cellule ( avec Formule ) change

[bloomby]

La colonne B contiens des chiffres selon des formules avec des IF
si je change moi même manuellement (le chiffre ou lettre ds la case) Mais pour être utile la macro doit s'éxécuter automatiquement
quelqu'un a une solution ? merci

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then

 

[excalibur]

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