XL 2021 macro pour faire un tirage au sort

marco22 · 9 Février 2024

Bonjour
j'ai essayé de faire une macro pour réaliser un tirage au sort
je voudrai que dans l'onglet "1ère partie colonne D faire un tirage aléatoire qui tient compte du nombre d'équipes colonne C le nombre d'équipe est déterminé par la liste engagement faire un copier coller du résultat aléatoire pour bloquer le tirage
Je ne sais pas si je me suis bien fait comprendre
Je vous envoi le fichier

marco22 · 9 Février 2024

Et merci par avance
m@rco

sylvanu · 9 Février 2024

Bonsoir Marco,
Un essai en PJ avec :

VB:

Sub Tirage_1()
' Tirage_1 Macro
' Tirage du premier tour
    ActiveSheet.Unprotect
    Range("D5:D1000").ClearContents
    DL = Range("C65500").End(xlUp).Row
    Range("D5:D" & DL).FormulaR1C1 = "=RAND()"
    Range("D5:D" & DL) = Range("D5:D" & DL).Value
    ActiveSheet.Protect 'DrawingObjects:=False, Contents:=True, Scenarios:=False
End Sub

Attention vous avez des cellules non vides après la ligne 26 dans votre PJ, j'ai tout effacé de ligne26 à la fin.
Si vous transférer cette macro dans un autre fichier assurez vous de ce point.

marco22 · 13 Février 2024

Merci Sylvain
Cela fonctionne avec 22 équipes mais si je peux avoir plus ou moins d'équipes
les tournois peuvent aller jusqu'à + de 100 équipes
merci

marco22 · 14 Février 2024

Bonjour sylvain
Enfin réussi j'ai légèrement modifié ta macro et cela fonctionne

Sub Tirage_1()
' Tirage_1 Macro
' Tirage du premier tour
ActiveSheet.Unprotect
Range("D51000").ClearContents
DL = Range("C65500").End(xlUp).Row
Range("D5" & DL).FormulaR1C1 = "=IF(RC[-1]="""","""",RAND())"
Range("D5" & DL) = Range("D5" & DL).Value
ActiveSheet.Protect 'DrawingObjects:=False, Contents:=True, Scenarios:=False
End Sub

Merci et @+
m@rco

XL 2021 macro pour faire un tirage au sort

marco22

XLDnaute Occasionnel

Pièces jointes

marco22

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

marco22

XLDnaute Occasionnel

marco22

XLDnaute Occasionnel

Discussions similaires