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

[Totor43]

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]

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]

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]

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]

Ç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]

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]

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

 

[Dranreb]

Ma version sans la colonne de gauche.

 

[Totor43]

Merci très pratique aussi.

 

[Modeste geedee]

Bonsour®

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]

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.