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+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas