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
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
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" <scrat83@free.fr> a écrit dans le message news:
ev5zprcmEHA.3356@TK2MSFTNGP14.phx.gbl...
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 ?
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
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
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" <scrat83@free.fr> a écrit dans le message de news:ev5zprcmEHA.3356@TK2MSFTNGP14.phx.gbl...
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 ?
à 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
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
Merci ;o)
Domi
"Bourby" <nospam-jchfer@wanadoo.fr> a écrit dans le message de
news:uXRh16cmEHA.644@tk2msftngp13.phx.gbl...
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" <scrat83@free.fr> a écrit dans le message news:
ev5zprcmEHA.3356@TK2MSFTNGP14.phx.gbl...
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 ?
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 ?