Blocage fenêtre avec MsgBox pendant macro

Le
Bruno MOSCO
Bonjour,

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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Pat
Le #17727831
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

Nomdetonformuliare.Show False
Nomdetonformulaire.Hide

Pour ne pas voir l'activité de la macro :

Application.ScreenUpdating = False
et en fin
Application.ScreenUpdating = true

Bonne soirée
Publicité
Poster une réponse
Anonyme