Microsoft 365 Comment faire un échantillonnage?

lemanois · 8 Mars 2023

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 · 8 Mars 2023

Bonjour à tous,

A essayer

JHA

lemanois · 9 Mars 2023

JHA à dit:
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 · 9 Mars 2023

Bonjour à tous,

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

VB:

=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 · 13 Mars 2023

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 · 13 Mars 2023

Bonjour lemanois, JHA,

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

VB:

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 · 13 Mars 2023

job75 à dit:

Bonjour lemanois, JHA,

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

VB:

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 · 13 Mars 2023

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

job75 · 13 Mars 2023

lemanois à dit:
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.

Microsoft 365 Comment faire un échantillonnage?

lemanois

XLDnaute Nouveau

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

lemanois

XLDnaute Nouveau

JHA

XLDnaute Barbatruc

Pièces jointes

lemanois

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

lemanois

XLDnaute Nouveau

lemanois

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Discussions similaires