IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Émettre un Beep [XL-2003]


Sujet :

Macros et VBA Excel

  1. #1
    Membre confirmé Avatar de drakkar_agfa
    Profil pro
    Inscrit en
    septembre 2008
    Messages
    618
    Détails du profil
    Informations personnelles :
    Âge : 34
    Localisation : Canada

    Informations forums :
    Inscription : septembre 2008
    Messages : 618
    Points : 638
    Points
    638
    Par défaut Émettre un Beep
    Bonjour à tous,

    Je voudrais savoir s'il est possible d'émettre un beep variable.
    Je sais que simplement le code permet d'émettre un BIP mais d'une fréquence et d'une durée variée.

    Est-ce possible d'utiliser un Bip un peu comme en C++ qui ressemblerait à ça pour une fréquence 50 de 2 secondes?

    Merci pour votre aide!

  2. #2
    Expert éminent
    Avatar de cafeine
    Inscrit en
    juin 2002
    Messages
    3 904
    Détails du profil
    Informations forums :
    Inscription : juin 2002
    Messages : 3 904
    Points : 6 670
    Points
    6 670
    Par défaut
    Hello,

    ça doit être jouable par les API
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Public Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
    Ne mettez pas "Problème" dans vos titres, par définition derrière toute question se cache un problème
    12 tutoriels Access



  3. #3
    Membre expérimenté Avatar de laetitia
    Profil pro
    Inscrit en
    décembre 2002
    Messages
    1 281
    Détails du profil
    Informations personnelles :
    Âge : 31
    Localisation : France

    Informations forums :
    Inscription : décembre 2002
    Messages : 1 281
    Points : 1 512
    Points
    1 512
    Par défaut
    bonjour drakkar_agfa cafeine le forum j ai trouve cela !! si cela peut t'aider

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Private Sub Form_Activate()
        Dim Cnt As Long
        For Cnt = 0 To 5000 Step 10
            'play a tone of 'Cnt' hertz, for 50 milliseconds
            Beep Cnt, 50
            Me.Caption = Cnt
            DoEvents
        Next Cnt
    End Sub
    SALUTATIONS

  4. #4
    Membre confirmé Avatar de drakkar_agfa
    Profil pro
    Inscrit en
    septembre 2008
    Messages
    618
    Détails du profil
    Informations personnelles :
    Âge : 34
    Localisation : Canada

    Informations forums :
    Inscription : septembre 2008
    Messages : 618
    Points : 638
    Points
    638
    Par défaut
    Merci!

    Mais j'ai un problème à l'exécution, sur ce code, j'ai l'erreur 49 "Convention d'appel de DLL incorrecte" sur la ligne Est-ce qu'il manque quelque chose au projet?

    Merci encore, je suis sur le bon chemin ^^

  5. #5
    Membre expérimenté Avatar de laetitia
    Profil pro
    Inscrit en
    décembre 2002
    Messages
    1 281
    Détails du profil
    Informations personnelles :
    Âge : 31
    Localisation : France

    Informations forums :
    Inscription : décembre 2002
    Messages : 1 281
    Points : 1 512
    Points
    1 512
    Par défaut
    re j ai testé dans un userform excel 2003 pas de souci ??

    Option Explicit
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub UserForm_Activate()
      Dim Cnt As Long
        For Cnt = 0 To 500 Step 10
            Beep Cnt, 50
            Me.Caption = Cnt
            DoEvents
        Next Cnt
    End Sub
    SALUTATIONS

  6. #6
    Membre confirmé Avatar de drakkar_agfa
    Profil pro
    Inscrit en
    septembre 2008
    Messages
    618
    Détails du profil
    Informations personnelles :
    Âge : 34
    Localisation : Canada

    Informations forums :
    Inscription : septembre 2008
    Messages : 618
    Points : 638
    Points
    638
    Par défaut
    Et bien,

    J'ai essayé et ça fonctione, je ne sais pas si j'avais mal copié une ligne.

    Merci C'est exactement ce que je voulais!

    Je vais maintenant pouvoir jouer de la musique!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [FASM/Vista] Comment émettre un beep ?
    Par Ayden-Idurro dans le forum x86 16-bits
    Réponses: 0
    Dernier message: 31/12/2008, 19h15
  2. [VB6] mettre en commentaires...
    Par nd25 dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 19/04/2004, 16h15
  3. [VB6] - Mettre un morceau de ligne en commentaire
    Par inotna2099 dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 12/11/2002, 12h03
  4. Comment faire pour mettre l'ecran en veille ?
    Par March' dans le forum MFC
    Réponses: 6
    Dernier message: 29/08/2002, 15h25
  5. [langage] Problème de taille de fichier à mettre dans
    Par And_the_problem_is dans le forum Langage
    Réponses: 10
    Dernier message: 13/08/2002, 10h41

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo