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