Comment ne pas voir une MsgBox, lors d'une exécution de macro
Résolu/Fermé
A voir également:
- Comment ne pas voir une MsgBox, lors d'une exécution de macro
- Comment voir qui regarde mon profil facebook - Guide
- Voir ma maison par satellite - Guide
- Voir mot de passe wifi android - Guide
- Voir qui regarde mon profil instagram - Guide
- Macro word - Guide
2 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
15 août 2017 à 08:52
15 août 2017 à 08:52
Bonjour,
PopUp au lieu de MSGBOX
exemple, a adapter:
PopUp au lieu de MSGBOX
exemple, a adapter:
Sub msgbox()
debut = Timer
'object.Popup(strText,[nSecondsToWait],[strTitle],[nType])
CreateObject("wscript.shell").popup "Terminé en " & Timer - debut & " secondes", 1, "durée"
End Sub
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
Modifié le 15 août 2017 à 10:03
Modifié le 15 août 2017 à 10:03
Bonjour,
« une cellule qui contiens une MsgBox lors de sa sélection »
Une cellule ne peut pas contenir de MsgBox, je suppose donc que c'est un évènement qui fait apparaître le MsgBox (probablement SelectionChange), si c'est le cas, tu peux inhiber les évènements pendant la copie, cela empêchera l'apparition du message :
Cordialement
Patrice
« une cellule qui contiens une MsgBox lors de sa sélection »
Une cellule ne peut pas contenir de MsgBox, je suppose donc que c'est un évènement qui fait apparaître le MsgBox (probablement SelectionChange), si c'est le cas, tu peux inhiber les évènements pendant la copie, cela empêchera l'apparition du message :
Application.EnableEvents = False 'ici tu fais ta copie de cellule Application.EnableEvents = True
Cordialement
Patrice
