A voir également:
- Utilisation de la fonction ALEA
- Fonction si et - Guide
- Utilisation chromecast - Guide
- Télécharger gratuitement notice d'utilisation - Guide
- Fonction miroir - Guide
- Durée de fonctionnement processeur ✓ - Forum Windows 10
4 réponses
Bonjour
je suis de retour
au fait j'arrive pas à me retrouver , comment je peux sélectionner 5 numero distincts au hasard dans un ensemble de 10 numero
merci
je suis de retour
au fait j'arrive pas à me retrouver , comment je peux sélectionner 5 numero distincts au hasard dans un ensemble de 10 numero
merci
Bonjour,
comment je peux sélectionner 5 numero distincts au hasard
Pour n'avoir qu'une fois chaque nombre je te propose ceci
Tu peux changer les paramètres selon tes souhaits
comment je peux sélectionner 5 numero distincts au hasard
Pour n'avoir qu'une fois chaque nombre je te propose ceci
Public Sub Choix()
Const ndc = 10 ' nombre de choix
Const ndb = 100 ' nombre début
Const ndr = 5 ' nombre résultats
Dim pos As Long, res As Long
pos = 1: ReDim tbr(pos To ndr): Randomize
While tbr(ndr) = ""
res = Int((ndb + ndc * Rnd))
If InStr(Join(tbr, ",") & ",", res & ",") = 0 Then
tbr(pos) = res: pos = pos + 1
End If
Wend
[A1].Resize(UBound(tbr), 1) = Application.Transpose(tbr)
End Sub
Tu peux changer les paramètres selon tes souhaits
