Un petit code VBA pour effacer une MSGBOX Fermé

Question

Bonsoir a tous et toutes, forum bonsoir Je cherche un petit code VBA qui effacerai l'affichage d'une boite msgbox. Ex: j'affiche un message dans une msgbox et je souhaiterai fermer automatiquement pour sortir de cette boite au bout de quelques secondes et continuer le programme mais pas de UserForm Merci pour votre aide, bonne soirée a vous et merci pour votre aide. Cdlt Ray Windows10 / Edge 99.0.1150.55

cs_Le Pivert · Answer

Bonjour,

Voir ceci


 https://excel-malin.com/codes-sources-vba/msgbox-qui-se-ferme-automatiquement/

vieuxray · Answer

Salut cs_le pivert

Merci de ta réponse,

J'ai déja essayer avec le lien que tu proposes mais ce n'ai pas fiable des secondes a rallonge et tous autres soucis ca plante mème Excel alors non

Je pensais faire afficher une forme avec un message puis utiliser ce code qui fonctionne très bien, qui au bout du temps imposer efface automatiquement la forme et on continue le programme.

 Application.Wait (Now + TimeValue("0:00:01"))

Je retrouve plus un exemple sur le net mais il a disparu sans doute

voila si tu a une idée sur le sujet ca sera surement bon pour moi

Merci de ton aide passe un bonne soirée 

Cdlt Ray

f894009 · Answer

Bonjour a vous deux,

VieuxRay:
Pendant l'affichage de la forme, le programme doit continuer a s'executer ou pas?

vieuxray · Answer

Salut f894009,

Merci de ta réponse,

Pour le programme NON pas besoin qu'il tourne.

En fait j'entre des données prise sur mon cardiomètre puis je place les données dans le tableau

Mais pour éviter des erreurs de manipulation, je voulais mettre des messages qui restent afficher un temps de quelques secondes, puis s'efface tout seul.
Sans entrer dans un code laborieux, au plus court c'est bien Lol

Merci pour ton  aide, une bonne journée a toi
Cdlt Ray

f894009 · Answer

Re,

la forme devient non visible quand la cellule A1 n'est plus vide
Donc il n'y a pas de notion de temps. 
Sub test()
    ActiveSheet.Shapes("Rectangle 1").Visible = True
    Do While Range("A1") = ""
        DoEvents
    Loop
    ActiveSheet.Shapes("Rectangle 1").Visible = False
End Sub

vieuxray · Answer

Salut f894009,

Merci pour ta réponse,
je n'avais pas penser a faire comme tu la fait dans ton code.

Je dois contrôler plusieurs lignes A2,A8,A14,A22,A28,A34,F2,F8,F14,F22,F28,F34 comment faire
et peut t'on utiliser ou incorporer dans le code afin d'éviter de faire appel a ta macro (Sans Sub)

Merci pour ton aide, bonne après midi.

Cdlt Ray

vieuxray · Answer

Salut f894009,

Voila le fichier en cours lien par (cjoint)

https://www.cjoint.com/c/LDbpKaj2P3G

Cdlt Ray

f894009 · Answer

Re,

Je recupere le fichier et regarde la chose demain matin si personne prend le relais

Un petit code VBA pour effacer une MSGBOX

8 réponses

Discussions similaires