XL 2021 macro pour faire un tirage au sort

marco22

XLDnaute Occasionnel
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
 

Pièces jointes

  • Tournoi de Pétanque Marc.xlsm
    161.5 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • Tournoi de Pétanque Marc.xlsm
    176.5 KB · Affichages: 11

marco22

XLDnaute Occasionnel
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("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

Merci et @+
m@rco
 

Statistiques des forums

Discussions
313 283
Messages
2 096 813
Membres
106 752
dernier inscrit
Tahiri1976