S
sylsyl
Guest
Salut a tous,
Le dernier message de David m’a fait penser que je pourrais peut etre demander ici pour mon pb de Loto.
Voila j’ai commence une macro pour etre gagnant au loto de la Francaise des Jeux il y a environ 2 ans, puis c’est parti au oubliette…
J’ai presque termine mais ca beugue encore un peu (il doit manquer une ligne ou deux).
Si une bonne ame pouvait completer mon bebe…
Public sub Gagner_au_loto()
Dim Numero_Gagnant(1 To 10) as Integer
If Jour_de_chance = False Then
MsgBox “Essais demain”
Else
If Fais_ma_priere = True And J_ai_ete_gentil = True And Je_promet_de_partager = True Then
For I = 1 To 10
Numero_Gagnant(I) = TirageDeDemain
Next I
End If
End If
End Sub
Private Function TirageDeDemain() as Integer
‘c’est la qu’il manque des lignes… …merci de completer
End Function
Merci d'avance, bon WE et a mercredi !!
A+, Sylsyl.
P.S.: j’ai beau avoir chercher jusqu’aux premiers jours du Forum, j’ai pas trouve. Si je suis passe a cote d’un fil traitant de ce pb, un lien me suffira,merci.
Le dernier message de David m’a fait penser que je pourrais peut etre demander ici pour mon pb de Loto.
Voila j’ai commence une macro pour etre gagnant au loto de la Francaise des Jeux il y a environ 2 ans, puis c’est parti au oubliette…
J’ai presque termine mais ca beugue encore un peu (il doit manquer une ligne ou deux).
Si une bonne ame pouvait completer mon bebe…
Public sub Gagner_au_loto()
Dim Numero_Gagnant(1 To 10) as Integer
If Jour_de_chance = False Then
MsgBox “Essais demain”
Else
If Fais_ma_priere = True And J_ai_ete_gentil = True And Je_promet_de_partager = True Then
For I = 1 To 10
Numero_Gagnant(I) = TirageDeDemain
Next I
End If
End If
End Sub
Private Function TirageDeDemain() as Integer
‘c’est la qu’il manque des lignes… …merci de completer
End Function
Merci d'avance, bon WE et a mercredi !!
A+, Sylsyl.
P.S.: j’ai beau avoir chercher jusqu’aux premiers jours du Forum, j’ai pas trouve. Si je suis passe a cote d’un fil traitant de ce pb, un lien me suffira,merci.
