Son et message sous excel VBA [Résolu]
mod77
- Messages postés
- 1260
- Date d'inscription
- vendredi 10 juillet 2009
- Dernière intervention
- 22 octobre 2018
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Dernière intervention
- 9 avril 2017
A voir également:
- Vba declare ptrsafe
- Kernel32 beep - Meilleures réponses
- Message d'erreur dans Excel VBA ✓ - Forum - Visual Basic 6
- Ajouter des entrées au menu d'excel (vba) - Codes sources - Visual Basic / VB.NET (VBA)
- Une methode simple pour intégrer excel+vba dans vb ! - Codes sources - Visual Basic / VB.NET (Trucs & Astuces)
- Envoi de message notes via vba - Codes sources - Visual Basic / VB.NET (VBA)
- Visual Basic / VB.NET : Un jeu de pacman ... sur excel (vba) - CodeS SourceS - Guide
10 réponses
Meilleure réponse
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Dernière intervention
- 9 avril 2017
Commence par te créer ton petit message avec une zone de texte (via les graphiques d'Excel) que tu renomme en MsgInfo
Puis voilà un petit code pour te donner une idée
D'abord ajouter ca au début de ton module (retire éventuellement les PtrSafe si il n'est pas content) :
A placer après ton traitement :
Par contre l'attente est bloquante, aucune actions ne pourra être faite pendant ce temps
_____________
Kenji
Puis voilà un petit code pour te donner une idée
D'abord ajouter ca au début de ton module (retire éventuellement les PtrSafe si il n'est pas content) :
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Declare PtrSafe Function Beep Lib "kernel32.dll" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
A placer après ton traitement :
Dim shape As shape
Set shape = ActiveSheet.Shapes("MsgInfo")
shape.Visible = msoTrue
Call Sleep(1000) 'Attente 1 seconde
Call Beep(800, 500) ' Beep pendant 500ms
shape.Visible = msoFalse
Par contre l'attente est bloquante, aucune actions ne pourra être faite pendant ce temps
_____________
Kenji
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
89 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Dernière intervention
- 9 avril 2017
Deuxième possibilité sans les API et l'attente non bloquante
Et la fonction de fin
_____________
Kenji
Dim shape As shape
Set shape = ActiveSheet.Shapes("MsgInfo")
shape.Visible = msoTrue
Application.OnTime Now + TimeValue("00:00:01"), "WaitEnd"
Et la fonction de fin
Public Sub WaitEnd()
Dim shape As shape
Set shape = ActiveSheet.Shapes("MsgInfo")
VBA.Beep
shape.Visible = msoFalse
End Sub
_____________
Kenji
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
89 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Dernière intervention
- 9 avril 2017
Si tu veux conserver la TextBox, il faut passer par un OLEObject
_____________
Kenji
Public Sub WaitEnd()
Dim ctrl As OLEObject
Set ctrl = ActiveSheet.OLEObjects("MsgInfo1")
VBA.Beep
ctrl.Visible = False
End Sub
Dim ctrl As OLEObject
Set ctrl = ActiveSheet.OLEObjects("MsgInfo1")
ctrl.Visible = True
Application.OnTime Now + TimeValue("00:00:01"), "WaitEnd"
_____________
Kenji
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
89 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Dernière intervention
- 9 avril 2017
Bonsoir,
Plusieurs choix :
Soit tu affiche le message dans un forme (rectangle, cercle ...) que tu fais apparaitre ou disparaitre
Sois tu affiche une message style msgbox mais de ta propre conception (UserFrom)
Soit juste un texte écris dans une cellule, et qui s'efface après
Soit faire un Bip avec le son de Windows
Soit faire un Bip avec le buzzer du PC
_____________
Kenji
Plusieurs choix :
Soit tu affiche le message dans un forme (rectangle, cercle ...) que tu fais apparaitre ou disparaitre
Sois tu affiche une message style msgbox mais de ta propre conception (UserFrom)
Soit juste un texte écris dans une cellule, et qui s'efface après
Soit faire un Bip avec le son de Windows
Soit faire un Bip avec le buzzer du PC
_____________
Kenji
- Messages postés
- 1260
- Date d'inscription
- vendredi 10 juillet 2009
- Dernière intervention
- 22 octobre 2018
Bonjour Charles Racaud,
J'ai essayé la 2e méthode.
J'ai retiré effectivement les ptrSafe, mais
j'ai un message d'erreur qui apparait de temps en temps" Erreur d'exécution n°5: argument ou appel de procédure incorrecte" au niveau de "shape =...".
Mais je ne comprends pas une chose:
J'ai créé ma zone texte MsgInfo1. Via propriété j'ai mis le texte "note attribuée".
Mais il est toujours visible.
Et où dois-je mettre le 1er code "Dim shape.."
J'ai essayé la 2e méthode.
J'ai retiré effectivement les ptrSafe, mais
j'ai un message d'erreur qui apparait de temps en temps" Erreur d'exécution n°5: argument ou appel de procédure incorrecte" au niveau de "shape =...".
Mais je ne comprends pas une chose:
J'ai créé ma zone texte MsgInfo1. Via propriété j'ai mis le texte "note attribuée".
Mais il est toujours visible.
Et où dois-je mettre le 1er code "Dim shape.."
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Dernière intervention
- 9 avril 2017
- Messages postés
- 1260
- Date d'inscription
- vendredi 10 juillet 2009
- Dernière intervention
- 22 octobre 2018
Voici le fichier ça sera plus simple:
http://cjoint.com/?3KdlIRQdrwt
http://cjoint.com/?3KdlIRQdrwt
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Dernière intervention
- 9 avril 2017
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.