Son et message sous excel VBA [Résolu]
mod77
- Messages postés
- 1267
- Date d'inscription
- vendredi 10 juillet 2009
- Statut
- Membre
- Dernière intervention
- 1 octobre 2019
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
A voir également:
- Vba kernel32
- Kernel32 vba - Meilleures réponses
- Kernel32 beep - Meilleures réponses
- Code vba excel - Conseils pratiques - Visual Basic / VB.NET
- Byval vba - Conseils pratiques - Visual Basic / VB.NET
- Doevents vba - Conseils pratiques - Visual Basic / VB.NET
- Vba vider presse papier - Forum - Visual Basic
- Vba convertir nombre en texte - Forum - Visual Basic
10 réponses
Meilleure réponse
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- 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
200 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- 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
200 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- 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
200 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- 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
- 1267
- Date d'inscription
- vendredi 10 juillet 2009
- Statut
- Membre
- Dernière intervention
- 1 octobre 2019
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
- Membre
- Dernière intervention
- 9 avril 2017
- Messages postés
- 1267
- Date d'inscription
- vendredi 10 juillet 2009
- Statut
- Membre
- Dernière intervention
- 1 octobre 2019
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
- Membre
- Dernière intervention
- 9 avril 2017