Tirage au sort

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
christian.bedere

christian.bedere

XLDnaute Occasionnel
Salut le forum

Imaginons une feuille excel avec dans la colonne a:a, la liste des 26 lettres de l'alphabet.
Je souhaiterais savoir s'il existe une macro qui mélangerait toutes ces lettres et afficherait en cellule b3 une lettre tirée au sort.
Si vous pouvez m'aider, alors je vous en remercie infiniment.

Bonne soirée à tous
 
Trier par date Trier par votes
Salut JMPS !

Merci pour cette rapidité digne de la lumière, lol ...
Pourquoi l'encombrer ?? juste parce que je souhaite avoir plusieurs fois certaines lettres, voilà, le but est de confectionner un style de scrabble et il me faut 3 fois le 'x' .....
si tu as une idee de macro, tu seras super sympa, sinon ben, tu es super sympa quand même de m'aider..
à plus tard
Merci
 
Vote positif 0 Vote négatif
Bonsoir Christian, José, 🙂

Une piste avec une autre adaptation du tirage de ce fil :

Lien supprimé

Dans le classeur joint, tu appuies sur CTRL+Maj+R à répétition et dans la colonne D tu auras des lettres qui vont s'empiler, prises au hasard et avec des doublons 😉

Pour faire le ménage dans la colonne D, tu appuies sur CTRL+Maj+O (la lettre).

édition : le plus serait de rajouter dans la colonne D peut-être une macro qui en fonction de la présence d'une lettre donnée éviterai des tirages non compatibles avec ton jeux, mais là on dépasse la question et on rentre dans les probas en fonction des lettres réellement dispo dans le jeu (suivant la langue...).

Bon WE,

Brico [file name=TriAleaCB.zip size=7025]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TriAleaCB.zip[/file]

Message édité par: Bricofire, à: 20/05/2006 20:24
 

Pièces jointes

Vote positif 0 Vote négatif
Code:
[ul][/ul][ol][/ol][li][/li]
 
Vote positif 0 Vote négatif
Bonsoir à tous,

