utilisation de la fonction ALEA

Question

Bonjour 
est ce que je peux avoir la programmation en VBA .
merci 



Configuration: Windows / Chrome 61.0.3163.100

gbinforme · Answer

Bonjour, 

Bienvenue dans je forum

Tu regardes rnd et randomize pour le VBA

savoirexcel · Answer

bonjour 
ok je reviens vers vous une fois examiner 
merci

savoirexcel · Answer

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

gbinforme · Answer

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

Utilisation de la fonction ALEA

4 réponses

Discussions similaires

Newsletters