XL 2021 Concours pétanque / Macro ou solution pour tri aléatoire dans une colonne avec des zéros

[berru76]

Bonjour
Si cela est faisable
je cherche une macro ou la solution pour faire un tri aléatoire dans une colonne avec des zéros
il faudrait que les noms soit en premiers

Ci-joint un modèle

Merci pour votre aide

 

[Dranreb]

Bonsoir.
Mettez votre liste d'inscrits et de tirages sous forme de tableau, et n'y intégrez pas de lignes vides, ainsi vous pourrez profiter de la propriété Sort du ListObject qui les représentera.
Un peu comme dans ce classeur …
Étudiez aussi la fonction Hasard du ListeAléat.xlsm

 

[berru76]

Bonsoir.
Mettez votre liste d'inscrits et de tirages sous forme de tableau, et n'y intégrez pas de lignes vides, ainsi vous pourrez profiter de la propriété Sort du ListObject qui les représentera.
Un peu comme dans ce classeur …
Étudiez aussi la fonction Hasard du ListeAléat.xlsm

Merci a vous
pas assez de connaissances dans ce domaine
je pensais que l 'on pouvait faire cela avec une macro
A+

 

[Dranreb]

Mais on peut, c'est seulement plus facile à gérer avec des tableaux …

 

[berru76]

Mais on peut, c'est seulement plus facile à gérer avec des tableaux …

J'ai regardé les macros des 2 fichiers trop complexe pour moi
N'ayant que trois feuilles a faire un bouton macro/ tri ferait très bien mon bonheur
Merci a vous

 

[Dranreb]

Je le répète mettez vos listes sous forme de tableaux à références structurées et utilisez l'enregistreur de macro pour le brouillon du code.

 

[berru76]

Je le répète mettez vos listes sous forme de tableaux à références structurées et utilisez l'enregistreur de macro pour le brouillon du code.

Résultat avec tri A a Z

ActiveWorkbook.Worksheets("33 à 64 équipes").ListObjects("Tableau1").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("33 à 64 équipes").ListObjects("Tableau1").Sort. _
SortFields.Add2 Key:=Range("Tableau1[[#All],[Noms]]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("33 à 64 équipes").ListObjects("Tableau1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Merci

 

[berru76]

Je le répète mettez vos listes sous forme de tableaux à références structurées et utilisez l'enregistreur de macro pour le brouillon B

Je le répète mettez vos listes sous forme de tableaux à références structurées et utilisez l'enregistreur de macro pour le brouillon du code.

Bonjour
J'ai réussi a bricoler une macro tri qui fonctionne en supprimant les zéros et les blancs mais de A à Z
peut on la modifier pour un tri en aléatoire
Merci

 

[bsalv]

si on a payé, on est dans la liste et puis en feuille "Feuil1", on a le résultat en 4 colonnes

 

[berru76]

si on a payé, on est dans la liste et puis en feuille "Feuil1", on a le résultat en 4 colonnes

Bonjour
Je suis en train de voir les modifications a faire dans mon essai de fichier et tester le cadrage
je vous tiens au courant
Merci a vous

 

[berru76]

si on a payé, on est dans la liste et puis en feuille "Feuil1", on a le résultat en 4 colonnes

Bonjour
j'ai testé idéal pour les poules mais toujours le problème sur la macro TricadrageAB non aléatoire en BM ET BP
La partie des poules est faite
Si vous voyer une possibilité de tri aléatoire
Merci a vous

 

[bsalv]

allez ....

 

[berru76]

allez ....

Un grand merci pour votre excellent travail