Microsoft 365 Comment faire un échantillonnage?

[lemanois]

Bonjour à Tous

j'ai une liste de 500 noms.
je voudrais constituer un échantillon de 225 noms et une liste de réserve de 50 noms triés de façon aléatoire par Excel.
Aussi, je voudrais que échantillon soit affiché devant chacun des 225 noms et réserve devant la liste de réserve.
Comment faire ? J'ai besoin de votre aide SVP.
En attache le fichier Excel. j'utilise office 365.
Merci

 

[JHA]

Bonjour à tous,

A essayer

JHA

 

[lemanois]

Bonjour à tous,

A essayer

JHA

Bonsoir.
Merci pour ta contribution. J'ai parcouru le fichier.
ce que j'aurais voulu, c'est que la formule me permette de faire un tri aléatoire des 225 premiers noms en inscrivant devant "echantillon". et à la suite, les 50 noms de la reserve.

 

[JHA]

Bonjour à tous,

Désolé, j'ai oublié la moitié de la formule.

=INDEX(Tableau14[Nom];EQUIV(PETITE.VALEUR(Tableau14[Colonne1];LIGNE(1:1));Tableau14[Colonne1];0))&" "&INDEX(Tableau14[Prénoms];EQUIV(PETITE.VALEUR(Tableau14[Colonne1];LIGNE(1:1));Tableau14[Colonne1];0))

JHA

 

[lemanois]

j'ai trouvé une solution !
=ALEA.ENTRE.BORNES(1;500)

=SI(ET([@[Random '[RANDBETWEEN(1,225)']]]>=1;[@[Random '[RANDBETWEEN(1,225)']]]<=225);"Eligible";"Reserve")

 

[job75]

Bonjour lemanois, JHA,

Voyez le fichier joint et la macro affectée au bouton :

Sub Tiragz()
Application.ScreenUpdating = False
With [Tableau14].ListObject.Range
    .Cells(1, .Columns.Count + 1).EntireColumn.Resize(, 4).Clear 'RAZ
    If .Rows.Count < 276 Then MsgBox "Le tableau doit avoir au moins 275 lignes...": Exit Sub
    .Columns(3).Resize(, 2).Copy .Cells(1, .Columns.Count + 3) 'copier-coller
    With .Cells(2, .Columns.Count + 2).Resize(.Rows.Count - 1)
        .Formula = "=RAND()" 'ALEA()
        .Value = .Value 'supprime les formules
        .Resize(, 3).Sort .Cells, Header:=xlNo 'tri
        .Cells(276).Resize(Rows.Count - .Row - 274, 3).Clear 'RAZ en dessous
        .Resize(225) = "Echantillon"
        .Cells(226).Resize(50) = "Réserve"
        .Resize(, 3).Columns.AutoFit 'ajustement largeurs
    End With
End With
End Sub

A+

 

[lemanois]

Bonjour lemanois, JHA,

Voyez le fichier joint et la macro affectée au bouton :

Sub Tiragz()
Application.ScreenUpdating = False
With [Tableau14].ListObject.Range
    .Cells(1, .Columns.Count + 1).EntireColumn.Resize(, 4).Clear 'RAZ
    If .Rows.Count < 276 Then MsgBox "Le tableau doit avoir au moins 275 lignes...": Exit Sub
    .Columns(3).Resize(, 2).Copy .Cells(1, .Columns.Count + 3) 'copier-coller
    With .Cells(2, .Columns.Count + 2).Resize(.Rows.Count - 1)
        .Formula = "=RAND()" 'ALEA()
        .Value = .Value 'supprime les formules
        .Resize(, 3).Sort .Cells, Header:=xlNo 'tri
        .Cells(276).Resize(Rows.Count - .Row - 274, 3).Clear 'RAZ en dessous
        .Resize(225) = "Echantillon"
        .Cells(226).Resize(50) = "Réserve"
        .Resize(, 3).Columns.AutoFit 'ajustement largeurs
    End With
End With
End Sub

A+S

 

[lemanois]

Est-ce qu'il est possible de le faire sans macro

 

[job75]

Est-ce qu'il est possible de le faire sans macro

JHA vous a montré comment le faire mais alors ce n'est pas automatique.

Il faut entrer manuellement les nombres aléatoire et faire un collage spécial.