Macro fonction aléatoire - Tableur apprentissage chinois

Re : Macro fonction aléatoire - Tableur apprentissage chinois

Bonjour

Tu as fait une recherche sur le forum ?

Car il y a de nombreux exemples relatifs à la génération de lettres, ou chiffres aléatoires etc..
En voila donc un de plus 😉

Le principe pour générer un nombre aléatoire entre 2 valeurs est le suivant
Int(Rnd*(Max-Min)+Min)

Max= valeur supérieure
Min=valeur inférieure

Ex: Int(Rnd(5-1)+1) donnera des chiffres entre 1 et 5

Re : Macro fonction aléatoire - Tableur apprentissage chinois

J'utilise bien cette fonction mais je n'arrive pas à l'appliquer à mon tableau...

Re : Macro fonction aléatoire - Tableur apprentissage chinois

RE


Sauf erreur, pas vu Randomize dans ton code, non ?
EDITION: plus d'infos Ce lien n'existe plus

PS: poste aussi un fichier en version xls car ici ce n'est pas le forum dédié à Excel 2007.

Re : Macro fonction aléatoire - Tableur apprentissage chinois

Bonjour,

Voici une solution possible avec traitement anti doublon :

Sub Petit_Exemple()
Dim TirageMini As Integer, TirageMaxi As Integer
Dim NbTirages As Integer
Dim Tirage As Integer, Tourne As Integer
Dim AntiDoublons(100) As Boolean
NbTirages = 10
TirageMini = 2
TirageMaxi = Range("A1").CurrentRegion.Rows.Count
Randomize Timer
For Tourne = 1 To NbTirages
RelanceBoule:
Tirage = Int(Rnd * (TirageMaxi - TirageMini) + TirageMini)
If Not AntiDoublons(Tirage) Then
MsgBox Range("Voca!A" & Tirage)
AntiDoublons(Tirage) = True
Else
GoTo RelanceBoule
End If
Next Tourne
End Sub