Attribution aleatoire

Bonjour à tous !

J'essaie actuellement d'attribuer un nombre de cases limité (par exemple 10) en face d'une liste de disons 100 personnes. Il s'agit en fait d'une distribution de différents prix pour un jeu-concours.

Je souhaiterais que la fonction assigne à 10 noms aléatoires les 10 prix de ma liste, les 90 malchanceux restants se retrouvant avec une case vide en face de leur nom.

Quelle fonction pourrais-je utiliser ?

Merci de votre aide !

Bonjour,

Une solution possible dans le classeur joint. Sont utilisés Alea, Grande.valeur, Rang et ligne. Touche F9 pour un nouveau tirage.

Cordialement

Merci pour votre réponse !

Cependant, je souhaiterais que ce soit les prix (inscrit dans un tableau à coté) qui s'affichent en face des noms.

Si dans ma liste de prix j'ai 3 cases "Tshirt", 5 cases "CD" et 2 cases "Place de concert", l'objectif est de distribuer ces cases en face de 10 noms aléatoires.

Est-ce possible avec Excel ?

Merci

Bonjour,

Oui c'est possible :

Avec le code utilisé dans ce fichier, tu peux ajouter/supprimer des personnes ou des lots (à la suite, sans lignes vides), ils seront automatiquement pris en compte au tirage suivant ...

Sub tirage()
    Range("B2:B" & Range("A1").End(xlDown).Row).ClearContents
    For i = 2 To Range("H1").End(xlDown).Row
        alea = Int(Rnd * (Range("A1").End(xlDown).Row - 1)) + 2
        If Cells(alea, 2) = "" Then
            Cells(alea, 2) = Cells(i, 8)
        Else
            i = i - 1
        End If
    Next
End Sub

Cordialement,

Bonjour,

Cordialement

Jules

Edit : Arf, grillé. Tu as le choix : macro ou formules

Génial, merci à vous 2 !

Ca fonctionne parfaitement et c'est exactement ce que je recherchais.