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

[gothc]

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]

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]

Mais d'où viennent-ils ?

 

[gothc]

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]

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

 

[gothc]

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]

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" :

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]

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

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" :

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]

4 chiffres maintenant ???

 

[gothc]

4 chiffres maintenant ???

non j'ai juste fait le test

 

[Dranreb]

On en reste à 3 chiffres alors ?

 

[gothc]

On en reste à 3 chiffres alors ?

oui

 

[Dranreb]

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

 

[gothc]

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]

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

 

[Dranreb]

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