XL 2016 Macro suite à changement de valeur de formule

[audureaumarc]

Bonjour,

J’ai une formule en case G11

Lorsque le résultat, j’aimerais que celà conditionne une macro simple.

Voilà mon code que j’ai placé à la racine de la feuille

Private Sub Worksheet_Calculate()
    Static OldVal As Variant
    If Range("G11").Value <> OldVal Then
        OldVal = Range("G11").Value
        Worksheets("Best circuit").Range("C3") = Range("G11")
    End If
End Sub

Malheureusement il ne fonctionne pas... où est mon erreur ?

 

[job75]

Bonjour audureaumarc,

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Worksheets("Best circuit").Range("C3") = Range("G11")
Application.EnableEvents = True
End Sub

A+

 

[audureaumarc]

Oops, merci ! Bon weekend