Fonction aléatoire sans doublons

Bonjour a tous,

je cherche comment faire pour mettre en ordre avec la fonction aléatoire sans doublons,

dans la première colonne.

je joins un exemple.

Merci beaucoup.

bill999

Bonjour,

votre image ne fonctionne pas,

pourriez-vous joindre un fichier excel ? merci!

ps/ voir au bas de fenêtre lors de la création d'un message, les boutons "Choisissez un fichier" et "Ajouter le fichier"

le fichier ne peut dépasser 999.9 K., sinon créer un lien vers votre fichier avec cjoint.com

Un gros merci a sabV

Merci pour la réponse rapide, tel que demandé voici le fichier excel.

Merci en avance

bill999

Je n'ai rien compris à tes macros !

Voici une solution sans doublon

Bonjour,

Moi j'ai rien compris à la question !

A+

Bonjour,

c'est un tirage aléatoire sur la plage C7:C21 que vous voulez faire ?

Sub tirage()
'activer la référence "Microsoft Scripting Runtime"
Dim Dico As New Scripting.Dictionary, v, n
 n = 15 'Sheets("Équipes").Cells(Rows.Count, 3).End(xlUp).Row
    Do Until Dico.Count = n 'Faire jusqu'à ce que le dico soit rempli à la valeur de n
        v = Int((n) * Rnd() + 1) 'tirage au sort
        If Not Dico.Exists(v) Then ' vérifier que le tirage au sort n'est pas dans le dico
          Dico.Add v, ""  ' le nombre n'est pas dans le dico alors ajout du nombre
        End If
    Loop
Range("C7").Resize(Dico.Count) = Application.Transpose(Dico.keys)
End Sub

Bonjour a tous

Merci beaucoup pour les réponses et en particulier a sabV pour son beau travail.

Merci encore.

bill999