Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Double Beep

Double Beep

9 réponses
Avatar
Florian
Bonjour, je viens de trouver cette proc afin d'avoir deux beep distinct l'un
après l'autre, mais cela ne fonctionne pas. Sans doute les 2 beep sont-ils
trop rapprochés, et ne font qu'1.
Comment faire afin d'entendre distinctement 2 beeps rapprochés.
merci beaucoup et encore bravo

Sub coyote()
For i = 1 To 2
Beep
Next i
End Sub
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel Pierron
Bonsoir Florian;
Essaie d'intercaler une tempo:
dim l&: l = Timer + 1
While Timer < l: DoEvents: Wend
MP

"Florian" a écrit dans le message de
news:%
Bonjour, je viens de trouver cette proc afin d'avoir deux beep distinct
l'un

après l'autre, mais cela ne fonctionne pas. Sans doute les 2 beep sont-ils
trop rapprochés, et ne font qu'1.
Comment faire afin d'entendre distinctement 2 beeps rapprochés.
merci beaucoup et encore bravo

Sub coyote()
For i = 1 To 2
Beep
Next i
End Sub




Avatar
Michel Pierron
Re;
Tu peux régler la tempo en jouant sur la fraction de seconde ajoutée à Timer
Sub coyote()
Beep
Dim l&: l = Timer + 0.25
While Timer < l: DoEvents: Wend
Beep
End Sub

MP

"Florian" a écrit dans le message de
news:%
Bonjour, je viens de trouver cette proc afin d'avoir deux beep distinct
l'un

après l'autre, mais cela ne fonctionne pas. Sans doute les 2 beep sont-ils
trop rapprochés, et ne font qu'1.
Comment faire afin d'entendre distinctement 2 beeps rapprochés.
merci beaucoup et encore bravo

Sub coyote()
For i = 1 To 2
Beep
Next i
End Sub




Avatar
Florian
Bonsoir et merci Michel
Comme cela c'est trop lent ! Je pense que je dois mal l'exécuter.
Sub coyote()
Beep
Dim l&: l = Timer + 1
While Timer < l: DoEvents: Wend
For i = 1 To 2
Beep
Next i
End Sub





"Michel Pierron" a écrit dans le message de
news:
Bonsoir Florian;
Essaie d'intercaler une tempo:
dim l&: l = Timer + 1
While Timer < l: DoEvents: Wend
MP

"Florian" a écrit dans le message de
news:%
Bonjour, je viens de trouver cette proc afin d'avoir deux beep distinct
l'un

après l'autre, mais cela ne fonctionne pas. Sans doute les 2 beep
sont-ils


trop rapprochés, et ne font qu'1.
Comment faire afin d'entendre distinctement 2 beeps rapprochés.
merci beaucoup et encore bravo

Sub coyote()
For i = 1 To 2
Beep
Next i
End Sub








Avatar
Florian
Ok merci Michel, même s'il est vrai que les beep ne sont pas coordonnées.
Bonne soirée
Flo riant

"Michel Pierron" a écrit dans le message de
news:
Re;
Tu peux régler la tempo en jouant sur la fraction de seconde ajoutée à
Timer

Sub coyote()
Beep
Dim l&: l = Timer + 0.25
While Timer < l: DoEvents: Wend
Beep
End Sub

MP

"Florian" a écrit dans le message de
news:%
Bonjour, je viens de trouver cette proc afin d'avoir deux beep distinct
l'un

après l'autre, mais cela ne fonctionne pas. Sans doute les 2 beep
sont-ils


trop rapprochés, et ne font qu'1.
Comment faire afin d'entendre distinctement 2 beeps rapprochés.
merci beaucoup et encore bravo

Sub coyote()
For i = 1 To 2
Beep
Next i
End Sub








Avatar
sabatier
je m'immimmisce, florian
juste pour dire que ton For i = 1 to 2....Next i
ne sert à rien avec le temps de pause que t'a soufflé michel Pi (Pé, c'est
celui qui s'accroche)
jps

"Florian" a écrit dans le message de
news:%
Bonsoir et merci Michel
Comme cela c'est trop lent ! Je pense que je dois mal l'exécuter.
Sub coyote()
Beep
Dim l&: l = Timer + 1
While Timer < l: DoEvents: Wend
For i = 1 To 2
Beep
Next i
End Sub





"Michel Pierron" a écrit dans le message de
news:
Bonsoir Florian;
Essaie d'intercaler une tempo:
dim l&: l = Timer + 1
While Timer < l: DoEvents: Wend
MP

"Florian" a écrit dans le message de
news:%
Bonjour, je viens de trouver cette proc afin d'avoir deux beep
distinct



l'un
après l'autre, mais cela ne fonctionne pas. Sans doute les 2 beep
sont-ils


