function beep

rudy

XLDnaute Occasionnel
re-bonjour forum je vien de lire sur le web qu il y avait un moyen de faire en sorte que si A1>100 plusieur bip se font entendre

quelqu un pourrais m en dire plus voici se que j ai trouver


dans un module

Function bip(Nbre)
For i = 1 To 100000 * Nbre
if i / 100000 = Int(i / 100000) Then Beep
Next i
son=''
End Function



dans une cellule

=si(A1>100;bip(3);'').
 

Ti_

Nous a quitté
Repose en paix
oui, c'est possible, mais fortement dépendant de la rapidité de ta machine. Ainsi, la boucle de 100000 que tu donnes est trop courte, et on n'a le temps d'entendre qu'un seul bip. Sur ma vieille bécane, en mettant à 300000, j'entends bien 3 bips avec cette fonction, mais dans quelques jours, quand j'aurai ma machine flambant neuve, je suppose qu'il faudra que j'augmente significativement la taille de cette boucle.
En bref, si ça doit tourner uniquement chez toi, alors pas de problème, après deux ou trois tâtonnements, ça devrait aller, mais ça reste un gadget...


Function Bipe(ByVal Nbre&)
Dim i&
For i = 1 To 300000 * Nbre
If i / 300000 = Int(i / 300000) Then Beep
Next i
End Function
 

Discussions similaires

Statistiques des forums

Discussions
300 823
Messages
1 987 483
Membres
209 865
dernier inscrit
MALICK SENE