Lancer macro si changement de résultat dans cellule

Bonjour,

Je suis en train de me tirer les cheveux sur une macro.

J'aimerai lancer une macro si dans les résultats de formule contenu dans la colonne b4:b50 change.

quelqu'un peut m'aider?

Merci

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("b4:b50")) Is Nothing Then

        Call mamacro
    End If

End Sub

Bonjour,

Cordialement

Oui bien sur.

Merci

Vous pouvez expliquer un peu comment vous fonctionnez parce que déjà le code dans votre feuille est différent de celui que vous avez posté

Bonjour,

J'ai un bout de code avec un msgbox qui s'affiche quand les valeurs des cellules changent.

Tu peux mettre le code que tu veux à la place du msgbox, il se déclenchera si les valeurs des cellules choisies changent

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

' plage de cellule
    Set KeyCells = Range("B4:B50")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

' le code s'active que si la valeur d'une cellule dans la plage change
        MsgBox "Cell " & Target.Address & " has changed." 'Ici J'ai mis un msgbox mais tu peux mettre ce que tu veux

End If
End Sub

J'espère que ça va te permettre d'avancer dans ton problème.

Bonjour,

Merci pour votre réponse seulement, cela ne marche pas.

avez-vous unie idées?

Soit plus explicit sur ce qui ne fonctionne pas.

Merci

C'est bon, j'ai trouver l'erreur.

la plage range pour le changement était la formule. Je l'ai changer par la cellule contenant la liste déroulante de choix et ça marche.

Merci beaucoup!

Bonne journée :)