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 à tous ,

Un autre essai. Cliquer sur le bouton Hop!
Pour modifier les paramètres, modifier les constantes en début du code dans le module 1

 

[patricktoulon]

re
version sans dico corrigée

Sub test2()
    Dim tablo, t, x&, i&, q#
    Randomize
    tablo = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value
    q = UBound(tablo) * Range("F1"): q = IIf(Int(q) < q, Int(q) + 1, q)
    q = Application.Max(q, [F2].Value)
    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

 

[Dranreb]

Le mien en sort 8 quand on arrête la liste au "Projet 146"

 

[lplv]

oh je suis vraiment désolée je n'avais pas vu le vôtre avec tous ces messages :/
cela me dis que je ne peux pas changer la matrice et tout se bloque

 

[Dranreb]

Non, ça dit probablement qu'on ne peut pas changer une partie de matrice. Il faut revalider par Ctrl+Maj+Entrée.
Mais normalement il n'y a pas à changer quoi que ce soit: le résultat s'adapte au nombre de projets renseignés en colonne A.
La colonne C1 contient la graine, c'est à dire une base de départ des générations de nombres aléatoires, pour que tout ne change pas à chaque recalcul. J'y ai mis la date (ou celle d'après-demain peut être, suite à divers essais).

 

[patricktoulon]

ps:
je viens de tester sur ton fichier et ca fonctionne
27 pour 179
15 pour 146
etc.....

 

[lplv]

ah d'accord merci ! et si je veux recommencer le tirage, je peux mettre un bouton comme sur les autres propositions ?

 

[Dranreb]

Oui, un bouton qui met alors simplement une valeur aléatoire en C1

 

[pierrejean]

Re

Je crois que cette fois c'est bon !!!

Edit Salut Dranreb

 

[lplv]

@patricktoulon merci beaucoup ! cela fonctionne sur le fichier de @pierrejean ? je peux copier/coller votre macro à la place ?

 

[lplv]

oh super merci infiniment cela va grandement nous faciliter notre travail

 

[patricktoulon]

re
ben en fait tu fait ce que tu veux tu a 3 solution valables

1. danreb avec ses formules et sa fonction perso (donc dynamique)
2. Pierre jean avec un dictionnaire ( appel de la sub)
3. moi avec match sur un tableau dimensionné avec le résultat du pourcentage( appel de la sub)

c'est bien d'avoir le choix

 

[lplv]

Merci beaucoup j'ai maintenant tout ce qu'il me faut !

Merci à tous pour votre aide et votre connaissance d'excel

 

[Dranreb]

Bon, j'ai aussi ajouté une solution avec un bouton de tirage.

 

[mapomme]

Re,

Bon, je dois sentir le pâté...