XL 2021 macro pour faire un tirage au sort

[marco22]

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]

Et merci par avance
m@rco

 

[sylvanu]

Bonsoir Marco,
Un essai en PJ avec :

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]

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]

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