Bonjour à toutes et tous.
J'ai vu sur un livre Excel que l'on m'avait prété que l'on pouvait simuler
un tirage de loto enfin de plusieurs bien sur. Mais oui mais je ne me rapelle
plus comment faire je sais que c'était avec la fonction Aléa mais c'est tout
.Merci d'avance de vos réponses . Alain
ET oui, on dirai que je ne sis pas untiliser Intersect...
Sub Loto() Dim i As Integer Dim oCell As Range Dim Doublon As Boolean For i = 1 To 6 Cells(i, 1).Value = Int((Rnd * 49) + 1) If i > 1 Then Do Doublon = False Cells(i, 1).Value = Int((Rnd * 49) + 1) For Each oCell In Range("A1:A" & i - 1) If oCell.Value = Cells(i, 1).Value Then Doublon = True Exit For End If Next Loop While Doublon End If Next End Sub
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "EMiLe" a écrit dans le message de news:
Si tu excécutes cette macro une dizaine de fois, tu verras qu'il y a des doublons...
Try again... :)
Amicalement
EMiLe
Comme celle-Ci par exemple :
Sub Loto() Dim i As Integer For i = 1 To 6 Cells(i, 1).Value = Int((Rnd * 49) + 1) If i > 2 Then Do Until Intersect(Cells(i, 1), Range(Cells(1, 1), Cells(i - 1, 1))) Is
Nothing Cells(i, 1).Value = Int((Rnd * 49) + 1) Loop End If Next End Sub
Pas de doublon !!!
ET oui, on dirai que je ne sis pas untiliser Intersect...
Sub Loto()
Dim i As Integer
Dim oCell As Range
Dim Doublon As Boolean
For i = 1 To 6
Cells(i, 1).Value = Int((Rnd * 49) + 1)
If i > 1 Then
Do
Doublon = False
Cells(i, 1).Value = Int((Rnd * 49) + 1)
For Each oCell In Range("A1:A" & i - 1)
If oCell.Value = Cells(i, 1).Value Then
Doublon = True
Exit For
End If
Next
Loop While Doublon
End If
Next
End Sub
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"EMiLe" <emilefyon@altern.org> a écrit dans le message de
news:OI3WhYYoEHA.1152@TK2MSFTNGP11.phx.gbl...
Si tu excécutes cette macro une dizaine de fois, tu verras qu'il y a des
doublons...
Try again... :)
Amicalement
EMiLe
Comme celle-Ci par exemple :
Sub Loto()
Dim i As Integer
For i = 1 To 6
Cells(i, 1).Value = Int((Rnd * 49) + 1)
If i > 2 Then
Do Until Intersect(Cells(i, 1), Range(Cells(1, 1), Cells(i - 1, 1)))
Is
Nothing
Cells(i, 1).Value = Int((Rnd * 49) + 1)
Loop
End If
Next
End Sub
ET oui, on dirai que je ne sis pas untiliser Intersect...
Sub Loto() Dim i As Integer Dim oCell As Range Dim Doublon As Boolean For i = 1 To 6 Cells(i, 1).Value = Int((Rnd * 49) + 1) If i > 1 Then Do Doublon = False Cells(i, 1).Value = Int((Rnd * 49) + 1) For Each oCell In Range("A1:A" & i - 1) If oCell.Value = Cells(i, 1).Value Then Doublon = True Exit For End If Next Loop While Doublon End If Next End Sub
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "EMiLe" a écrit dans le message de news:
Si tu excécutes cette macro une dizaine de fois, tu verras qu'il y a des doublons...
Try again... :)
Amicalement
EMiLe
Comme celle-Ci par exemple :
Sub Loto() Dim i As Integer For i = 1 To 6 Cells(i, 1).Value = Int((Rnd * 49) + 1) If i > 2 Then Do Until Intersect(Cells(i, 1), Range(Cells(1, 1), Cells(i - 1, 1))) Is
Nothing Cells(i, 1).Value = Int((Rnd * 49) + 1) Loop End If Next End Sub
Pas de doublon !!!
Jacky
Bonsoir Cap2
Et là fini les doublons ;o)) En effet, mais bonjour les triplets :o(
Résultat après 3 tirages: 17 3 17 12 17 ;o))
JJ
"CAP2" a écrit dans le message de news:%
Salut,
une petite solution pas très propre, mais bon :
Dans une cellule (par exemple D1, qui peut être masquée pour être plus discret) tu mets la formule suivante (en supposant que les 6 chiffres doivent apparaître en A1:A6) :
=NBVAL(A1:A6)-SOMMEPROD(1/NB.SI(A1:A6;A1:A6))
Puis dans le code d'une macro, tu mets ça :
Sub TestLoto() Dim i As Byte
Randomize
Do
For i = 1 To 6 Range("A" & i) = Int(Rnd() * 49 + 1) Next
Loop While [D1] <> 0
End Sub
Et là fini les doublons ;o))
A plus
CAP2
Bonsoir Cap2
Et là fini les doublons ;o))
En effet, mais bonjour les triplets :o(
Résultat après 3 tirages:
17
3
17
12
17
;o))
JJ
"CAP2" <CAP2@azerty.net> a écrit dans le message de
news:%23W8gjUYoEHA.1988@TK2MSFTNGP09.phx.gbl...
Salut,
une petite solution pas très propre, mais bon :
Dans une cellule (par exemple D1, qui peut être masquée pour être plus
discret) tu mets la formule suivante (en supposant que les 6 chiffres
doivent apparaître en A1:A6) :
=NBVAL(A1:A6)-SOMMEPROD(1/NB.SI(A1:A6;A1:A6))
Puis dans le code d'une macro, tu mets ça :
Sub TestLoto()
Dim i As Byte
Randomize
Do
For i = 1 To 6
Range("A" & i) = Int(Rnd() * 49 + 1)
Next
Et là fini les doublons ;o)) En effet, mais bonjour les triplets :o(
Résultat après 3 tirages: 17 3 17 12 17 ;o))
JJ
"CAP2" a écrit dans le message de news:%
Salut,
une petite solution pas très propre, mais bon :
Dans une cellule (par exemple D1, qui peut être masquée pour être plus discret) tu mets la formule suivante (en supposant que les 6 chiffres doivent apparaître en A1:A6) :
=NBVAL(A1:A6)-SOMMEPROD(1/NB.SI(A1:A6;A1:A6))
Puis dans le code d'une macro, tu mets ça :
Sub TestLoto() Dim i As Byte
Randomize
Do
For i = 1 To 6 Range("A" & i) = Int(Rnd() * 49 + 1) Next
dans la cellule B1 =RANG(A1;A:A) recopier la formule jusqu'en B6
F9 pour recalculer
"" a écrit dans le message de news:
Bonjour à toutes et tous. J'ai vu sur un livre Excel que l'on m'avait prété que l'on pouvait simuler un tirage de loto enfin de plusieurs bien sur. Mais oui mais je ne me rapelle
plus comment faire je sais que c'était avec la fonction Aléa mais c'est tout
.Merci d'avance de vos réponses . Alain
sans VBA
de la cellule A1 à A49
mettre la formule =ALEA()
dans la cellule B1 =RANG(A1;A:A)
recopier la formule jusqu'en B6
F9 pour recalculer
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a
écrit dans le message de
news:E8B43B9E-82D3-4127-9EB7-19A7EF155C4F@microsoft.com...
Bonjour à toutes et tous.
J'ai vu sur un livre Excel que l'on m'avait prété que l'on pouvait simuler
un tirage de loto enfin de plusieurs bien sur. Mais oui mais je ne me
rapelle
plus comment faire je sais que c'était avec la fonction Aléa mais c'est
tout
dans la cellule B1 =RANG(A1;A:A) recopier la formule jusqu'en B6
F9 pour recalculer
"" a écrit dans le message de news:
Bonjour à toutes et tous. J'ai vu sur un livre Excel que l'on m'avait prété que l'on pouvait simuler un tirage de loto enfin de plusieurs bien sur. Mais oui mais je ne me rapelle
plus comment faire je sais que c'était avec la fonction Aléa mais c'est tout
.Merci d'avance de vos réponses . Alain
Joel
;-)
Je pense qu'Alain pourra se contenter de tout çà
et toi, tu en penses quoi ?
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "AV" a écrit dans le message de news:
Heu..... pour l'absence de doublons !
AV
;-)
Je pense qu'Alain pourra se contenter de tout çà
et toi, tu en penses quoi ?
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:emeEDmYoEHA.896@TK2MSFTNGP12.phx.gbl...
Et puis François est arrivé pour régler le problème, alors tout va bien
Bonne soirée
;-)
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "AV" a écrit dans le message de news:
et toi, tu en penses quoi ?
Heu .... par rapport à quoi ? Aux doublons ? Si oui, je confirme que ta soluce donnera des doublons..
AV
GD
Bonsour ®, voir là : http://www.excelabo.net/xl/compteclic.php?nom=gdybpr-lotos notament le classeur à Gd pour eviter les doublons utilisation de la fonction Rang ;o)))
dans news:,
typed:
Bonjour à toutes et tous. J'ai vu sur un livre Excel que l'on m'avait prété que l'on pouvait simuler un tirage de loto enfin de plusieurs bien sur. Mais oui mais je ne me rapelle plus comment faire je sais que c'était avec la fonction Aléa mais c'est tout .Merci d'avance de vos réponses . Alain
Bonsour ®,
voir là :
http://www.excelabo.net/xl/compteclic.php?nom=gdybpr-lotos
notament le classeur à Gd
pour eviter les doublons utilisation de la fonction Rang
;o)))
dans news:E8B43B9E-82D3-4127-9EB7-19A7EF155C4F@microsoft.com,
alain.bazire@wanadoo.fr <alainbazirewanadoofr@discussions.microsoft.com>
typed:
Bonjour à toutes et tous.
J'ai vu sur un livre Excel que l'on m'avait prété que l'on pouvait
simuler un tirage de loto enfin de plusieurs bien sur. Mais oui mais
je ne me rapelle plus comment faire je sais que c'était avec la
fonction Aléa mais c'est tout .Merci d'avance de vos réponses . Alain
Bonsour ®, voir là : http://www.excelabo.net/xl/compteclic.php?nom=gdybpr-lotos notament le classeur à Gd pour eviter les doublons utilisation de la fonction Rang ;o)))
dans news:,
typed:
Bonjour à toutes et tous. J'ai vu sur un livre Excel que l'on m'avait prété que l'on pouvait simuler un tirage de loto enfin de plusieurs bien sur. Mais oui mais je ne me rapelle plus comment faire je sais que c'était avec la fonction Aléa mais c'est tout .Merci d'avance de vos réponses . Alain
EMiLe
Respect
Je n'y aurais jamais pensé... Vive les gens qui nous apprenent!!
EMiLe
sans VBA
de la cellule A1 à A49 mettre la formule =ALEA()
dans la cellule B1 =RANG(A1;A:A) recopier la formule jusqu'en B6
F9 pour recalculer
"" a écrit dans le message de news:
Bonjour à toutes et tous. J'ai vu sur un livre Excel que l'on m'avait prété que l'on pouvait simuler un tirage de loto enfin de plusieurs bien sur. Mais oui mais je ne me
rapelle
plus comment faire je sais que c'était avec la fonction Aléa mais c'est
tout
.Merci d'avance de vos réponses . Alain
Respect
Je n'y aurais jamais pensé... Vive les gens qui nous apprenent!!
EMiLe
sans VBA
de la cellule A1 à A49
mettre la formule =ALEA()
dans la cellule B1 =RANG(A1;A:A)
recopier la formule jusqu'en B6
F9 pour recalculer
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a
écrit dans le message de
news:E8B43B9E-82D3-4127-9EB7-19A7EF155C4F@microsoft.com...
Bonjour à toutes et tous.
J'ai vu sur un livre Excel que l'on m'avait prété que l'on pouvait simuler
un tirage de loto enfin de plusieurs bien sur. Mais oui mais je ne me
rapelle
plus comment faire je sais que c'était avec la fonction Aléa mais c'est
Je n'y aurais jamais pensé... Vive les gens qui nous apprenent!!
EMiLe
sans VBA
de la cellule A1 à A49 mettre la formule =ALEA()
dans la cellule B1 =RANG(A1;A:A) recopier la formule jusqu'en B6
F9 pour recalculer
"" a écrit dans le message de news:
Bonjour à toutes et tous. J'ai vu sur un livre Excel que l'on m'avait prété que l'on pouvait simuler un tirage de loto enfin de plusieurs bien sur. Mais oui mais je ne me
rapelle
plus comment faire je sais que c'était avec la fonction Aléa mais c'est
tout
.Merci d'avance de vos réponses . Alain
CAP2
Oulà !!
avec mon SOMMEPROD je teste que les doublons... Décidément, ma soluce était non seulement pas propre, mais fausse (sniff !!!). J'y regarderai mieux la prochaine fois ;o)
Merci de m'avoir corrigé !
A plus
CAP2
Oulà !!
avec mon SOMMEPROD je teste que les doublons...
Décidément, ma soluce était non seulement pas propre, mais fausse (sniff
!!!).
J'y regarderai mieux la prochaine fois ;o)
avec mon SOMMEPROD je teste que les doublons... Décidément, ma soluce était non seulement pas propre, mais fausse (sniff !!!). J'y regarderai mieux la prochaine fois ;o)
