XL 2021 Créer une macro pour faire un tirage aléatoire d'un tournoi

marco22

XLDnaute Occasionnel
Bonjour
J'essai de faire une macro pour réaliser un tirage aléatoire lors de la première partie d'un tournoi (je joins le fichier).
Dans la feuille 1ère partie depuis la cellule (D5) je veux faire un tirage aléatoire et je voudrais copier en descendant selon le nombre de joueurs cellule (D3) puis faire un copier coller les valeurs aux cellules en descendant.
Le nombre d'équipes peut varier de quelques équipes a + de 100 équipes
 

Pièces jointes

  • Tournoi de Pétanque Marc_12.xlsm
    165.1 KB · Affichages: 2

marco22

XLDnaute Occasionnel
Merci mais le problème c'est dès que l'on change le nombre d'équipes ça ne fonctionne pas
j'ai fini par trouver la solution

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 = "=IF(RC[-1]="""","""",RAND())"
Range("D5:D" & DL) = Range("D5:D" & DL).Value
ActiveSheet.Protect 'DrawingObjects:=False, Contents:=True, Scenarios:=False
End Sub

Avec cette macro ça marche je peux changer le nombre d'équipe
merci quand même
@+m@rco
 

Discussions similaires

Réponses
5
Affichages
522

Statistiques des forums

Discussions
312 935
Messages
2 093 741
Membres
105 805
dernier inscrit
belgacem.nahali