Bouton pour avoir un nombre aléatoire

Bonjour encore moi,

Comment affecter un commande a un bouton pour qu'il me génére un chiffre aléatoire entre 1 et 90 sans doublon

et qu'il la range dans la derniere cellule vide de la colonne A

J'ai trouvé la fonction Aléa.entre.bornes mais c'est pas trop sa avec une macro

Merci d'avance

kemelos

Bonjour

Je sais les tirer en ordre aléatoire sans doublon en une seule fois, mais pas un par un.

Attendons puis, fais signe si tu es intéressé.

Cordialement

Vasy envoie pour voire... je verai ce que je peux faire par la suite

Bonjour

Cordialement

Merci Amadéus.. j'ai essaye de réfléchir a un moyen d'utiliser ton code mais c'est pas trop sa aussi...

Mais c'est un début en tous cas..

-- 07 Mai 2010, 18:38 --

Amadéus, le nombre qui apparait en A1 chaque fois que je clique sur le bouton remplir, au bout de combien de clique pense tu qu'il réapparaîtra?

Merci

Bonsoir à tous,

Sub Aléa1()
    Range("A65536").End(xlUp)(2) = Int(90 * Rnd + 1)
End Sub

Pour la probabilité de retour du même N°, çà peut être 3 fois de suite

comme des millions de tirage, c'est çà l'aléa !

Edit de Nad : c'est comme le temps de refroidissement du fut du canon .... (petite blague de début de WE)

Amicalement

Claude

Amadéus,

J'ai rajouté à ton code a la fin pour qu'il copie A1 et la colle dans la dernier cellule vide de B a chaque fois que je cliqué sur remplir et la je me suis rendu compte qu'il pouvait afficher 2 a 3 fois le même nombre. (donc doublons)

J'ai rajouté aussi le code de Dubois et la aussi même chose. doublons apparait..

Bonjour Kemelos

Ta méthode de recopier A1 à chaque tirage génére des doublons. Bien sur.

Cependant, la macro que je t'ai adressée en premier génére elle les 95 nombres de 1 à 95 sans doublon.

C'est le raisonnement bati pour ton adaptation qui ne convient pas.

Le bon raisonnement serait avec ta méthode:

1) Effectuer le tirage du remplissage aléatoire des nombres de 1 à 95 dans une tableau de 95 cellules différentes de A1:A95

2) A l'aide d'un autre bouton qui ne copierait qu'une cellule à chaque sollicitation, copier le 1er nombre tiré pour le coller en A1, le second pour le coller en A2, le 3éme en A3.

Cordialement

Je vois ce que tu veux dire.. enfait ta macro génére 95 nombre et les mélange pour les placé en A..

Pour le reste il faudrait que je fasse 95 boutons??

Bonjour

Mais non!

Même moi qui suis un cancre en VBA, je peux le faire..

Cordialement

Tu es peut etre un cancre, ben moi je suis un cancre puissance 10

J'ai regarder ton code est je ne comprend rien meme si la solution marche à merveille

Finalement tous est possible

Encor merci pour tous.

Si tu a un peu de temps explique moi un peu le principe de la fonction NBVAL

Bonjour à tous,

Bonjour Amadéus,

J'avais commencé à regarder hier soir

Bonne journée

Claude

édit: une erreur dans mon code, je change le fichier

(je tirais toujours sur 90 chiffres), ce qui pénalisait le temps de traitement

Bonjour

Salut Claude

Pour NBVAL, c'est ici (ou dans l'aide d'Excel)

https://www.excel-pratique.com/fr/fonctions/nbval.php?a=fonctions&b=nb

Cordialement

re Amadéus,

Comprends pas ta remarque, qu'est-ce qui te choque,

le NBVAL(A:A) ?, c'est faux ?

Edit Amadéus: Claude, tu te méprends, je répondais simplement à la question précédente de notre ami.

Amicalement

Claude

édit Claude: ok, je me disais aussi,

bonne journée Amadéus

Claude, Amadéus te salué simplement et je te remerci pour ton code il me plait bien aussi

Le NBval m'été adressé

Encor Merci a vous deux de votre réactivité a bientot sur le forum.