Utilisation de la fonction ALEA
Fermé
savoirexcel
Messages postés
3
Date d'inscription
dimanche 15 octobre 2017
Statut
Membre
Dernière intervention
15 octobre 2017
-
15 oct. 2017 à 17:28
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 15 oct. 2017 à 22:01
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 15 oct. 2017 à 22:01
A voir également:
- Utilisation de la fonction ALEA
- Notice d'utilisation - Guide
- Fonction si et - Guide
- Utilisation chromecast - Guide
- Fonction moyenne excel - Guide
- Fonction somme excel - Guide
4 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 685
15 oct. 2017 à 17:33
15 oct. 2017 à 17:33
Bonjour,
Bienvenue dans je forum
Tu regardes rnd et randomize pour le VBA
Bienvenue dans je forum
Tu regardes rnd et randomize pour le VBA
savoirexcel
Messages postés
3
Date d'inscription
dimanche 15 octobre 2017
Statut
Membre
Dernière intervention
15 octobre 2017
15 oct. 2017 à 17:42
15 oct. 2017 à 17:42
bonjour
ok je reviens vers vous une fois examiner
merci
ok je reviens vers vous une fois examiner
merci
savoirexcel
Messages postés
3
Date d'inscription
dimanche 15 octobre 2017
Statut
Membre
Dernière intervention
15 octobre 2017
15 oct. 2017 à 18:14
15 oct. 2017 à 18:14
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
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 685
15 oct. 2017 à 22:01
15 oct. 2017 à 22:01
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
