function beep

[rudy]

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_]

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