Je souhaite lancer une macro après avoir appliqué un filtre dans un tableau
Les
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
ne fonctionnent pas
Avez-vous une idéee ?
D'avance merci
JP
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
Bonjour Difoul56,
Ça te tente de bidouiller ?
A ) Insère une feuille dans ton classeur B ) dans cette nouvelle feuille, insère une formule dans la cellule de ton choix du type : =SOUS.TOTAL(3;Feuil1!A:A) - dans la formule, le nom de la feuil1 doit être remplacé par le nom de la feuille où tu exécutes ton filtre. Tu peux utiliser un nom (insertion / nom / définir) pour Feuil1!A:A C ) Tu peux masquer cette feuille avec cette ligne de code Worksheets("NomDelaFeuille").visible = xlveryhidden de cette manière elle ne sera pas accessible par les usagers de l'application. D ) Dans le module feuille de cette nouvelle feuille insère ceci : '------------------------------------- Private Sub Worksheet_Calculate() Application.OnTime (Now + TimeValue("0:00:01")), "MaMacro" End Sub '-------------------------------------
"MaMacro" est le nom de ta macro que tu veux voir exécuter après le filtre. Tu dois placer "MaMacro" dans un module standard. Selon la grosseur de la plage à filtrer, tu peux faire varier 1 seconde pour 2 ou 3 secondes afin de t'assurer que la macro sera lancée après le filtre.
Évidemment, ton classeur doit être en mode de calcul automatique !
"Difoul56" a écrit dans le message de groupe de discussion :
Bonjour,
Je souhaite lancer une macro après avoir appliqué un filtre dans un tableau Les Private Sub Workbook_SheetCalculate(ByVal Sh As Object) Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) ne fonctionnent pas Avez-vous une idéee ? D'avance merci JP
Bonjour Difoul56,
Ça te tente de bidouiller ?
A ) Insère une feuille dans ton classeur
B ) dans cette nouvelle feuille, insère une formule
dans la cellule de ton choix du type :
=SOUS.TOTAL(3;Feuil1!A:A)
- dans la formule, le nom de la feuil1 doit être remplacé
par le nom de la feuille où tu exécutes ton filtre.
Tu peux utiliser un nom (insertion / nom / définir) pour
Feuil1!A:A
C ) Tu peux masquer cette feuille avec cette ligne de code
Worksheets("NomDelaFeuille").visible = xlveryhidden
de cette manière elle ne sera pas accessible par les usagers
de l'application.
D ) Dans le module feuille de cette nouvelle feuille
insère ceci :
'-------------------------------------
Private Sub Worksheet_Calculate()
Application.OnTime (Now + TimeValue("0:00:01")), "MaMacro"
End Sub
'-------------------------------------
"MaMacro" est le nom de ta macro que tu veux voir exécuter après
le filtre. Tu dois placer "MaMacro" dans un module standard. Selon
la grosseur de la plage à filtrer, tu peux faire varier 1 seconde
pour 2 ou 3 secondes afin de t'assurer que la macro sera lancée
après le filtre.
Évidemment, ton classeur doit être en mode de calcul automatique !
"Difoul56" <difoul56@yahoo.fr> a écrit dans le message de groupe de discussion :
eNQi3HRDKHA.3724@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je souhaite lancer une macro après avoir appliqué un filtre dans un tableau
Les
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
ne fonctionnent pas
Avez-vous une idéee ?
D'avance merci
JP
A ) Insère une feuille dans ton classeur B ) dans cette nouvelle feuille, insère une formule dans la cellule de ton choix du type : =SOUS.TOTAL(3;Feuil1!A:A) - dans la formule, le nom de la feuil1 doit être remplacé par le nom de la feuille où tu exécutes ton filtre. Tu peux utiliser un nom (insertion / nom / définir) pour Feuil1!A:A C ) Tu peux masquer cette feuille avec cette ligne de code Worksheets("NomDelaFeuille").visible = xlveryhidden de cette manière elle ne sera pas accessible par les usagers de l'application. D ) Dans le module feuille de cette nouvelle feuille insère ceci : '------------------------------------- Private Sub Worksheet_Calculate() Application.OnTime (Now + TimeValue("0:00:01")), "MaMacro" End Sub '-------------------------------------
"MaMacro" est le nom de ta macro que tu veux voir exécuter après le filtre. Tu dois placer "MaMacro" dans un module standard. Selon la grosseur de la plage à filtrer, tu peux faire varier 1 seconde pour 2 ou 3 secondes afin de t'assurer que la macro sera lancée après le filtre.
Évidemment, ton classeur doit être en mode de calcul automatique !
"Difoul56" a écrit dans le message de groupe de discussion :
Bonjour,
Je souhaite lancer une macro après avoir appliqué un filtre dans un tableau Les Private Sub Workbook_SheetCalculate(ByVal Sh As Object) Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) ne fonctionnent pas Avez-vous une idéee ? D'avance merci JP
Difoul56
L'idée est intéressante, je fais un essai Merci
"MichDenis" a écrit dans le message de news: %
Bonjour Difoul56,
Ça te tente de bidouiller ?
A ) Insère une feuille dans ton classeur B ) dans cette nouvelle feuille, insère une formule dans la cellule de ton choix du type : =SOUS.TOTAL(3;Feuil1!A:A) - dans la formule, le nom de la feuil1 doit être remplacé par le nom de la feuille où tu exécutes ton filtre. Tu peux utiliser un nom (insertion / nom / définir) pour Feuil1!A:A C ) Tu peux masquer cette feuille avec cette ligne de code Worksheets("NomDelaFeuille").visible = xlveryhidden de cette manière elle ne sera pas accessible par les usagers de l'application. D ) Dans le module feuille de cette nouvelle feuille insère ceci : '------------------------------------- Private Sub Worksheet_Calculate() Application.OnTime (Now + TimeValue("0:00:01")), "MaMacro" End Sub '-------------------------------------
"MaMacro" est le nom de ta macro que tu veux voir exécuter après le filtre. Tu dois placer "MaMacro" dans un module standard. Selon la grosseur de la plage à filtrer, tu peux faire varier 1 seconde pour 2 ou 3 secondes afin de t'assurer que la macro sera lancée après le filtre.
Évidemment, ton classeur doit être en mode de calcul automatique !
"Difoul56" a écrit dans le message de groupe de discussion :
Bonjour,
Je souhaite lancer une macro après avoir appliqué un filtre dans un tableau Les Private Sub Workbook_SheetCalculate(ByVal Sh As Object) Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) ne fonctionnent pas Avez-vous une idéee ? D'avance merci JP
L'idée est intéressante, je fais un essai
Merci
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23E7b4KSDKHA.1340@TK2MSFTNGP05.phx.gbl...
Bonjour Difoul56,
Ça te tente de bidouiller ?
A ) Insère une feuille dans ton classeur
B ) dans cette nouvelle feuille, insère une formule
dans la cellule de ton choix du type :
=SOUS.TOTAL(3;Feuil1!A:A)
- dans la formule, le nom de la feuil1 doit être remplacé
par le nom de la feuille où tu exécutes ton filtre.
Tu peux utiliser un nom (insertion / nom / définir) pour
Feuil1!A:A
C ) Tu peux masquer cette feuille avec cette ligne de code
Worksheets("NomDelaFeuille").visible = xlveryhidden
de cette manière elle ne sera pas accessible par les usagers
de l'application.
D ) Dans le module feuille de cette nouvelle feuille
insère ceci :
'-------------------------------------
Private Sub Worksheet_Calculate()
Application.OnTime (Now + TimeValue("0:00:01")), "MaMacro"
End Sub
'-------------------------------------
"MaMacro" est le nom de ta macro que tu veux voir exécuter après
le filtre. Tu dois placer "MaMacro" dans un module standard. Selon
la grosseur de la plage à filtrer, tu peux faire varier 1 seconde
pour 2 ou 3 secondes afin de t'assurer que la macro sera lancée
après le filtre.
Évidemment, ton classeur doit être en mode de calcul automatique !
"Difoul56" <difoul56@yahoo.fr> a écrit dans le message de groupe de
discussion :
eNQi3HRDKHA.3724@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je souhaite lancer une macro après avoir appliqué un filtre dans un
tableau
Les
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
ne fonctionnent pas
Avez-vous une idéee ?
D'avance merci
JP
A ) Insère une feuille dans ton classeur B ) dans cette nouvelle feuille, insère une formule dans la cellule de ton choix du type : =SOUS.TOTAL(3;Feuil1!A:A) - dans la formule, le nom de la feuil1 doit être remplacé par le nom de la feuille où tu exécutes ton filtre. Tu peux utiliser un nom (insertion / nom / définir) pour Feuil1!A:A C ) Tu peux masquer cette feuille avec cette ligne de code Worksheets("NomDelaFeuille").visible = xlveryhidden de cette manière elle ne sera pas accessible par les usagers de l'application. D ) Dans le module feuille de cette nouvelle feuille insère ceci : '------------------------------------- Private Sub Worksheet_Calculate() Application.OnTime (Now + TimeValue("0:00:01")), "MaMacro" End Sub '-------------------------------------
"MaMacro" est le nom de ta macro que tu veux voir exécuter après le filtre. Tu dois placer "MaMacro" dans un module standard. Selon la grosseur de la plage à filtrer, tu peux faire varier 1 seconde pour 2 ou 3 secondes afin de t'assurer que la macro sera lancée après le filtre.
Évidemment, ton classeur doit être en mode de calcul automatique !
"Difoul56" a écrit dans le message de groupe de discussion :
Bonjour,
Je souhaite lancer une macro après avoir appliqué un filtre dans un tableau Les Private Sub Workbook_SheetCalculate(ByVal Sh As Object) Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) ne fonctionnent pas Avez-vous une idéee ? D'avance merci JP