Microsoft 365 Nombre aléatoire d'une liste sans doublon

gothc · 21 Juin 2022

Bonjour le forum
j'ai besoin de votre aide je cherche a l'aide d'une liste sur l'onglet base à sortir un numéro aléatoire sans doublon à l'aide d'un userform de préférence.
avec une animation de 5 secondes avant d'affiché de résultat style chiffre qui défile
Merci de votre aide
je laisse un fichier joint

gothc · 22 Juin 2022

Dranreb à dit:
Au cas où ça me donnerait une idée, à quoi correspondent ils ces 25 numéros particulier ?
Sont-ce toujours les mêmes ?

bonjour non les numéros changent

Dranreb · 22 Juin 2022

Mais d'où viennent-ils ?

gothc · 22 Juin 2022

Dranreb à dit:
Mais d'où viennent-ils ?

Bonjour je les écrits manuellement sur l'onglet base si pour toi s'est plus simple de les écrires sur la macro aucun problème je modifierais la macro
merci bonne journée

Dranreb · 22 Juin 2022

J'ai du mal à entrevoir la finalité de tout ça …

gothc · 22 Juin 2022

Dranreb à dit:
J'ai du mal à entrevoir la finalité de tout ça …

s'est juste un tirage au sort d'un numéro avec une animation le numéro (correspond a une personne ) qui sera le gagnant

mapomme · 22 Juin 2022

Bonjour à tous,

Ma p'tite version. L'effet visuel est modifiable via les constantes LeNieme et DureeEntreNombre.
Le code dans le module de la feuille "Resultat" :

VB:

Sub tirage()
Const plagesource = "b3:b22"     'Les nombres sur la feuille "base"
Const LeNieme = 45               'Quantité de nombres à défiler jusqu'à l'arrêt
Const DureeEntreNombre = 0.2     'Durée (en milliseconde) d'affichage d'un nombre
Dim t, x, i&, j&, deb

t = Sheets("base").Range(plagesource)
Randomize
For i = 1 To LeNieme
   x = t(1 + Int(Rnd * Range(plagesource).Count), 1)
   j = Len(x)
   For j = 1 To 3: Range("j10").Offset(, -2 * (j - 1)) = "": Next
   For j = 0 To Len(x) - 1
      Range("j10").Offset(, -2 * j) = Mid(x, Len(x) - j, 1)
   Next j
   deb = Timer
   Do
      DoEvents
      If Timer - deb > DureeEntreNombre Then Exit Do
   Loop
Next i
End Sub

gothc · 22 Juin 2022

Dranreb à dit:
J'ai du mal à entrevoir la finalité de tout ça …

s'est juste un tirage au sort d'un numéro le numéro correspond a une personne qui sera la gagnant

mapomme à dit:

Bonjour à tous,

Ma p'tite version. L'effet visuel est modifiable via les constantes LeNieme et DureeEntreNombre.
Le code dans le module de la feuille "Resultat" :

VB:

Sub tirage()
Const plagesource = "b3:b22"     'Les nombres sur la feuille "base"
Const LeNieme = 45               'Quantité de nombres à défiler jusqu'à l'arrêt
Const DureeEntreNombre = 0.2     'Durée (en milliseconde) d'affichage d'un nombre
Dim t, x, i&, j&, deb

t = Sheets("base").Range(plagesource)
Randomize
For i = 1 To LeNieme
   x = t(1 + Int(Rnd * Range(plagesource).Count), 1)
   j = Len(x)
   For j = 1 To 3: Range("j10").Offset(, -2 * (j - 1)) = "": Next
   For j = 0 To Len(x) - 1
      Range("j10").Offset(, -2 * j) = Mid(x, Len(x) - j, 1)
   Next j
   deb = Timer
   Do
      DoEvents
      If Timer - deb > DureeEntreNombre Then Exit Do
   Loop
Next i
End Sub

Bonjour Merci pour votre aide j'ai modifier légèrement votre version a 4 chiffres
le résultat reste sympathique je cherche a modifier avec l'animation du style euro million que je vais mettre en pièce jointe pour le même principe sortir un seul numéro avec les boules je cherche juste a récupéré le style d'animation et de l'adapter a mon fichier

Dranreb · 22 Juin 2022

4 chiffres maintenant ???

gothc · 22 Juin 2022

Dranreb à dit:
4 chiffres maintenant ???

non j'ai juste fait le test

Dranreb · 22 Juin 2022

On en reste à 3 chiffres alors ?

gothc · 22 Juin 2022

Dranreb à dit:
On en reste à 3 chiffres alors ?

oui

Dranreb · 22 Juin 2022

Voila le classeur qui reprend à peu près l'idée de cette animation

gothc · 22 Juin 2022

Dranreb à dit:
Voila le classeur qui reprend à peu près l'idée de cette animation

Merci beaucoup super animation c'est exactement ma recherche bonne journée a vous

gothc · 22 Juin 2022

Bonjour si je rajoute plus de 50 numéros j'ai un bug je vais avoir 200 numéros Maximum
Merci

Dranreb · 22 Juin 2022

J'ai mis de quoi dépasser la limite de 50, mais avec 200 les déplacements seraient vraiment trop saccadés !

Microsoft 365 Nombre aléatoire d'une liste sans doublon

gothc

XLDnaute Occasionnel

Pièces jointes

gothc

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

gothc

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

gothc

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Pièces jointes

gothc

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

gothc

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

gothc

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Pièces jointes

gothc

XLDnaute Occasionnel

gothc

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Pièces jointes

Discussions similaires