Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA Execution macro sur changement valeur

VBA Execution macro sur changement valeur

3 réponses
Avatar
Domi
Bonsoir à tous,

Je voudrais qu'une macro s'exécute si la valeur (calculée par formule) de la
cellule nommée "toto" change.
Quelle syntaxe utiliser ?

Merci
Domi
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Bourby
bonjour,

voici la réponse à un problème analogue, due à AV:
Pour surveiller lesmodifs de la cellule A1

Dans le module de la feuille :
Private mémo
Private Sub Worksheet_SelectionChange(ByVal zz As Range)
mémo = zz.Value
End Sub
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
If mémo <> zz.Value Then MsgBox "Valeur de A1 changée" *
End Sub


(*: ici, faire exécuter ta macro)

Cordialement

Bourby

"Domi" a écrit dans le message news:

Bonsoir à tous,

Je voudrais qu'une macro s'exécute si la valeur (calculée par formule) de
la

cellule nommée "toto" change.
Quelle syntaxe utiliser ?

Merci
Domi




Avatar
michdenis
Bonjour Domi,

à copier dans le module feuille où l'action se déroule.

'Déclaration Variable dans le haut du module
Dim ValeurCellule As Double

Initialisation de la variable lorsque la feuille concernée devient active
'----------------------
Private Sub Worksheet_Activate()

ValeurCellule = Range("G50")

End Sub
'----------------------

À chaque fois que le contenu de la cellule G50 prend une autre valeur
tu as un message à cet effet.
'----------------------
Private Sub Worksheet_Calculate()

If Range("G50") <> ValeurCellule Then
MsgBox "Valeur changée"
'Est-ce que tu veux modifier alors la variable ValeurCellule
ValeurCellule = Range("G50")
End If

End Sub
'----------------------


Salutations!




"Domi" a écrit dans le message de news:
Bonsoir à tous,

Je voudrais qu'une macro s'exécute si la valeur (calculée par formule) de la
cellule nommée "toto" change.
Quelle syntaxe utiliser ?

Merci
Domi
Avatar
Domi
Merci ;o)
Domi

"Bourby" a écrit dans le message de
news:
bonjour,

voici la réponse à un problème analogue, due à AV:
Pour surveiller lesmodifs de la cellule A1

Dans le module de la feuille :
Private mémo
Private Sub Worksheet_SelectionChange(ByVal zz As Range)
mémo = zz.Value
End Sub
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
If mémo <> zz.Value Then MsgBox "Valeur de A1 changée" *
End Sub


(*: ici, faire exécuter ta macro)

Cordialement

Bourby

"Domi" a écrit dans le message news:

Bonsoir à tous,

Je voudrais qu'une macro s'exécute si la valeur (calculée par formule)
de


la
cellule nommée "toto" change.
Quelle syntaxe utiliser ?

Merci
Domi