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

mapomme

XLDnaute Barbatruc

Supporter XLD

• 20 Août 2019

• #16

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

 

Pièces jointes

• lplv- tirage- v1.xlsm

  19.9 KB · Affichages: 8

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 20 Août 2019

• #17

re
version sans dico corrigée

Code:

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

 

Dernière édition: 20 Août 2019

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Août 2019

• #18

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

 

Vote positif 0 Vote négatif

L

lplv

XLDnaute Nouveau

• 20 Août 2019

• #19

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Août 2019

• #20

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).

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 20 Août 2019

• #21

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

 

Vote positif 0 Vote négatif

L

lplv

XLDnaute Nouveau

• 20 Août 2019

• #22

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Août 2019

• #23

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 20 Août 2019

• #24

Re

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

Edit Salut Dranreb

 

Pièces jointes

• Tirage.xlsm

  21.4 KB · Affichages: 6

Vote positif 0 Vote négatif

L

lplv

XLDnaute Nouveau

• 20 Août 2019

• #25

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

 

Vote positif 0 Vote négatif

L

lplv

XLDnaute Nouveau

• 20 Août 2019

• #26

oh super merci infiniment cela va grandement nous faciliter notre travail

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 20 Août 2019

• #27

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

 

Vote positif 0 Vote négatif

L

lplv

XLDnaute Nouveau

• 20 Août 2019

• #28

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

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Août 2019

• #29

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

 

Pièces jointes

• Temp.xlsm

  28.2 KB · Affichages: 4

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 20 Août 2019

• #30

Re,

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

 

Dernière édition: 16 Octobre 2019

Vote positif 0 Vote négatif