J'ai créé une macro qui modifie 5 feuilles d'un classeur sur clic d'un
bouton dans une sixiéme. Pour des raisons d'amélioration, je voudrais bloquer
la fenêtre aprés le clic sur le bouton jusqu'à la fin de l'éxécution de la
macro et aficher une boite précisant "Calcul en cours...". Je pense que c'est
faisable mais je suis assez limité en macro. L'un de vous pourrait-il
m'aider. J'ai Excel 2000 et 2007. Ma macro est ci-dessous :
Sub Choix_1()
Sheets("Données Choix").Select
Range("A13").Select
ActiveCell.FormulaR1C1 = "1"
Range("A14").Select
Windows("Catalogue_des_prestations_TST.xls").Activate
Sheets("GrapheRC").Select
ActiveSheet.Shapes("Button 1026").Select
Selection.OnAction = "Macro1"
Sheets("GrapheARD").Select
ActiveSheet.Shapes("Button 2").Select
Selection.OnAction = "Macro1"
Sheets("GrapheCS").Select
ActiveSheet.Shapes("Button 8").Select
Selection.OnAction = "Macro1"
Sheets("GrapheHMM").Select
ActiveSheet.Shapes("Button 6").Select
Selection.OnAction = "Macro1"
Sheets("GrapheRC").Select
Range("A1").Select
End Sub
Merci Bruno
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
Pat
On 2 nov, 19:48, Bruno MOSCO wrote:
Bonjour,
J'ai créé une macro qui modifie 5 feuilles d'un classeur sur clic d'u n bouton dans une sixiéme. Pour des raisons d'amélioration, je voudrais bloquer la fenêtre aprés le clic sur le bouton jusqu'à la fin de l'éxéc ution de la macro et aficher une boite précisant "Calcul en cours...". Je pense que c'est faisable mais je suis assez limité en macro. L'un de vous pourrait-il m'aider. J'ai Excel 2000 et 2007. Ma macro est ci-dessous : Sub Choix_1() Sheets("Données Choix").Select Range("A13").Select ActiveCell.FormulaR1C1 = "1" Range("A14").Select Windows("Catalogue_des_prestations_TST.xls").Activate Sheets("GrapheRC").Select ActiveSheet.Shapes("Button 1026").Select Selection.OnAction = "Macro1" Sheets("GrapheARD").Select ActiveSheet.Shapes("Button 2").Select Selection.OnAction = "Macro1" Sheets("GrapheCS").Select ActiveSheet.Shapes("Button 8").Select Selection.OnAction = "Macro1" Sheets("GrapheHMM").Select ActiveSheet.Shapes("Button 6").Select Selection.OnAction = "Macro1" Sheets("GrapheRC").Select Range("A1").Select End Sub Merci Bruno
Bonjour,
Le plus simple est de créer un formulaire dans lequel tu mets ce que tu veux ( ex : attendre exécution ....) ensuite tu l'active en début de macro et le désactive en fin de macro
Application.ScreenUpdating = False et en fin Application.ScreenUpdating = true
Bonne soirée
On 2 nov, 19:48, Bruno MOSCO <BrunoMO...@discussions.microsoft.com>
wrote:
Bonjour,
J'ai créé une macro qui modifie 5 feuilles d'un classeur sur clic d'u n
bouton dans une sixiéme. Pour des raisons d'amélioration, je voudrais bloquer
la fenêtre aprés le clic sur le bouton jusqu'à la fin de l'éxéc ution de la
macro et aficher une boite précisant "Calcul en cours...". Je pense que c'est
faisable mais je suis assez limité en macro. L'un de vous pourrait-il
m'aider. J'ai Excel 2000 et 2007. Ma macro est ci-dessous :
Sub Choix_1()
Sheets("Données Choix").Select
Range("A13").Select
ActiveCell.FormulaR1C1 = "1"
Range("A14").Select
Windows("Catalogue_des_prestations_TST.xls").Activate
Sheets("GrapheRC").Select
ActiveSheet.Shapes("Button 1026").Select
Selection.OnAction = "Macro1"
Sheets("GrapheARD").Select
ActiveSheet.Shapes("Button 2").Select
Selection.OnAction = "Macro1"
Sheets("GrapheCS").Select
ActiveSheet.Shapes("Button 8").Select
Selection.OnAction = "Macro1"
Sheets("GrapheHMM").Select
ActiveSheet.Shapes("Button 6").Select
Selection.OnAction = "Macro1"
Sheets("GrapheRC").Select
Range("A1").Select
End Sub
Merci Bruno
Bonjour,
Le plus simple est de créer un formulaire dans lequel tu mets ce que
tu veux ( ex : attendre exécution ....) ensuite tu l'active en début
de macro et le désactive en fin de macro
J'ai créé une macro qui modifie 5 feuilles d'un classeur sur clic d'u n bouton dans une sixiéme. Pour des raisons d'amélioration, je voudrais bloquer la fenêtre aprés le clic sur le bouton jusqu'à la fin de l'éxéc ution de la macro et aficher une boite précisant "Calcul en cours...". Je pense que c'est faisable mais je suis assez limité en macro. L'un de vous pourrait-il m'aider. J'ai Excel 2000 et 2007. Ma macro est ci-dessous : Sub Choix_1() Sheets("Données Choix").Select Range("A13").Select ActiveCell.FormulaR1C1 = "1" Range("A14").Select Windows("Catalogue_des_prestations_TST.xls").Activate Sheets("GrapheRC").Select ActiveSheet.Shapes("Button 1026").Select Selection.OnAction = "Macro1" Sheets("GrapheARD").Select ActiveSheet.Shapes("Button 2").Select Selection.OnAction = "Macro1" Sheets("GrapheCS").Select ActiveSheet.Shapes("Button 8").Select Selection.OnAction = "Macro1" Sheets("GrapheHMM").Select ActiveSheet.Shapes("Button 6").Select Selection.OnAction = "Macro1" Sheets("GrapheRC").Select Range("A1").Select End Sub Merci Bruno
Bonjour,
Le plus simple est de créer un formulaire dans lequel tu mets ce que tu veux ( ex : attendre exécution ....) ensuite tu l'active en début de macro et le désactive en fin de macro