Eviter une pause lors d'une msgbox

[SAMLOI]

Bonjour,

Après avoir lu un bon nombre de forum je ne trouve pas d'historique à mon problème.

J'ai une macro qui se lance toutes les 10 secondes.
Cette macro doit celon certains critères ouvrir une msgbox pour avertir l'utilisateur devant son PC.
Mais lorsque la msgbox est ouverte la macro n'avance pas, jusqu'a ce qu'une personne vienne valider.

Je souhaiterai que cette macro ouvre une msgbox pour avertir l'utilisateur et continue de fonctionner normalement et recommence toute les 10 secondes.
Voir même ouvrir une deuxième msgbox si les critères sont toujours présents la boucle d'après.

Merci par avance de votre aide.

samloi

 

[vinc26]

slt
ce que tu peut faire c'est de creer un useform
et tu met ton message dans un lable
et avec un timer tu la detruit au bout de 10 seconde
et ensuite te la rapelle cette forme quand tu veut et ainsi de suite
exemple
dans ta macro
tu appel ta forme
fenetre_message.show

dans feuille
'**********************************************************************
'Procedure lorsque la fenetre de demmarage est activé on met en place
'une temporisation pour la fermeture de la fenetre demarrage
'La temporisation ici est de 2 secondes
'**********************************************************************
Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:02"), "killtheform"
End Sub

dans module
Private Sub killtheform()
Unload demarrage
End Sub

voila si prob dis le

 

[Sylvain]

Bonjour,

Il doit y avoir des solutions avec applications.enableevents ou un truc comme ça.
Mais on peut utiliser l'assistant qui va afficher une bulle d'aide (voir justement l'aide d'Excel.
En choisissant .msoModeModeless on peut continuer à travailler avec une bulle ouverte.

With Assistant.NewBalloon
.Heading = "Select A Printer"
.Text = "You must select a printer before printing."
.Icon = msoIconAlert
.CheckBoxes(1).Text = "Local printer"
.CheckBoxes(2).Text = "Network printer"
.Mode = msoModeModeless
.Callback = "ProcessPrinter"
.Show
End With

A+