Génération de 5 valeur aléatoire sans doublon
Bonsoir,
J'aimerais via un bouton (ici une forme avec le texte : "Tirage au Sort") générer 5 valeurs aléatoire allant de 1 à 50.
De ces 5 valeurs j'aimerais que via un RECHERCHEV, que à l'endroit où j'ai noter : carte 1, 2, ... que l'on retrouve le nom de la carte associé dans les emplacement dédier.
Mon problème est surtout que qu'importe mes anciennes tentatives j'ai toujours eu des doublons, hors ceci simule un tirage de carte. Il ne peut donc pas y avoir de doublon.
Serait-il possible d'avoir un coup de main pour ceci ?
Voici le fichier sur lequel j'aimerais faire tout ceci.
Le tableau a 2 colonnes non remplis. Cela est normal, ce sera remplis plus tard et ne concerne pas la génération aléatoire.
Merci d'avance à ceux qui me liront et j'attend avec impatience vos réponses
Bonjour,
Je viens de voir votre fichier. Merci bien c'est vraiment ce qu'il me fallait.
Je me doutait qu'il faudrait utilisé une boucle for mais j'ai encore beaucoup de mal avec le langage VBA, dans lequel je suis pas mal perdu.
Merci encore, tout est niquel pour moi
Bonjour,
un peut tard mais bon !
Sub test()
T= TriFoutoir(5)
End Sub
Function TriFoutoir(NBAs integer)
Dim C As New Collection, ID As Integer, I As Integer,TB() AS integer
For I= 1 ton 50
C.Add i
Next
Randomize Timer
Redim TB(1 to nb)
For I = 1 to nb
ID = Int(C.Count * Rnd + 1)
TB(I) = C(ID)
C.Remove ID
Next
TriFoutoir = TB
End Function