Comment ne pas voir une MsgBox, lors d'une exécution de macro Résolu/Fermé

Question

Bonjour,
Je cherche comment ne pas à avoir à cliquer sur ok dans la MsgBox qui s'affiche lors de l'exécution d'une macro qui copie la valeurs d'une cellule qui contiens une MsgBox lors de sa sélection vers une autre cellule. La première cellule à une MsgBox qui dit (attention ne pas toucher), car la cellule contiens une formule. Se que je voudrais c'est qu'elle ne me demande pas de cliquer sur ok pour continuer la macro. Es-ce possible  
Merci!

f894009 · Answer

Bonjour,

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 · Answer

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 :

Application.EnableEvents = False
'ici tu fais ta copie de cellule
Application.EnableEvents = True

 
Cordialement
Patrice

Comment ne pas voir une MsgBox, lors d'une exécution de macro

2 réponses

Discussions similaires