XL 2016 sélection aléatoire de 5% d'une liste

[lplv]

Bonjour à tous,

Je viens d'arriver sur le forum et me tourne donc vers vous car je suis bloquée face à une sélection aléatoire. Je voudrais en effet savoir s'il est possible sur excel de tirer au sort (donc aléatoirement) - et sans doublon - 5% d'une liste avec un minimum de 3 items sélectionnés.

Je m'explique si la liste est de 150 alors il y aura 8 items sélectionnés (on arrondit au supérieur)
Si la liste n'est que de 35 alors il y aura tout de même 3 items sélectionnés (35/0.05=1.75 mais minimum de 3)

Je vous remercie d'avance pour votre aide

 

[mapomme]

Bonjour @lplv, bienvenu sur XLD ,

Et où il est le fichier exemple ?

A+

 

[lplv]

Bonjour,

Je vous remercie pour votre aide. Il faudrait que ça ressemble à cela.

Peut on automatiser la chose si je change le nombre de projet dans la liste ?

 

[CHALET53]

Bonjour
Un essai

 

[pierrejean]

Bonjour Iplv
Salut tapomme

Edit: Salut CHALET53

Un exemple

 

[lplv]

Bonjour @pierrejean ,

je vous remercie grandement, par contre concernant votre fichier je vois qu'il y a une liste de 292 mais que 13 sélectionnés. Or 292x0.05=14.6 donc il faudrait 15 sélectionnés. Comment puis-je corriger cela ?

Merci encore,

Merci également @CHALET53 cela me fais une autre alternative

 

[Dranreb]

Bonjour.
Un essai avec une formule matricielle utilisant une fonction personnalisée.

*** pièce jointe supprimée, remplacée plus loin. ***

 

[patricktoulon]

si je reprend l'exemple de PierreJean sans dictionnaire ca donne ceci

Sub test2()
    Dim tablo, t, x&, i&, q&
    Randomize
    tablo = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value
    q = Int(UBound(tablo) * Range("F1"))
    ReDim t(1 To q, 1 To 1)
    Do While i < q
        x = 1 + Round(Rnd * (UBound(tablo) - 1))
        If IsError(Application.Match(tablo(x, 1), t, 0)) Then i = i + 1: t(i, 1) = tablo(x, 1)
    Loop
    Range("C1:C" & q).Value = (t)
End Sub

ca peut être intéressant pour Mac qui n'ont pas le dico a dispo ou ceux qui ne veulent pas se servir des objets scripting...

pour l'arrondi supperieur

q = Int(UBound(tablo) * Range("F1"))+1

 

[lplv]

Bonjour @patricktoulon

Je suis très novice en VBA, ou faudrait-il que s'ajoute cette dernière ligne pour que cela fonctionne en arrondissant au supérieur ?

Merci encore à tous pour votre aide précieuse

 

[patricktoulon]

re
regarde le code tu dois trouver le même ligne sans le "-1" .. ben tu la remplace
ensuite j'ai zappé le 3 minimum voila qui est corrigé
donc le code sans dico et arrondi sup avec condition 3 minimum ca donne ceci

Sub test2()
    Dim tablo, t, x&, i&, q&
    Randomize
    tablo = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value
    q = Application.Max(Int(UBound(tablo) * Range("F1")) + 1, 3)
    ReDim t(1 To q, 1 To 1)
    Do While i < q
        x = 1 + Round(Rnd * (UBound(tablo) - 1))
        If IsError(Application.Match(tablo(x, 1), t, 0)) Then i = i + 1: t(i, 1) = tablo(x, 1)
    Loop
    Range("C1:C" & q).Value = (t)
End Sub

 

[lplv]

Je suis vraiment désolée @patricktoulon mais cela ne fonctionne pas car si j'applique votre formule et que j'opte par exemple pour une liste de 120 le nombre de sélectionnés reste à 15 alors qu'il faut que les sélectionnes représentent 5% de la liste. Le modèle de @pierrejean prenait cela en compte

 

[pierrejean]

Re
Version avec arrondi superieur

 

[Dranreb]

Je re-joins mon classeur avec un paramètre de plus dans ma fonction ListeAl pour ne plus confondre le nombre de résultats souhaités avec le numéro maxi sélectionnable.

 

[lplv]

merci infiniment @pierrejean vous êtes mon sauveur !!

 

[lplv]

ouhla déjà de retour, on revient au point de départ je viens de faire un autre test en proposant une liste de 146 mais cela me met 7 sélectionnés au lieu de 8 (146*0.05=7.25 donc 8 à l'arrondi supérieur)