trop rapprochés, et ne font qu'1.
Comment faire afin d'entendre distinctement 2 beeps rapprochés.
merci beaucoup et encore bravo

Sub coyote()
For i = 1 To 2
Beep
Next i
End Sub












Avatar
dadda
Bonjour tout le monde;

Ca aussi pourrait marcher :

Sub PremierBeep()
Beep
Application.OnTime Now + TimeValue
("00:00:01"), "DeuxiemeBeep"
End Sub
Sub DeuxiemeBeep()
Beep
End Sub

Amicalement

Dadda




-----Message d'origine-----
je m'immimmisce, florian
juste pour dire que ton For i = 1 to 2....Next i
ne sert à rien avec le temps de pause que t'a soufflé
michel Pi (Pé, c'est

celui qui s'accroche)
jps

"Florian" a écrit dans le message de
news:%
Bonsoir et merci Michel
Comme cela c'est trop lent ! Je pense que je dois mal
l'exécuter.


Sub coyote()
Beep
Dim l&: l = Timer + 1
While Timer < l: DoEvents: Wend
For i = 1 To 2
Beep
Next i
End Sub





"Michel Pierron" a écrit dans
le message de


news:
Bonsoir Florian;
Essaie d'intercaler une tempo:
dim l&: l = Timer + 1
While Timer < l: DoEvents: Wend
MP

"Florian" a écrit dans le message de
news:%
Bonjour, je viens de trouver cette proc afin
d'avoir deux beep




distinct
l'un
après l'autre, mais cela ne fonctionne pas. Sans
doute les 2 beep




sont-ils
trop rapprochés, et ne font qu'1.
Comment faire afin d'entendre distinctement 2 beeps
rapprochés.




merci beaucoup et encore bravo

Sub coyote()
For i = 1 To 2
Beep
Next i
End Sub











.






Avatar
Florian
Merci Dadda
Flo riant

"dadda" a écrit dans le message de
news:4cd901c473c7$9887a890$
Bonjour tout le monde;

Ca aussi pourrait marcher :

Sub PremierBeep()
Beep
Application.OnTime Now + TimeValue
("00:00:01"), "DeuxiemeBeep"
End Sub
Sub DeuxiemeBeep()
Beep
End Sub

Amicalement

Dadda




-----Message d'origine-----
je m'immimmisce, florian
juste pour dire que ton For i = 1 to 2....Next i
ne sert à rien avec le temps de pause que t'a soufflé
michel Pi (Pé, c'est

celui qui s'accroche)
jps

"Florian" a écrit dans le message de
news:%
Bonsoir et merci Michel
Comme cela c'est trop lent ! Je pense que je dois mal
l'exécuter.


Sub coyote()
Beep
Dim l&: l = Timer + 1
While Timer < l: DoEvents: Wend
For i = 1 To 2
Beep
Next i
End Sub





"Michel Pierron" a écrit dans
le message de


news:
Bonsoir Florian;
Essaie d'intercaler une tempo:
dim l&: l = Timer + 1
While Timer < l: DoEvents: Wend
MP

"Florian" a écrit dans le message de
news:%
Bonjour, je viens de trouver cette proc afin
d'avoir deux beep




distinct
l'un
après l'autre, mais cela ne fonctionne pas. Sans
doute les 2 beep




sont-ils
trop rapprochés, et ne font qu'1.
Comment faire afin d'entendre distinctement 2 beeps
rapprochés.




merci beaucoup et encore bravo

Sub coyote()
For i = 1 To 2
Beep
Next i
End Sub











.






Avatar
FxM
Bonsoir,

M'étonne que personne n'ait encore cité ...
http://www.lecoyote.net/coybip/bipbip.htm
Désolé :o)

@+
FxM


Florian wrote:

Bonjour, je viens de trouver cette proc afin d'avoir deux beep distinct l'un
après l'autre, mais cela ne fonctionne pas. Sans doute les 2 beep sont-ils
trop rapprochés, et ne font qu'1.
Comment faire afin d'entendre distinctement 2 beeps rapprochés.
merci beaucoup et encore bravo

Sub coyote()
For i = 1 To 2
Beep
Next i
End Sub




Avatar
Florian
Toujours sympa.
Merci
Bonne soirée
Flo riant

"FxM" a écrit dans le message de
news:
Bonsoir,

M'étonne que personne n'ait encore cité ...
http://www.lecoyote.net/coybip/bipbip.htm
Désolé :o)

@+
FxM


Florian wrote:

Bonjour, je viens de trouver cette proc afin d'avoir deux beep distinct
l'un


après l'autre, mais cela ne fonctionne pas. Sans doute les 2 beep
sont-ils


trop rapprochés, et ne font qu'1.
Comment faire afin d'entendre distinctement 2 beeps rapprochés.
merci beaucoup et encore bravo

Sub coyote()
For i = 1 To 2
Beep
Next i
End Sub