Recherche aléatoire

bonjour,

j'aimerai savoir si il est possible d extraire un nom dans une liste de manière aléatoire et si c'est le cas, comment faire ?

merci

Bonjour et bienvenu sur le forum,

La colonne A contient les noms. Essaye dans une cellule la formule suivante :

=INDEX(A:A;ARRONDI.SUP(ALEA()*NBVAL(A:A);0);1).

La fonction F9 permet de tester le changement des noms au hasard. Cette formule est dynamique, càd si tu rajoutes les noms dans la colonne A, elle en tiendra compte. Il y sûrement d'autres manières de le faire.

Cdlt,

ça marche bien et en ça, un grand bravo

par contre, j ai oublié un détail, je souhaite que dans ma liste, chaque nom soit attribuer dans un autre tableau, genre j ai 6 d enfants et je veux les mettre chacun dans une équipe différente puis ensuite je refais ça avec 6 autres que je met pour faire des duo.

je sais pas si je suis très clair mais en gros faudrait qu'à chaque tirage aléatoire, le nom que je viens de tirer ne fasse pas parti du tirage suivant.

merci a tous ceux qui se creusent la tête en tout cas

je up le sujet

Salut à tous,

regarde ce lien que j'ai récupéré sur ce forum.

https://www.excel-pratique.com/~files/doc/u865gValidationSansDoublonsTablo.xls

amicalement

Claude.

Bonsoir vous tous,

Voici mon essai :

https://www.excel-pratique.com/~files/doc/Recherche_aleatoire_2_colonnes.zip

Merci Lenaindepices de me faire savoir si cela t'est utile.

A la prochaine

Salut le forum,

le problème avec les tirages aléatoires, c'est que le tirage ne s'effectue pas que par F9. Si on efface par exemple une donnée avec "Delete" ou si on fait "Enter" pour une nouvelle donnée, on obtient un nouveau tirage.

Personne n'a une solution pour éliminer ça?

Merci.

Salut le forum

Eric, une facon de faire sortir 25 chiffres sans doublons.(Basé sur un code de SilkyRoad)

Sub Test()
    SerieSansDoublons 25, Range("B1")
End Sub

Sub SerieSansDoublons(NbValeurs As Integer, Cell As Range)
    Dim Tableau() As Integer, TabNumLignes() As Integer
    Dim i As Integer, k As Integer

    ReDim Tableau(NbValeurs)
    ReDim TabNumLignes(NbValeurs)

    For i = 1 To NbValeurs
        TabNumLignes(i) = i
        Tableau(i) = i
    Next

    'Initialise le générateur de nombres aléatoires
    Randomize

    For i = NbValeurs To 1 Step -1
        k = Int((i * Rnd) + 1)
        Cells(Cell.Row + i - 1, Cell.Column) = Tableau(TabNumLignes(k))
        TabNumLignes(k) = TabNumLignes(i)
    Next

End Sub

Ensuite on remplit le tableau avec une recherche.

Mytå

Salut le forum

Un fichier exemple pour vous tous avec une colonne supplémentaire : Tableau Aléatoire

Mytå

P.S. Vous pouvez améliorer le fichier, ne soyez pas gêné de le modifier.

Bonjour à tous,

Mytå, je ne comprend pas pourquoi la macro passe par le tableau !

En colonne A, ne peut-on pas sortir 20 chiffres triés aléatoirement ?

Amicalement

Claude.

Bon, je teste tout ça et je vous tiens au courant.

en tout cas, merci déjà a tous pour vos réponses.

Salut le forum,

ce que j'aimerais comprendre dans le fichier de Myta, c'est ce qui limite le nombre de tirage à 20.

Merci.

salut,

c'est la seule chose que j'ai compris !

en début de macro.

Sub Test()
    SerieSansDoublons 20, Range("A1")
End Sub

pour le reste ???

Claude.

J'ai tenté de changer le 20 pour un autre nombre et ça n'a rien changé.

re,

regarde dans VBA feuille1 c'est la commande du bouton

claude.

Bonjour

Un autre Code de Soft qui fait le même travail, en ligne, en colonne, en carré, en rectangle.

https://www.excel-pratique.com/~files/doc/Tableau_Aleatoire_Sans_Doublon.xls

Cordialement

Salut à tous,

Amadéus,

et en travers ! çà fait pas ?

non, je plaisante ! Voila un fichier à gardé précieusement.

il ouvre plein de possibilités.

Merci du tuyau

amicalement

Claude.

Merci a tous pour vos réponse,

j'ai choisi le travail d Amadeus pour continuer, c est celui qui m a la mieux convenu.