Suite de Chiffres dans les cellules

[zeltron24]

Bonjour le forum et Bonne Année,

Je souhaiterai pouvoir afficher à la suite les numéros sortis après tirages dans les cellules.
Pour maintenant j'ai réussi à copier les numéros sortis mais à chaque fois j'efface le numéro précédent dans la cellule K3
J'aimerai pouvoir par exemple, dans la cellule O3 avoir le premier numéro, puis dans la cellule P3 le deuxième et ainsi de suite jusqu'au 5ème numéro, là je descends d'une ligne pour afficher en O4 le 6ème numéro, en P4 le 7ème ainsi de suite jusqu'au 10ème ou je redescends d'une ligne.
Merci d'avance.

 

[Modeste geedee]

Re : Suite de Chiffres dans les cellules

Bonsour®


jetez un œil là :
Lien supprimé

 

[zeltron24]

Re : Suite de Chiffres dans les cellules

Bonjour Modeste geedee,

Super merci beaucoup je regarde cela de plus près car à l'ouverture j'ai un message me disant qu'il manque une bibliothèque (problème de son dans le module audio

 

[zeltron24]

Re : Suite de Chiffres dans les cellules

Re,

Après y avoir jeté un oeil je me retrouve avec l'impossibilité de faire fonctionner ce magnifique classeur j'ai des erreurs de compilations du genre "type non défini" etc....
J'aurai souhaité n'avoir qu'une formule me permettant de placer mes tirages sur les lignes (5 tirages par ligne)
Formule du genre ofset 0,1 et reprenant la variable res1 qui me donne le chiffre tiré aléatoirement que je voudrais récupérer à chaque tirage

 

[Modeste geedee]

Re : Suite de Chiffres dans les cellules

Bonsour®
oupssss....
dans le module_audio
après le Option Explicit
supprimer l'instruction :

Public Vocal As New SpVoice

 

[zeltron24]

Re : Suite de Chiffres dans les cellules

Bonjour Modeste

C'est la solution que j'avais trouvé et cela fonctionne parfaitement.
Encore un grand merci.
Si j'avais eu la solution à mon fichier, cela m'aurait aidé grandement car le principe n'est pas que pour le Bingo, je désire aussi utiliser ce programme pour d'autre application (Concours de belote - tirage des tables;Courses en duo etc....) d'ou la possibilité de pouvoir choisir le nombre de tirage, le nombre de participants (valeurs maxi) et d'avoir les numéros tirés inscrits dans l'ordre dans des cellules.

 

[Docmarti]

Re : Suite de Chiffres dans les cellules

Bonjour

Randomize
cmax = nmax + 1 - nmin - n
res = Int((cmax) * Rnd)
res1 = table.liste.List(res)
 
Worksheets("Tirage").Range("O2").Offset(Int(n / 5), n Mod 5) = res1 + 1

Bonne année

Docmarti

 

[Si...]

Re : Suite de Chiffres dans les cellules

Salut

Si j'avais eu la solution à mon fichier, cela m'aurait aidé grandement ...

voir le fichier joint (épuré, mais non optimisé, pour centrer la réponse).