Un petit code VBA pour effacer une MSGBOX
vieuxray
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
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
<config>Windows10 / Edge 99.0.1150.55</Excel 2007>
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
<config>Windows10 / Edge 99.0.1150.55</Excel 2007>
8 réponses
-
-
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-
Voir cette discussion:
https://forums.commentcamarche.net/forum/affich-30832529-message-msgbox-temporaire-ne-fonctionne-pas#3
@+- Salut cs_Le Pivert,
Merci pour ta réponse,
Je voulais éviter les userforms en mettant une forme
c'est sur que c'est mieux pour l'habillage couleur etc etc etc
--- je vais voir ce qu'il reste possible de faire facilement.
Sinon pour les mgsboxs il faut coché
"Microsoft Scripting Runtime"
dans les références du module VBA? moi cela fonctionne maintenant mais comme je t'ai dit ce n'ai pas fiable
Bonne journée a toi et merci
Cdlt Ray - Tu peux t'inspirer de ce programme qui affiche un message à l'ouverture:
https://codes-sources.commentcamarche.net/source/49994-xldeprotegevba
@+
-
-
Bonjour a vous deux,
VieuxRay:
Pendant l'affichage de la forme, le programme doit continuer a s'executer ou pas? -
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 -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 -
Re,
Je recupere le fichier et regarde la chose demain matin si personne prend le relais -
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-
Va au plus simple pour faire cela:
http://cooking-excel.com/2013/02/afficher-un-commentaire-en-passant-la-souris-au-dessus-dune-cellule/
@+
-
-
Salut f894009,
Voila le fichier en cours lien par (cjoint)
https://www.cjoint.com/c/LDbpKaj2P3G
Cdlt Ray
