XL 2019 Classement list aléatoire -USF

[gg13]

Bonsoir,
Je reprends cette discussion suivant les conseil de Job 75 en précisant que je cherche à intégrer cette macro dans un USF.
Sur le fichier joint crée par Job 75 la macro de classement est lancée par un bouton sur la feuille lié à une cellule
Je voudrai que cette macro soit en fait déclenchée par un bouton sur un USF et pas par un bouton sur la feuille.
J'ai utilisé la,méthode enregistrement de macro pour voir comment l'écrire mais le classement est déclenché sans enregistrer quoi que ce soit donc je ne sais pas lancer la macro par USF sans utiliser les boutons sur la feuille1

Le but de la macro est de faire un classement de trois listes différentes avec chacune un nombre de lignes différent récuperé dans trois cellules.
J'ai ajouté un USF au fichier fourni par Job75.
Merci.
GG13

 

[job75]

Je n'avais pas vraiment compris a quoi devaient servir les nombres en C1 F1 I1.

Et maintenant vous ne voulez plus d'UserForm.

Donc voyez le fichier joint et cette macro :

Sub Tirages()
Dim Target As Range, nlig&, tablo
Application.ScreenUpdating = False
For Each Target In [B1,E1,H1]
    nlig = Int(Val(Target(1, 2)))
    With Range(Target(2, 0), Cells(Rows.Count, Target.Column - 1).End(xlUp))
        If .Row > Target.Row Then
            .Columns(2).ClearContents 'RAZ
            If nlig > 0 Then
                tablo = .Value 'mémorise
                .Formula = "=RAND()"
                .Columns(2) = tablo
                .Resize(, 2).Sort .Cells, Header:=xlNo 'tri
                .Value = tablo 'restitution
                tablo = .Columns(2).Resize(nlig) 'mémorise
                .Columns(2).ClearContents 'RAZ
                .Columns(2).Resize(nlig) = tablo 'restitution
            End If
        End If
    End With
Next
End Sub

 

[gg13]

Job75.
J'ai supprimé le USF pour simplifier le fichier exemple, mais cette macro sera intégrée dans le programme principal et sera lancée par un bouton d'un USF.
GG13

 

[Dranreb]

Alors c'est plutôt le code du #5, faisant toutes les listes et ce dans leur intégralité, qui convient ?

 

[Dranreb]

je ne comprends rien aux modules de classes

Vous pouvez toujours poser des questions en vue d'y comprendre d'avantage.
Remarque: mes modules de classe de service sont toujours documentés. Toutes les propriétés et méthodes y sont expliquées.

 

[gg13]

Re bonsoir à tous.
La dernière version de Job75 renvoie bien le nombre de noms voulu (12) mais pas les 12 noms à classer car elle renvoie aussi des cellules vides.

exemple avec tirage 2 pour 12 noms.
Les noms sous tirage 2 doivent être les mêmes que les 12 noms de gauche mais dans un ordre aléatoire.
( donc tous ceux > B12 ne doivent pas apparaitre) dans cet exemple aucun nom voulu apparait.
GG13

Noms	Tirage 2
b1	b547
b2	b574
b3	b457
b4	b386
b5	b145
b6	b97
b7	b162
b8	b230
b9	b71
b10	b438
b11	b370
b12	b69
b13
b14

 

[Dranreb]

Et le code de mon poste #5 ?

 

[gg13]

Dranreb,
Pour les modules de classes je prendrai le temps d'au moins essayer de les comprendre, si nécessaire je poserai des questions mais ça prendra du temps.
Merci à tous pour le temps passer à aider
GG13

 

[gg13]

Dranreb,
Pour les modules de classes je prendrai le temps d'au moins essayer de les comprendre, si nécessaire je poserai des questions mais ça prendra du temps.
Merci à tous pour le temps passer à aide

 

[gg13]

Dranreb,
Pour le post #5 même résultat que Job75.
Les noms classés aléatoirement ne sont pas ceux voulus.
Voici le résultat pour 8 noms, le premier est A60>A8

Noms	Tirage 1	8
a1	a60
a2	a165
a3	a194
a4	a142
a5	a71
a6	a460
a7	a396
a8	a466
a9
a10
a11
a12
a13
a14

 

[job75]

Bon si je comprends bien c'est très simple :

Sub Tirages()
Dim Target As Range, nlig&, tablo
Application.ScreenUpdating = False
For Each Target In [B1,E1,H1]
    Target(2).Resize(Rows.Count - Target.Row).ClearContents 'RAZ
    nlig = Int(Val(Target(1, 2)))
    If nlig > 1 Then
        With Target(2, 0).Resize(nlig)
            tablo = .Value 'mémorise
            .Formula = "=RAND()"
            .Columns(2) = tablo
            .Resize(, 2).Sort .Cells, Header:=xlNo 'tri
            .Value = tablo 'restitution
        End With
    End If
Next
End Sub

 

[Dranreb]

Non, ça c'est le résultat non du #5 mais du #9 où j'avais cru que vous ne vouliez tirer qu'un certain nombres de noms, vu que s'il fallait les sortir tous il n'y avait nul besoin de préciser combien on en voulait.

 

[gg13]

job75
Macro super courte et efficace, le résultat est celui attendu.
Je vais voir si je trouve sur internet des sites de cours qui expliquent ces fonctions.
Merci encore à ceux qui m'ont aidé.
Je vais pouvoir continuer mon prog mais j'aurai certainement encore besoin de votre aide.
bonne soirée.
GG13

 

[job75]

Bonjour gg13, le forum,

J'ai ajouté la RAZ dans la macro précédente :

Target(2).Resize(Rows.Count - Target.Row).ClearContents 'RAZ

A+

 

[gg13]

Jo75
Merci pour le RAZ.
C'est la seule chose que j'avais rajoutée par moi même.
par contre j'ai testé
Target(2, 1).Resize(1000).ClearContents
ça à l'air de fonctionner aussi.
GG13

 

[job75]

Target(2, 1).Resize(1000).ClearContents
ça à l'air de fonctionner aussi.

Oui bien sûr mais ça n'est pas bon dans tous les cas de figure.