Utilisation de la fonction ALEA
savoirexcel
Messages postés
3
Statut
Membre
-
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour
est ce que je peux avoir la programmation en VBA .
merci
est ce que je peux avoir la programmation en VBA .
merci
4 réponses
-
Bonjour,
Bienvenue dans je forum
Tu regardes rnd et randomize pour le VBA -
-
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 -
Bonjour,
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
