tirage aleatoire

[polyteis]

bonjour à toutes et tous,

je me retourne vers vous pour résoudre un petit problème.
j'ai une liste de 15 bâtiments numérotés ( évidement pas de 1 à 150, ce qui je pense aurai été plus simple).
je désire toutes les semaines tirer trois numéros de ces bâtiments de façon aléatoire, et la semaine suivante 3 autres, ect ...
un impératif les bâtiments ayant déjà été tirés au sort ne doivent plus apparaitre dans les futurs tirages.

quelqu'un a-t-il une idée pour résoudre ce problème?

mille merci en avance de phase

 

[PascalXLD]

Re : tirage aleatoire

Bonjour à tous,

Merci de régler vos différents en privé.
Merci à Geedee et Bernard de continuer à proposer des solutions constructives.

Je signale la discussion.

A+ à tous

Hello

Entièrement d'accord avec JCGL
J'ai donc supprimé tous les posts "inutiles"

Bonne soirée

 

[Marc L]

Démonstration du tirage aléatoire par permutations …

Liste verticale commençant en A2, résultat affiché à partir de C2,
dates à positionner sur la première ligne …

​

Sub Demo1()
         Randomize
         VA = [A2].CurrentRegion.Value
         Application.ScreenUpdating = False
         [C2].CurrentRegion.Clear
    With [C2].Resize(3, UBound(VA) \ 3 - (UBound(VA) Mod 3 > 0))
        For N% = UBound(VA) To 2 Step -1
                         P% = Fix(Rnd * (N - 1)) + 1
            .Cells(N).Value = VA(P, 1)
                   VA(P, 1) = VA(N, 1)
        Next
            .Cells(N).Value = VA(P, 1)
            .Columns.AutoFit
    End With
         Application.ScreenUpdating = True
End Sub

_______________________________________________________________________________
Merci de cliquer sur J'aime ce post en bas à gauche de chaque message ayant aidé …

_______________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …
​

 

[polyteis]

Re : tirage aleatoire

bonjour,

Merci pour votre solution

 

[polyteis]

Re : tirage aleatoire

re bonjour,

j'ai opté pour la solution de Modeste geedee
Merci à tous les participants