XL 2016 Pour concours de boules faire un tri aléatoire par équipe inscrite en formé

[berru76]

Bonjour je voudrais savoir s'il est possible de faire une macro
Pour avoir un tri aléatoire par équipe inscrite en formé
ci-joint un exemple du fichier
Merci a vous

 

[sylvanu]

Bonjour Berru,
Euh ... c'est quoi "équipe inscrite en formé" ?

 

[berru76]

Excusez moi de ne pas vous avoir répondu plus tôt
Les trois joueurs des équipes s'inscrivent et jouent ensemble sur les 4 parties en triplette formé
le concours ne peut se faire que par inscription d’équipes paires soit 2/4/6/8/10/12 jusqu’à 32
Pour inscription il me faudrait donc une macro tri aléatoire des joueurs 3 par 3 selon le nombre d'inscrits pour le premier tour
ci joint exemple
merci

 

[Dranreb]

Est-ce que ça correspond au tirage 3 contre 3 de ce classeur ?
Sinon c'est simplement du 1 contre 1, avec des équipes déterminées une fois pour toutes à l'aide de la fonction perso ListeAl ou, en VBA d'un objet ListeAléat défini par le module de classe du même nom.

 

[Dranreb]

Pour changer aléatoirement l'ordre des noms dans une liste vous pouvez par exemple le faire comme ça :

Sub Test()
   DéclasserNoms ActiveSheet.[C4:C99]
   End Sub
Sub DéclasserNoms(ByVal Rng As Range)
   Dim TEntrée(), TSortie(), L As Long
   TEntrée = Rng.Value
   ReDim TSortie(1 To UBound(TEntrée, 1), 1 To 1)
   Rng.Value = T
   With New ListeAléat
      Randomize
      .Init UBound(TEntrée, 1)
      For L = 1 To UBound(TEntrée, 1)
         TSortie(.Aléat(L), 1) = TEntrée(L, 1)
         Next L
      End With
   Rng.Value = TSortie
   End Sub

 

[berru76]

Bonjour
j'ai mis un bouton pour la macro
lorsque je la lance me dis erreur compilation New ListeAléat

merci pour l'aide

 

[Dranreb]

Il faut glisser/déplacer ce nom avec la souris, dans l'explorateur de projets, depuis la rubrique Modules de classe du projet VBA du ListeAléat.xlsm vers le VBAProject de votre classeur.

 

[berru76]

non cela ne correspond pas au fichier listealeat
dans mon fichier d'origine j'ai une macro tri individuel qui fonctionne bien
je voudrais pouvoir rajouter une macro tri par équipe
je vais teste le glisser
merci

 

[Dranreb]

Qu'est ce qui ne correspond pas à quoi ?
Il y a bien un module de classe ListeAléat dans le fichier ListeAléat.xlsm joint au poste #4, non ?
Eh bien Il faut que votre projet VBA en soit équipé pour pouvoir utiliser un objet de type ListeAléat.

 

[Dranreb]

Pour déclasser des groupes de 3 dont les contenus demeurent, il est possible de faire comme ça :

Sub DéclasserGroupesDe3(ByVal Rng As Range)
   Dim TEntrée(), TSortie(), N As Long, LE As Long, LS As Long, dL As Long, C As Long
   TEntrée = Rng.Value
   ReDim TSortie(1 To UBound(TEntrée, 1), 1 To 1)
   With New ListeAléat
      Randomize
      .Init UBound(TEntrée, 1) \ 3
      For N = 1 To .Count
         LE = 3 * (N - 1): LS = 3 * (.Aléat(N) - 1)
         For dL = 1 To 3: TSortie(LS + dL, 1) = TEntrée(LE + dL, 1): Next dL
         Next N
      End With
   Rng.Value = TSortie
   End Sub

 

[berru76]

j'ai glisser liste aléatoire dans le vb
mis la formule dans un module cela ne fonctionne pas ne reconnait pas la macro

merci

 

[Dranreb]

Vous n'invoquez nulle part la Sub DéclasserGroupesDe3 en lui spécifiant en argument la plage à traiter.
Remarque: vous avez aussi glissé/déplacé d'autre chose. Du coup il faut aussi UFmVisu, XPlanificateur et le module de classe Planification. Sans oublier un Public Tirage() As Long quelque part.

 

[Dranreb]

En mettant en tête du Module2 ceci :

Option Explicit
Sub TriParÉquipes()
   DéclasserGroupesDe3 [C4:C99]
   End Sub

Vous pouvez affecter la TriParÉquipes à votre bouton Tri par équipes.

 

[berru76]

Je n'ai laissé dans vb que tri aleat
Cela fonctionne
mais encore un petit soucis
si exemple 60 joueurs j ai des cases vides entre les lignes lorsque je fais le tri
peut on rajouter une donnée dans la macro pour ne trier que selon les inscrits
merci

 

[Dranreb]

Bonsoir.
Il est aussi possible par sa méthode Supprimer de retirer des numéros portés dans l'objet LsteAléat.