Son à chaque N° de sortie du loto

JBARBE

XLDnaute Barbatruc
Bonjour à tous,
Pourrais-je avoir un son à chaque N° de sortie du loto dans ce fichier !
Merci à l'avance et bonne soirée !
 

Pièces jointes

  • Tirage Loterie Couleurs.xls
    60.5 KB · Affichages: 41

Modeste geedee

XLDnaute Barbatruc
Bonsour®
Bonjour à tous,
Pourrais-je avoir un son à chaque N° de sortie du loto dans ce fichier !
Merci à l'avance et bonne soirée !

Application.Speech.Speak "numéro : " & Num

dans la proc Tirage :
Sub Tirage()
Dim Num As Long, Coul As Byte
On Error Resume Next
If MesNuméros.Count = 0 Then
On Error GoTo 0
Set MesNuméros = CreateObject("Scripting.Dictionary")
Mini = [B1]
Maxi = [B2]
End If
If MesNuméros.Count = Maxi - Mini + 1 Then MsgBox "Terminé": Exit Sub
Do While X = 0
Randomize (Timer)
Num = Int(((Maxi - Mini + 1) * Rnd) + Mini)
Coul = Int(((4 - Mini + 1) * Rnd) + Mini)
With ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select
If Coul = 1 Then Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 0): [E11].Font.ColorIndex = 6 'Jaune
If Coul = 2 Then Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0): [E11].Font.ColorIndex = 3 'Rouge
If Coul = 3 Then Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 176, 240): [E11].Font.ColorIndex = 5 'Bleu
If Coul = 4 Then Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 176, 80): [E11].Font.ColorIndex = 4 'Vert
End With
Range("E11").Select
If Not MesNuméros.Exists(Num) Then
X = 1
MesNuméros.Add Num, Num
[E11] = Num
Application.Speech.Speak "Numéro :" & Num
[G65000].End(xlUp)(2) = Num
Call controle
End If
Loop
End Sub
 

Modeste geedee

XLDnaute Barbatruc
Bonsour®
Bonjour à tous,
Pourrais-je avoir un son à chaque N° de sortie du loto dans ce fichier !
Merci à l'avance et bonne soirée !
:rolleyes: il sera peut être nécessaire de télécharger un locuteur francophone

http://telechargement3.pcastuces.com/lhttsfrf.exe

Capture.JPG
 
Dernière édition:

ROGER2327

XLDnaute Barbatruc
Bonsoir à tous.

Un autre essai, façon JCGL.

Bonne soirée.


ℝOGER2327
#8462


Lundi 23 Décervelage 144 (Saint Tank, animal - fête Suprême Quarte)
1[SUP]er[/SUP] Pluviôse An CCXXV, 7,7305h - lauréole
2017-W03-5T18:33:12Z
 

Pièces jointes

  • Copie de Tirage Loterie Couleurs.xls
    62 KB · Affichages: 62

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 871
Messages
2 093 102
Membres
105 627
dernier inscrit
jean-marc.brillant