Dans le code d'une feuille on peut mettre du code vba sur un evenement on change...
3 réponses
Michel Angelosanto
Dans le code d'une feuille, je voudrait mettre une macro qui s'execute si la
valeur d'une cellule précise est changée.
Comment nommer l'évenement ?
J'ai mis du code dans on change, mais le code s'execute chaque fois qu'on
clique dans la feuille...
--
Michel Angelosanto, Bordeaux
http://angelosa.free.fr
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
Philippe.R
Bonsoir Michel, En tête de la procédure change, tu installe cette ligne de code
If Not Intersect(Target, [macel]) Is Nothing Then
dans laquelle [macel] est la cellule précise -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Michel Angelosanto" a écrit dans le message de news: 42066451$0$24724$
Dans le code d'une feuille, je voudrait mettre une macro qui s'execute si la valeur d'une cellule précise est changée. Comment nommer l'évenement ? J'ai mis du code dans on change, mais le code s'execute chaque fois qu'on clique dans la feuille...
-- Michel Angelosanto, Bordeaux http://angelosa.free.fr
Bonsoir Michel,
En tête de la procédure change, tu installe cette ligne de code
If Not Intersect(Target, [macel]) Is Nothing Then
dans laquelle [macel] est la cellule précise
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Michel Angelosanto" <angelosa@free.fr> a écrit dans le message de news:
42066451$0$24724$626a14ce@news.free.fr...
Dans le code d'une feuille, je voudrait mettre une macro qui s'execute si la valeur d'une cellule
précise est changée.
Comment nommer l'évenement ?
J'ai mis du code dans on change, mais le code s'execute chaque fois qu'on clique dans la feuille...
--
Michel Angelosanto, Bordeaux
http://angelosa.free.fr
Bonsoir Michel, En tête de la procédure change, tu installe cette ligne de code
If Not Intersect(Target, [macel]) Is Nothing Then
dans laquelle [macel] est la cellule précise -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Michel Angelosanto" a écrit dans le message de news: 42066451$0$24724$
Dans le code d'une feuille, je voudrait mettre une macro qui s'execute si la valeur d'une cellule précise est changée. Comment nommer l'évenement ? J'ai mis du code dans on change, mais le code s'execute chaque fois qu'on clique dans la feuille...
-- Michel Angelosanto, Bordeaux http://angelosa.free.fr
Jacky
Ah! Bonsoir à toi aussi Michel
Cela pourrait ressembler à ceci Ici pour la cellule A1, à adapter bien sur '----------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then MsgBox " La cellule " & Target.Address(0, 0) & " a changée" End Sub '----------- Salutations JJ
"Michel Angelosanto" a écrit dans le message de news:42066451$0$24724$
Dans le code d'une feuille, je voudrait mettre une macro qui s'execute si la
valeur d'une cellule précise est changée. Comment nommer l'évenement ? J'ai mis du code dans on change, mais le code s'execute chaque fois qu'on clique dans la feuille...
-- Michel Angelosanto, Bordeaux http://angelosa.free.fr
Ah! Bonsoir à toi aussi Michel
Cela pourrait ressembler à ceci
Ici pour la cellule A1, à adapter bien sur
'-----------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then MsgBox " La cellule " & Target.Address(0, 0)
& " a changée"
End Sub
'-----------
Salutations
JJ
"Michel Angelosanto" <angelosa@free.fr> a écrit dans le message de
news:42066451$0$24724$626a14ce@news.free.fr...
Dans le code d'une feuille, je voudrait mettre une macro qui s'execute si
la
valeur d'une cellule précise est changée.
Comment nommer l'évenement ?
J'ai mis du code dans on change, mais le code s'execute chaque fois qu'on
clique dans la feuille...
--
Michel Angelosanto, Bordeaux
http://angelosa.free.fr
Cela pourrait ressembler à ceci Ici pour la cellule A1, à adapter bien sur '----------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then MsgBox " La cellule " & Target.Address(0, 0) & " a changée" End Sub '----------- Salutations JJ
"Michel Angelosanto" a écrit dans le message de news:42066451$0$24724$
Dans le code d'une feuille, je voudrait mettre une macro qui s'execute si la
valeur d'une cellule précise est changée. Comment nommer l'évenement ? J'ai mis du code dans on change, mais le code s'execute chaque fois qu'on clique dans la feuille...
-- Michel Angelosanto, Bordeaux http://angelosa.free.fr
Michel Angelosanto
Merci c'est parfait. A+
-- Michel Angelosanto, Bordeaux http://angelosa.free.fr "Jacky" a écrit dans le message de news:
Ah! Bonsoir à toi aussi Michel
Cela pourrait ressembler à ceci Ici pour la cellule A1, à adapter bien sur '----------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then MsgBox " La cellule " & Target.Address(0, 0) & " a changée" End Sub
Merci c'est parfait.
A+
--
Michel Angelosanto, Bordeaux
http://angelosa.free.fr
"Jacky" <delaenlevezjusqueiciJacky.jaeg@w......o.fr> a écrit dans le message
de news: OAicSCIDFHA.1628@TK2MSFTNGP15.phx.gbl...
Ah! Bonsoir à toi aussi Michel
Cela pourrait ressembler à ceci
Ici pour la cellule A1, à adapter bien sur
'-----------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then MsgBox " La cellule " & Target.Address(0,
0)
& " a changée"
End Sub
-- Michel Angelosanto, Bordeaux http://angelosa.free.fr "Jacky" a écrit dans le message de news:
Ah! Bonsoir à toi aussi Michel
Cela pourrait ressembler à ceci Ici pour la cellule A1, à adapter bien sur '----------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then MsgBox " La cellule " & Target.Address(0, 0) & " a changée" End Sub
