Microsoft 365 Tirage aléatoire et récupération de la valeur tirée dans un tableau

Totor43 · 29 Décembre 2020

Bonjour à tous,
Je souhaite créer sous Excel VBA un bingo dans lequel j'aurai une liste avec des nombres de 1 à 90 et que lorsque j'effectuerai mon tirage un nombre de cette liste passe dans une autre liste situé sur une colonne d'à côté. Je ne suis pas sûr d'être très clair. Pour le moment j'arrive à effectuer un tirage aléatoire entre les nombres de cette liste mais je n'arrive pas à le recopier dans la liste d'à coté tout en le supprimant de la première sachant que je veux effectuer le tirage plusieurs fois d'affilé sans avoir de doublon.
Si vous pouvez m'aider.
Merci par avance.

mapomme · 29 Décembre 2020

Bonjour @Totor43,
Bienvenue sur XLD ,

Un essai vite fait dans le fichier joint.

Le code est dans le module de la feuille nommée "Feuil1"
Double-cliquer sur la cellule E1 pour réinitialiser le tirage
Double-cliquer sur la cellule C1 pour tirer le numéro suivant

Le code est dans le module de code associé à la feuille "Feuil1".

edit : bonjour @Dranreb

Dranreb · 29 Décembre 2020

Bonjour.
Le classeur joint est équipé d'un module de classe ListeAléat définissant un type d'objet du même nom.
À l'initialisation garni de n numéros de 1 à n en ordre aléatoire, cet objet est équipé d'une méthode supprimer permettant d'en retirer un numéro déjà sorti.

Totor43 · 29 Décembre 2020

Merci à vous deux,
L'exemple de @mapomme se rapproche le plus de mon idée, sauf que j'aimerais que lorsqu'un nombre est tiré, il soit supprimé de la première liste afin d'éviter les doublons.
Pensez-vous que ce soit possible en modifiant le code simplement ?

Dranreb · 29 Décembre 2020

Ça n'est à priori pas nécessaire pour cela avec mon objet ListeAléat. D'ailleurs si votre liste est vraiment constituée de tous les numéros de 1 à 90, elle ne sert à rien.

mapomme · 29 Décembre 2020

Totor43 à dit:
Pensez-vous que ce soit possible en modifiant le code simplement ?

C'était fait puis en écrivant une autre ligne, la ligne empêchant les doublons a sauté (c'est de ma faute, je n'ai pas vérifié )

C'est corrigé. Le fichier du message #2 est maintenant le bon.

Totor43 · 29 Décembre 2020

Merci beaucoup, c'est exactement ce que je recherche.
Merci à vous deux d'avoir pris le temps de m'aider.

Dranreb · 29 Décembre 2020

Ma version sans la colonne de gauche.

Totor43 · 29 Décembre 2020

Merci très pratique aussi.

Modeste geedee · 29 Décembre 2020

Bonsour®

Totor43 à dit:
Bonjour à tous,
Je souhaite créer sous Excel VBA un bingo dans lequel j'aurai une liste avec des nombres de 1 à 90 et que lorsque j'effectuerai mon tirage un nombre de cette liste passe dans une autre liste situé sur une colonne d'à côté. Je ne suis pas sûr d'être très clair. Pour le moment j'arrive à effectuer un tirage aléatoire entre les nombres de cette liste mais je n'arrive pas à le recopier dans la liste d'à coté tout en le supprimant de la première sachant que je veux effectuer le tirage plusieurs fois d'affilé sans avoir de doublon.
Si vous pouvez m'aider.
Merci par avance.

Voir également ici :

https://www.excel-downloads.com/attachments/gd_lotov3-xlsm.1007054/

Totor43 · 30 Janvier 2021

Bonsoir,
Je reviens vers vous car je souhaite changer la couleur des cellules de ma grille pour lesquelles le numéro est déjà sorti. Pour ce faire j'ai écrit le code suivant :

Sub verif_tirage()
For Each cell In Worksheets("Carton").Range("L1:T12")
If cell.Value = Worksheets("Tirage").Range("C1:C92") Then
cell.Interior.ColorIndex = 1
End If
Next cell
End Sub

Le problème est que ça me met une erreur "incompatibilité de type", je pense que cela vient du fait que je veux faire ma vérification entre 2 plages de données mais je ne vois pas comment résoudre mon problème.
Vous remerciant par avance.

Microsoft 365 Tirage aléatoire et récupération de la valeur tirée dans un tableau

Totor43

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

Pièces jointes

Totor43

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Totor43

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Pièces jointes

Totor43

XLDnaute Nouveau

Modeste geedee

XLDnaute Barbatruc

Totor43

XLDnaute Nouveau

Discussions similaires