Tirage aléatoire avec condition

Bonjour,

J'aimerais que mon programme me tire un nombre random entre 0 et 10 (facile) mais différent d'un précédent nombre déjà tiré aléatoirement auparavant (donc que je ne connais pas).

Quelqu'un pourrait il me dire si c'est faisable, et si oui comment ?

Merci beaucoup !

Bonjour Martin, bonjour le forum,

En pièce jointe ton fichier modifié avec le code ci-dessous :

Sub Macro1()
Dim O As Worksheet 'déclare la varaible O (Onglet)
Dim DL As Byte 'déclare la varaible DL (Dernière Ligne)
Dim NA As Byte 'déclare la varaible NA (Nombre Aléatoire)
Dim I As Byte 'déclare la varaible I (Incrément)

Set O = Worksheets("Feuil1") 'définit l'onglet O
DL = IIf(O.Range("A1").Value = "", 1, O.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1) 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
If DL > 10 Then Exit Sub 'si DL est supérieure à 10, sort de la procédure
deb: 'étiquette
Randomize 'lance le générateur de nombres aléatoire
NA = Int(10 * Rnd + 1) 'définit la variable NA (nomber alátoire entre 1 et 10)
For I = 1 To DL 'boucle sur toutes les lignes I de 1 à DL
    If NA = O.Cells(I, 1) Then GoTo deb 'si NA existe déja, va à l'étiquette "deb"
Next I 'prochaine ligne de la boucle
O.Cells(DL, "A").Value = NA 'envoie le nombre aléatoire NA dans la cellule ligne DL colonne A de l'onglet O
End Sub

Le fichier :

Bonjour Martin0408 , bonjour ThauThème

Voici une ma proposition via userform :)

Bonjour GGautier, Bonjour ThauThème

Je suis intéressé par ta proposition de fichier faite a Martin 0408 bien avec un UF( pour mon club de tennis de table)

par contre j'ai relevé un hic :quand on change les nombres j'ai fait un essai avec 32 ,le tirage ne sort que 31 numéros

Cordialement

ah, je vais voir ça, merci j'avais pas capté

EDIT : Je comprend pas, avec un interval de 1 à 10 j'ai bien les 10 possibilités ?! Dans quel cas ça ne marche pas pour toi ? Même si je modifie l'interval en cours de route

Je repartage un fichier quasiment identique (j'ai simplifié le code et modifié le UserForm)

Bonjour

je viens de faire un essai en mettant 24 au lieu de 10 et je n'ai que 23 n0 qui sortent.

Update : j'ai fait des bêtises avec mon fichier précédent. Voir celui ci-dessous

Re

merci pour moi c'est nickel

Bonne journée

tant mieux alors :) Bone continuation !