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
garnote
Salut Nito,
Un exemple : Fais un clic droit sur l'onglet de la feuille concernée, clique sur "Visualiser le code" et colle ces macros dans la feuille vierge qui apparaîtra.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$J$1" Then MaMacro End Sub
Sub MaMacro() MsgBox "Joyeux Noël !" End Sub
Serge
"Nito" a écrit dans le message de news: %
Bonjour à tous, Excel 2000, Dans une feuille de calcul, je voudrais déclencher une procédure lorsque le contenu d'une cellule (disons J1) est modifié.
Quelle serait la syntaxe.
Merci
Nito
Salut Nito,
Un exemple :
Fais un clic droit sur l'onglet de la feuille concernée,
clique sur "Visualiser le code" et colle ces macros
dans la feuille vierge qui apparaîtra.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$1" Then MaMacro
End Sub
Sub MaMacro()
MsgBox "Joyeux Noël !"
End Sub
Serge
"Nito" <luc_bt@hotmail.com> a écrit dans le message de news: %23V8auJeXHHA.4264@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Excel 2000,
Dans une feuille de calcul, je voudrais déclencher une procédure lorsque le contenu d'une cellule (disons J1) est
modifié.
Un exemple : Fais un clic droit sur l'onglet de la feuille concernée, clique sur "Visualiser le code" et colle ces macros dans la feuille vierge qui apparaîtra.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$J$1" Then MaMacro End Sub
Sub MaMacro() MsgBox "Joyeux Noël !" End Sub
Serge
"Nito" a écrit dans le message de news: %
Bonjour à tous, Excel 2000, Dans une feuille de calcul, je voudrais déclencher une procédure lorsque le contenu d'une cellule (disons J1) est modifié.
Quelle serait la syntaxe.
Merci
Nito
LSteph
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range) Dim iSect As Range Set iSect = Intersect(Target, [J1]) If not iSect Is Nothing Then call mamacro End Sub
Cordialement.
lSteph
Bonjour à tous, Excel 2000, Dans une feuille de calcul, je voudrais déclencher une procédure lorsque le contenu d'une cellule (disons J1) est modifié.
Quelle serait la syntaxe.
Merci
Nito
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSect As Range
Set iSect = Intersect(Target, [J1])
If not iSect Is Nothing Then call mamacro
End Sub
Cordialement.
lSteph
Bonjour à tous,
Excel 2000,
Dans une feuille de calcul, je voudrais déclencher une procédure lorsque le
contenu d'une cellule (disons J1) est
modifié.
Private Sub Worksheet_Change(ByVal Target As Range) Dim iSect As Range Set iSect = Intersect(Target, [J1]) If not iSect Is Nothing Then call mamacro End Sub
Cordialement.
lSteph
Bonjour à tous, Excel 2000, Dans une feuille de calcul, je voudrais déclencher une procédure lorsque le contenu d'une cellule (disons J1) est modifié.
Quelle serait la syntaxe.
Merci
Nito
garnote
Ou plus simplement, en m'inspirant des crochets de LSteph :
Private Sub Worksheet_Change(ByVal Target As Range) If Target = [J1] Then MaMacro End Sub
Sub MaMacro() MsgBox "Bonne et heureuse année !" End Sub
"garnote" a écrit dans le message de news:
Salut Nito,
Un exemple : Fais un clic droit sur l'onglet de la feuille concernée, clique sur "Visualiser le code" et colle ces macros dans la feuille vierge qui apparaîtra.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$J$1" Then MaMacro End Sub
Sub MaMacro() MsgBox "Joyeux Noël !" End Sub
Serge
"Nito" a écrit dans le message de news: %
Bonjour à tous, Excel 2000, Dans une feuille de calcul, je voudrais déclencher une procédure lorsque le contenu d'une cellule (disons J1) est modifié.
Quelle serait la syntaxe.
Merci
Nito
Ou plus simplement, en m'inspirant des crochets de LSteph :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [J1] Then MaMacro
End Sub
Sub MaMacro()
MsgBox "Bonne et heureuse année !"
End Sub
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: ekNvLOeXHHA.4772@TK2MSFTNGP05.phx.gbl...
Salut Nito,
Un exemple :
Fais un clic droit sur l'onglet de la feuille concernée,
clique sur "Visualiser le code" et colle ces macros
dans la feuille vierge qui apparaîtra.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$1" Then MaMacro
End Sub
Sub MaMacro()
MsgBox "Joyeux Noël !"
End Sub
Serge
"Nito" <luc_bt@hotmail.com> a écrit dans le message de news: %23V8auJeXHHA.4264@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Excel 2000,
Dans une feuille de calcul, je voudrais déclencher une procédure lorsque le contenu d'une cellule (disons J1) est
modifié.
Ou plus simplement, en m'inspirant des crochets de LSteph :
Private Sub Worksheet_Change(ByVal Target As Range) If Target = [J1] Then MaMacro End Sub
Sub MaMacro() MsgBox "Bonne et heureuse année !" End Sub
"garnote" a écrit dans le message de news:
Salut Nito,
Un exemple : Fais un clic droit sur l'onglet de la feuille concernée, clique sur "Visualiser le code" et colle ces macros dans la feuille vierge qui apparaîtra.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$J$1" Then MaMacro End Sub
Sub MaMacro() MsgBox "Joyeux Noël !" End Sub
Serge
"Nito" a écrit dans le message de news: %
Bonjour à tous, Excel 2000, Dans une feuille de calcul, je voudrais déclencher une procédure lorsque le contenu d'une cellule (disons J1) est modifié.
Quelle serait la syntaxe.
Merci
Nito
LSteph
Bonsoir Serge,
;o) il n'y a pas que les crochets si on modifie h1:k2 par exemple du coup j1 est modifié aussi...
Salutations amicales.
Stéphane
Ou plus simplement, en m'inspirant des crochets de LSteph :
Private Sub Worksheet_Change(ByVal Target As Range) If Target = [J1] Then MaMacro End Sub
Sub MaMacro() MsgBox "Bonne et heureuse année !" End Sub
"garnote" a écrit dans le message de news:
Salut Nito,
Un exemple : Fais un clic droit sur l'onglet de la feuille concernée, clique sur "Visualiser le code" et colle ces macros dans la feuille vierge qui apparaîtra.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$J$1" Then MaMacro End Sub
Sub MaMacro() MsgBox "Joyeux Noël !" End Sub
Serge
"Nito" a écrit dans le message de news: %
Bonjour à tous, Excel 2000, Dans une feuille de calcul, je voudrais déclencher une procédure lorsque le contenu d'une cellule (disons J1) est modifié.
Quelle serait la syntaxe.
Merci
Nito
Bonsoir Serge,
;o) il n'y a pas que les crochets
si on modifie h1:k2 par exemple
du coup j1 est modifié aussi...
Salutations amicales.
Stéphane
Ou plus simplement, en m'inspirant des crochets de LSteph :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [J1] Then MaMacro
End Sub
Sub MaMacro()
MsgBox "Bonne et heureuse année !"
End Sub
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: ekNvLOeXHHA.4772@TK2MSFTNGP05.phx.gbl...
Salut Nito,
Un exemple :
Fais un clic droit sur l'onglet de la feuille concernée,
clique sur "Visualiser le code" et colle ces macros
dans la feuille vierge qui apparaîtra.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$1" Then MaMacro
End Sub
Sub MaMacro()
MsgBox "Joyeux Noël !"
End Sub
Serge
"Nito" <luc_bt@hotmail.com> a écrit dans le message de news: %23V8auJeXHHA.4264@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Excel 2000,
Dans une feuille de calcul, je voudrais déclencher une procédure lorsque le contenu d'une cellule (disons J1) est
modifié.
;o) il n'y a pas que les crochets si on modifie h1:k2 par exemple du coup j1 est modifié aussi...
Salutations amicales.
Stéphane
Ou plus simplement, en m'inspirant des crochets de LSteph :
Private Sub Worksheet_Change(ByVal Target As Range) If Target = [J1] Then MaMacro End Sub
Sub MaMacro() MsgBox "Bonne et heureuse année !" End Sub
"garnote" a écrit dans le message de news:
Salut Nito,
Un exemple : Fais un clic droit sur l'onglet de la feuille concernée, clique sur "Visualiser le code" et colle ces macros dans la feuille vierge qui apparaîtra.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$J$1" Then MaMacro End Sub
Sub MaMacro() MsgBox "Joyeux Noël !" End Sub
Serge
"Nito" a écrit dans le message de news: %
Bonjour à tous, Excel 2000, Dans une feuille de calcul, je voudrais déclencher une procédure lorsque le contenu d'une cellule (disons J1) est modifié.
Quelle serait la syntaxe.
Merci
Nito
garnote
Bonsoir Stéphane,
Je venais justement de constater qu'il est plus prudent d'utiliser Intersect. Vais m'en souvenir.
Serge
"LSteph" a écrit dans le message de news:
Bonsoir Serge,
;o) il n'y a pas que les crochets si on modifie h1:k2 par exemple du coup j1 est modifié aussi...
Salutations amicales.
Stéphane
Ou plus simplement, en m'inspirant des crochets de LSteph :
Private Sub Worksheet_Change(ByVal Target As Range) If Target = [J1] Then MaMacro End Sub
Sub MaMacro() MsgBox "Bonne et heureuse année !" End Sub
"garnote" a écrit dans le message de news:
Salut Nito,
Un exemple : Fais un clic droit sur l'onglet de la feuille concernée, clique sur "Visualiser le code" et colle ces macros dans la feuille vierge qui apparaîtra.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$J$1" Then MaMacro End Sub
Sub MaMacro() MsgBox "Joyeux Noël !" End Sub
Serge
"Nito" a écrit dans le message de news: %
Bonjour à tous, Excel 2000, Dans une feuille de calcul, je voudrais déclencher une procédure lorsque le contenu d'une cellule (disons J1) est modifié.
Quelle serait la syntaxe.
Merci
Nito
Bonsoir Stéphane,
Je venais justement de constater qu'il est plus prudent
d'utiliser Intersect. Vais m'en souvenir.
Serge
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news: OfuO0ZeXHHA.2436@TK2MSFTNGP06.phx.gbl...
Bonsoir Serge,
;o) il n'y a pas que les crochets
si on modifie h1:k2 par exemple
du coup j1 est modifié aussi...
Salutations amicales.
Stéphane
Ou plus simplement, en m'inspirant des crochets de LSteph :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [J1] Then MaMacro
End Sub
Sub MaMacro()
MsgBox "Bonne et heureuse année !"
End Sub
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: ekNvLOeXHHA.4772@TK2MSFTNGP05.phx.gbl...
Salut Nito,
Un exemple :
Fais un clic droit sur l'onglet de la feuille concernée,
clique sur "Visualiser le code" et colle ces macros
dans la feuille vierge qui apparaîtra.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$1" Then MaMacro
End Sub
Sub MaMacro()
MsgBox "Joyeux Noël !"
End Sub
Serge
"Nito" <luc_bt@hotmail.com> a écrit dans le message de news: %23V8auJeXHHA.4264@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Excel 2000,
Dans une feuille de calcul, je voudrais déclencher une procédure lorsque le contenu d'une cellule (disons J1) est
modifié.
Je venais justement de constater qu'il est plus prudent d'utiliser Intersect. Vais m'en souvenir.
Serge
"LSteph" a écrit dans le message de news:
Bonsoir Serge,
;o) il n'y a pas que les crochets si on modifie h1:k2 par exemple du coup j1 est modifié aussi...
Salutations amicales.
Stéphane
Ou plus simplement, en m'inspirant des crochets de LSteph :
Private Sub Worksheet_Change(ByVal Target As Range) If Target = [J1] Then MaMacro End Sub
Sub MaMacro() MsgBox "Bonne et heureuse année !" End Sub
"garnote" a écrit dans le message de news:
Salut Nito,
Un exemple : Fais un clic droit sur l'onglet de la feuille concernée, clique sur "Visualiser le code" et colle ces macros dans la feuille vierge qui apparaîtra.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$J$1" Then MaMacro End Sub
Sub MaMacro() MsgBox "Joyeux Noël !" End Sub
Serge
"Nito" a écrit dans le message de news: %
Bonjour à tous, Excel 2000, Dans une feuille de calcul, je voudrais déclencher une procédure lorsque le contenu d'une cellule (disons J1) est modifié.