Une autre piste,
dans le cas ou tu entres toutes tes lettres dans un tableau()
tu crées un second tableau de même taille mais de type boleen.
en suite tu utiliser un rnd() (je ne sais pas si sous excel il s'ecrit ainsi (le round pour donner un nombre alléatoire).
se nombre serait l'index de ton tableau
exemple
tableau(1)='a'
tableau(27)='a'

...
 
Vote positif 0 Vote négatif
Bonsoir à tous,

Une autre piste,
dans le cas ou tu entres toutes tes lettres dans un tableau()
tu crées un second tableau de même taille mais de type boleen.
en suite tu utiliser un rnd() (je ne sais pas si sous excel il s'ecrit ainsi (le round pour donner un nombre alléatoire).
se nombre serait l'index de ton tableau
exemple
tableau(1)='a'
tableau(27)='a'

...
 
Vote positif 0 Vote négatif
...
quand 1 est tiré au sort tu affiche tableau(1) soit a si tableau1=false puis tu passe tableau1 à true pour dire qu'il est deja utilisé sinon tu pioche un autre chiffre (ou tu anjoute 1 x foi en attente de tombrer sur un false afin d'afficher une lettre.
(de cette facon si tu ajoutes des boucles sur tableau1 tu peux afficher combien de lettre il reste)
Thomas
 
Vote positif 0 Vote négatif
je suis désolé de prendre tant de place mais le server ne me laisse pas ecrir plus dans un seul message 😱

j'ai une autre idée plus simple
tu crée un tableau de 1 à 26
qui simbolise les lettres de l'alph..
mais a la place des lettres tu indiques le nombre de cette lettre exemple si tu veux 4 a
tu diras tableau(1)=4 soit 1(1er lettre de l'alph
soit 'a'
puis tu fais un rdn
mais la à chaque fois que 1 ton tu retir 1 de ton tableau soir tableau(1)=tableau(1)-1
si toute foi il n'est pas deja à 0 (biensur)
de cette facon tu sais en faisant une boucle combien il te reste de lettre (total et pour chaque lettre)

bien à vous
Thomas
PS : je ne peux plus me logger car le mon nom d'utilisateur du site etait Thomas +ch(174) mais les caracteres spéciau ne passe plus!!
 
Vote positif 0 Vote négatif
Petite demo de ma propo,

Code: 
Option Base 1
Dim lettre(26) As Byte
Dim total As Integer
Private Sub CommandButton1_Click()
Dim Myvalue As Byte
Myvalue = Int((26 * Rnd) + 1)
If lettre(Myvalue) > 0 Then
lettre(Myvalue) = lettre(Myvalue) - 1
afficher Myvalue
total = total - 1
Label56 = total
End If
End Sub

Sub afficher(Myvalue As Byte)
Select Case Myvalue
Case 1
Me.Label28 = 'A'
Me.Label30 = lettre(Myvalue)
Case 2
Me.Label28 = 'B'
Me.Label31 = lettre(Myvalue)
Case 3
Me.Label28 = 'C'
Me.Label32 = lettre(Myvalue)
Case 4
Me.Label28 = 'D'
Me.Label33 = lettre(Myvalue)
Case 5
Me.Label28 = 'E'
Me.Label34 = lettre(Myvalue)
Case 6
Me.Label28 = 'F'
Me.Label35 = lettre(Myvalue)
Case 7
Me.Label28 = 'G'
Me.Label36 = lettre(Myvalue)
Case 8
Me.Label28 = 'H'
Me.Label37 = lettre(Myvalue)
Case 9
Me.Label28 = 'I'
Me.Label38 = lettre(Myvalue)
Case 10
Me.Label28 = 'J'
Me.Label39 = lettre(Myvalue)
Case 11
Me.Label28 = 'K'
Me.Label40 = lettre(Myvalue)
Case 12
Me.Label28 = 'L'
Me.Label41 = lettre(Myvalue)
Case 13
Me.Label28 = 'M'
Me.Label42 = lettre(Myvalue)
Case 14
Me.Label28 = 'N'
Me.Label43 = lettre(Myvalue)
Case 15
Me.Label28 = 'O'
Me.Label44 = lettre(Myvalue)
Case 16
Me.Label28 = 'P'
Me.Label45 = lettre(Myvalue)
Case 17
Me.Label28 = 'Q'
Me.Label46 = lettre(Myvalue)
Case 18
Me.Label28 = 'R'
Me.Label47 = lettre(Myvalue)
Case 19
Me.Label28 = 'S'
Me.Label48 = lettre(Myvalue)
Case 20
Me.Label28 = 'T'
Me.Label49 = lettre(Myvalue)
Case 21
Me.Label28 = 'U'
Me.Label50 = lettre(Myvalue)
Case 22
Me.Label28 = 'V'
Me.Label51 = lettre(Myvalue)
Case 23
Me.Label28 = 'W'
Me.Label52 = lettre(Myvalue)
Case 24
Me.Label28 = 'X'
Me.Label53 = lettre(Myvalue)
Case 25
Me.Label28 = 'Y'
Me.Label54 = lettre(Myvalue)
Case 26
Me.Label28 = 'Z'
Me.Label55 = lettre(Myvalue)
Case Else
Me.Label28 = 'Gros bugs'
End Select
End Sub

Private Sub UserForm_Activate()
Dim i As Byte
Me.Label28 = Chr(1) & Chr(2) & Chr(26)
lettre(1) = 5
lettre(2) = 5
lettre(3) = 5
lettre(4) = 5
lettre(5) = 5
lettre(6) = 5
lettre(7) = 5
lettre(8) = 5
lettre(9) = 5
lettre(10) = 5
lettre(11) = 5
lettre(12) = 5
lettre(13) = 5
lettre(14) = 5
lettre(15) = 5
lettre(16) = 5
lettre(17) = 5
lettre(18) = 5
lettre(19) = 5
lettre(20) = 5
lettre(21) = 5
lettre(22) = 5
lettre(23) = 5
lettre(24) = 5
lettre(25) = 5
lettre(26) = 5
For i = 1 To 26
afficher i
total = total + lettre(i)
Next i
Label28 = ''
Label56 = total
End Sub
Bonne nuit
Thomas [file name=XLS.zip size=12935]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/XLS.zip[/file]
 

Pièces jointes

Vote positif 0 Vote négatif
Salut le forum,et Thomas

Félicitations ! Quel boulot ! çà a du te prendre du temps, j'avoue sincèrement ne pas tout comprendre car le vba est assez difficile pour moi mais bravo, tu grand ART...
Je vois ce que je peux faire avec çà. Je n'avais pas pensé à tirer les lettres par USF, mais je vais m'adapter avec çà.
Bon dimanche à vous et encore merci Thomas !
 
Vote positif 0 Vote négatif
Re tout le monde, 🙂

Pour le Fun 🙂
Une petite application simpliste de premier jet au cas du scrabble, sur une base de 102 objets,

On lance un tirage en appuyant sur CTRL+Maj+R

On rétabli l'ordre alpha en appuyant sur CTRL+Maj+O

Après lancement du tirage, on a en colonne B l'historique de 102 pioches venant à bout du jeu de lettres dispo au départ, En faisant un tirage 'à blanc' préliminaire, on peut considérer qu'on a mélangé le jeu LoL !

Bon WE,

Brico [file name=AleaScrabble.zip size=15113]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/AleaScrabble.zip[/file]
 

Pièces jointes

Vote positif 0 Vote négatif
Re-bonjour,

Le Userform n'est pas obligé.
de plus dans le code la plus grande partie n'est là que pout la mise en forme (les compteurs de lettre).

si tu peux joindre ton fichier.
dans la PJ j'ai mis à jour mon fichier car dans l'exemple precedent il ne gerait pas quand la lettre etait epuisé.
de plus j'ai fait un test sur le nombre de lettre restant.

Code: 
Private Sub CommandButton1_Click()
Label28 = ''
Dim Myvalue As Byte
ligne:
Myvalue = Int((26 * Rnd) + 1)
If lettre(Myvalue) > 0 Then
lettre(Myvalue) = lettre(Myvalue) - 1
afficher Myvalue
total = total - 1
Label56 = total
ElseIf total = 0 Then
MsgBox 'Plus de lettre'
Exit Sub
Else
GoTo ligne
End If
End Sub

Thomas

PS: si tu veux comprendre le code je peux te le documenter. Je suis désolé mais dans la precipitation je n'ai pas pris le temps de le faire.
PS: si quelqu'un sait comment je peux recupérer mon login pour ce site ? [file name=XLS_20060521131521.zip size=15026]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/XLS_20060521131521.zip[/file]
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Résolu(e)
XL 2021 tirage au sort aléatoire sans doublon
2 3 4
Réponses
54
Affichages
1 K
bsalv
B
Francoise_nord
  • Question Question
XL 2021 Besoin aide sur macro en VBA
Réponses
0
Affichages
264
Francoise_nord
Francoise_nord
Océane
  • Question Question
Tirage au sort sous forme d'une vidéo
Réponses
0
Affichages
133
Océane
Océane
S
  • Question Question
XL 2019 Fichier de tirage au sort sans doublons avec valeurs en plus
Réponses
1
Affichages
492
sylvanu
sylvanu
M
  • Question Question
XL 2010 Colorie certaines lettres en bleu dans la ListBox 1
Réponses
1
Affichages
537
job75
job75
R
  • Question Question
XL 2016 Tirage pour une tombola
Réponses
7
Affichages
846
Reija05
R
Frederic14
  • Question Question
XL 2019 Tirage au sort avec nombre variable
Réponses
14
Affichages
1 K
Frederic14
Frederic14
P
  • Question Question
Microsoft 365 Tirage au sort tombola
Réponses
5
Affichages
1 K
patricktoulon
patricktoulon
M
  • Question Question
XL pour MAC Créer un tirage au sort
Réponses
5
Affichages
1 K
moket07
M
M
  • Question Question
XL 2021 macro pour faire un tirage au sort
Réponses
4
Affichages
890
marco22
M
F
  • Résolu(e)
Power Query Etude chaine de caractères
Réponses
3
Affichages
517
Flx1er
F
jeff1494
  • Résolu(e)
XL 2021 Export d'un Userform au format Docx;
3 4 5
Réponses
60
Affichages
2 K
job75
job75
R
  • Question Question
Microsoft 365 Tirage au sort
Réponses
2
Affichages
878
Modeste geedee
Modeste geedee
N
  • Question Question
XL 2021 déterminer heure de début et fin + pause en fonction de cellules de couleurs.
2
Réponses
17
Affichages
1 K
natadom
N
R
  • Question Question
XL 2019 Tirage au sort : concours pêche
Réponses
6
Affichages
975
Dranreb
Dranreb
G
  • Question Question
XL 2019 Tirage au sort
2 3
Réponses
30
Affichages
3 K
gg13
G
S
  • Résolu(e)
Microsoft 365 [Résolu] Aide sur gestionnaires de noms + liste déroulante en cascade associée
Réponses
9
Affichages
1 K
djidji59430
djidji59430
D
  • Résolu(e)
XL 2021 Selection listview et Envoie Emails automatique
Réponses
4
Affichages
455
delsart59
D
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
Y
  • Question Question
XL 2019 FORMULE -incrémenter de A à ZZZ avec un pas d'incrément variable
Réponses
5
Affichages
1 K
Dranreb
Dranreb
Retour