geler le fonctionnt d'une private sub pendant une autre macro
2 réponses
gilles
Bonjour à tous,
j'ai le code ci dessous qui lance une MsgBOX pour rappeler aux utilisateurs
sur quel mois ils sont.
PRIVATESub worksheet selection change()
Msg = [D1].Value
Title = "Êtes vous bien sur le bon mois? "
Style = vbOKOnly + vbInformation
Reponse = MsgBox(Msg, Style, Title)
End Sub
Le pb c'est que qand je lance une autre macro (Sub importeSiValeur1() )qui
fait des aller-retours entre onglets, mon msgbox s'affiche à chaque AR
d'onglet
Un(e) puissant(e) VBAtiste verrait-y un code à placer dans cette macro ou
dans l'autre, qui empêcherait la private sub de fonctionnermomentanémént?
Merci
--
gilles72
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
MichDenis
Quand tu lances cette procédure :
Sub importeSiValeur1()
ajoute-lui une ligne de code au début de celle-ci : Application.EnableEvents = False
Et à la fin de celle-ci : Application.EnableEvents = True
"gilles" a écrit dans le message de news:
Bonjour à tous, j'ai le code ci dessous qui lance une MsgBOX pour rappeler aux utilisateurs sur quel mois ils sont. PRIVATESub worksheet selection change() Msg = [D1].Value Title = "Êtes vous bien sur le bon mois? " Style = vbOKOnly + vbInformation Reponse = MsgBox(Msg, Style, Title) End Sub Le pb c'est que qand je lance une autre macro (Sub importeSiValeur1() )qui fait des aller-retours entre onglets, mon msgbox s'affiche à chaque AR d'onglet Un(e) puissant(e) VBAtiste verrait-y un code à placer dans cette macro ou dans l'autre, qui empêcherait la private sub de fonctionnermomentanémént? Merci -- gilles72
Quand tu lances cette procédure :
Sub importeSiValeur1()
ajoute-lui une ligne de code au début de celle-ci :
Application.EnableEvents = False
Et à la fin de celle-ci :
Application.EnableEvents = True
"gilles" <gilles@discussions.microsoft.com> a écrit dans le message de news:
2AA5A999-03D8-4927-8CF6-B12C3245DC03@microsoft.com...
Bonjour à tous,
j'ai le code ci dessous qui lance une MsgBOX pour rappeler aux utilisateurs
sur quel mois ils sont.
PRIVATESub worksheet selection change()
Msg = [D1].Value
Title = "Êtes vous bien sur le bon mois? "
Style = vbOKOnly + vbInformation
Reponse = MsgBox(Msg, Style, Title)
End Sub
Le pb c'est que qand je lance une autre macro (Sub importeSiValeur1() )qui
fait des aller-retours entre onglets, mon msgbox s'affiche à chaque AR
d'onglet
Un(e) puissant(e) VBAtiste verrait-y un code à placer dans cette macro ou
dans l'autre, qui empêcherait la private sub de fonctionnermomentanémént?
Merci
--
gilles72
ajoute-lui une ligne de code au début de celle-ci : Application.EnableEvents = False
Et à la fin de celle-ci : Application.EnableEvents = True
"gilles" a écrit dans le message de news:
Bonjour à tous, j'ai le code ci dessous qui lance une MsgBOX pour rappeler aux utilisateurs sur quel mois ils sont. PRIVATESub worksheet selection change() Msg = [D1].Value Title = "Êtes vous bien sur le bon mois? " Style = vbOKOnly + vbInformation Reponse = MsgBox(Msg, Style, Title) End Sub Le pb c'est que qand je lance une autre macro (Sub importeSiValeur1() )qui fait des aller-retours entre onglets, mon msgbox s'affiche à chaque AR d'onglet Un(e) puissant(e) VBAtiste verrait-y un code à placer dans cette macro ou dans l'autre, qui empêcherait la private sub de fonctionnermomentanémént? Merci -- gilles72
gilles
Merci MICHEL nickel je suppose que c'est un fondamental de VBA? Tu me fais un beau cadeau de noel Je te souhaite de bonnes fêtes avec abus mais sans lendemain délicat! à+ -- gilles72
Quand tu lances cette procédure :
Sub importeSiValeur1()
ajoute-lui une ligne de code au début de celle-ci : Application.EnableEvents = False
Et à la fin de celle-ci : Application.EnableEvents = True
"gilles" a écrit dans le message de news:
Bonjour à tous, j'ai le code ci dessous qui lance une MsgBOX pour rappeler aux utilisateurs sur quel mois ils sont. PRIVATESub worksheet selection change() Msg = [D1].Value Title = "Êtes vous bien sur le bon mois? " Style = vbOKOnly + vbInformation Reponse = MsgBox(Msg, Style, Title) End Sub Le pb c'est que qand je lance une autre macro (Sub importeSiValeur1() )qui fait des aller-retours entre onglets, mon msgbox s'affiche à chaque AR d'onglet Un(e) puissant(e) VBAtiste verrait-y un code à placer dans cette macro ou dans l'autre, qui empêcherait la private sub de fonctionnermomentanémént? Merci -- gilles72
Merci MICHEL
nickel
je suppose que c'est un fondamental de VBA?
Tu me fais un beau cadeau de noel
Je te souhaite de bonnes fêtes avec abus mais sans lendemain délicat!
à+
--
gilles72
Quand tu lances cette procédure :
Sub importeSiValeur1()
ajoute-lui une ligne de code au début de celle-ci :
Application.EnableEvents = False
Et à la fin de celle-ci :
Application.EnableEvents = True
"gilles" <gilles@discussions.microsoft.com> a écrit dans le message de news:
2AA5A999-03D8-4927-8CF6-B12C3245DC03@microsoft.com...
Bonjour à tous,
j'ai le code ci dessous qui lance une MsgBOX pour rappeler aux utilisateurs
sur quel mois ils sont.
PRIVATESub worksheet selection change()
Msg = [D1].Value
Title = "Êtes vous bien sur le bon mois? "
Style = vbOKOnly + vbInformation
Reponse = MsgBox(Msg, Style, Title)
End Sub
Le pb c'est que qand je lance une autre macro (Sub importeSiValeur1() )qui
fait des aller-retours entre onglets, mon msgbox s'affiche à chaque AR
d'onglet
Un(e) puissant(e) VBAtiste verrait-y un code à placer dans cette macro ou
dans l'autre, qui empêcherait la private sub de fonctionnermomentanémént?
Merci
--
gilles72
Merci MICHEL nickel je suppose que c'est un fondamental de VBA? Tu me fais un beau cadeau de noel Je te souhaite de bonnes fêtes avec abus mais sans lendemain délicat! à+ -- gilles72
Quand tu lances cette procédure :
Sub importeSiValeur1()
ajoute-lui une ligne de code au début de celle-ci : Application.EnableEvents = False
Et à la fin de celle-ci : Application.EnableEvents = True
"gilles" a écrit dans le message de news:
Bonjour à tous, j'ai le code ci dessous qui lance une MsgBOX pour rappeler aux utilisateurs sur quel mois ils sont. PRIVATESub worksheet selection change() Msg = [D1].Value Title = "Êtes vous bien sur le bon mois? " Style = vbOKOnly + vbInformation Reponse = MsgBox(Msg, Style, Title) End Sub Le pb c'est que qand je lance une autre macro (Sub importeSiValeur1() )qui fait des aller-retours entre onglets, mon msgbox s'affiche à chaque AR d'onglet Un(e) puissant(e) VBAtiste verrait-y un code à placer dans cette macro ou dans l'autre, qui empêcherait la private sub de fonctionnermomentanémént? Merci -- gilles72