Son et message sous excel VBA [Résolu]
mod77
Membre Dernière intervention
22 octobre 2018
- - Dernière réponse :
Charles Racaud
Membre Dernière intervention
9 avril 2017
- 4 nov. 2012 à 10:58
- Messages postés
- 1261
- Date d'inscription
- vendredi 10 juillet 2009
- Statut
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Statut
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
- Statut
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
144 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Statut
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
144 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Statut
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
144 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Statut
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
- 1261
- Date d'inscription
- vendredi 10 juillet 2009
- Statut
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
- Statut
- Messages postés
- 1261
- Date d'inscription
- vendredi 10 juillet 2009
- Statut
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
- Statut