XL 2016 Macro suite à changement de valeur de formule

audureaumarc

XLDnaute Nouveau
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

VB:
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 ?
 
Dernière édition:

job75

XLDnaute Barbatruc
Bonjour audureaumarc,
VB:
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Worksheets("Best circuit").Range("C3") = Range("G11")
Application.EnableEvents = True
End Sub
A+
 

Discussions similaires


Haut Bas