P
polo
Guest
Bonjour, j'aimerais pouvoir effectuer un tirage au sort aleatoire, mais j'y arrive pas, est ce quelqu'un sait comment faire??
ce qu'il faut:
-j'ai une liste excel ou j'ai 128 nom d'equipe (1 nom par cellule)dans une colonne
-et je veut obtenir dans une autre colonne un truc comme ca:
trucmuche - bidule
xxx - uioppp
et ainsi de suite pour obtenir 64 cellule avec les match ecrit a l'interieur
sinon moi j'avais essayé un truc en attribuant les numeros, par ex d'un coté j'avais ma feuille avec tous les noms, et sur l'autre feuille, j'avais que les numero (de 1 a 128):
Sub Tirage()
Range('C1128').Select
Selection.Sort Key1 = Range('D1')
Range('C1:C2').Select:
Selection.Copy
Range('A1').Select:
ActiveSheet.Paste
Range('A1:A2').Select
Selection.Sort Key1 = Range('A1')
Range('A1').Select
End Sub
mais ca apas marché du tout
Si quelqu'un pouvait m'aider, ca serait tres gentil
Merci d'avance
polo!
ce qu'il faut:
-j'ai une liste excel ou j'ai 128 nom d'equipe (1 nom par cellule)dans une colonne
-et je veut obtenir dans une autre colonne un truc comme ca:
trucmuche - bidule
xxx - uioppp
et ainsi de suite pour obtenir 64 cellule avec les match ecrit a l'interieur
sinon moi j'avais essayé un truc en attribuant les numeros, par ex d'un coté j'avais ma feuille avec tous les noms, et sur l'autre feuille, j'avais que les numero (de 1 a 128):
Sub Tirage()
Range('C1128').Select
Selection.Sort Key1 = Range('D1')
Range('C1:C2').Select:
Selection.Copy
Range('A1').Select:
ActiveSheet.Paste
Range('A1:A2').Select
Selection.Sort Key1 = Range('A1')
Range('A1').Select
End Sub
mais ca apas marché du tout
Si quelqu'un pouvait m'aider, ca serait tres gentil
Merci d'avance
polo!