Au secours ! j'ai les neurones qui bug !

Voilà l'histoire :

je cherche à remplir un tableau d'entiers aléatoirement
et sans que deux cellules soient identiques.
et la je bug ....

pour remplir aléatoirement, je fais :

Code:

rem' Mon tableau de 11 cellules dont la 0 qui ne servira pas et x ma variable passe-partout

dim Q%(10),x

rem' Ma boucle de remplissage avec +1 pour éviter une valeur 0 dans mes cellules

for x=1 to 10
 Q%(x)=rnd(199)+1
next x

mais là après divers essais qui m ont créé des bugs machine
c'est mon cerveau qui s'y met...

Bonsoir Ygeronimi

Il y a plusieurs façon de procédé, mais je pense que celle-ci est la plus simple et plus rapide. Elle évite de relire à chaque fois toute la liste

Code:

dim Q%(10),x ,a$,b$ ,b%

rem  Ma boucle de remplissage avec +1 pour éviter une valeur 0 dans mes cellules
a$=" "
for x=1 to 10
  repeat
      b%=rnd(199)+1
      b$=" "+str$(b%)+" "
  until instr(a$,b$)=0
  q%(x)=b%:a$=a$+str$(b%)+" "
next x

for x=1 to 10
  print q%(x)
next x

Merci Cosmos70 !

je vais décortiqué tout cà !

( mon but étant la sélection aléatoire de 10 questions dans un groupe de 200,
il me faut absolument éviter d'avoir deux fois la même.)

Si tu as 200 questions constituées dans une liste, il suffit, la question posée, de mettre le numéro dans une variable avec un séparateur, comme un espace (pour par confondre par exemple 1 avec 10,11,100,81...), et en regardant un nombre converti en chaîne, faire la comparaison avec la variable, qui a récupéré les nombres précédents.

Avec instr, tu vérifies un nombre ex 11 par rapport à déjà entré: " 5 18 54 "...., si 11 n'y est pas, tu peux la poser.

Je viens de décortiqué le code que tu m'as posté
et qui fait exactement ce que tu viens de dire et
fait totalement mon affaire dans le cas présent.

comme j'ai besoin de ce programme pour m'exercer à répondre
à ces 200 questions, je me dois de le finir.
... et là, c'est promis ! je le mettrai soit en post soit chez Klaus
si il veut le publier.

PS tous les progs que je demande à Klaus de publier ( je ne vois pas l'intérêt de faire mon propre site.
D'autant que je n'aurai pas le temps de m'en occuper et qu 'il me semble qu'il vaut mieux une adresse,
même si ce n'est pas la mienne, qui soit bien fournie que 150 avec un bout de prog chacune ) sont :

LIBRE !

Vous pouvez tous les reprendre même pour vos sites , il n'y a aucun souci et il est inutile de me demander
mon avis. ( Par égard pour Klaus, je souhaite juste qu'il y ait un intérêt quelconque : explication , démonstration
revue du code ,..... )

Merci à toi Cosmos70, tu m'as sorti une épine du pied et permis d'avancer dans mon prog !