Formule alea
bonsoir,
je vous sollicite car je souhaiterai utiliser la formule ALEA et rencontre un petit problème :
j'ai une liste de 100 personnes, je souhaite attribuer un numéro unique à chaque personne, j'ai utilisé la formule ALEA.ENTRE.BORNES(1;100) , le problème est que les numéros attribués par cette formule peuvent être répétitifs.
pouvez vous m'aider ?
merci
Maaj
Merci pour vos fichiers, mais je cherche quelque chose de très simple et connaitre la formule, le but est de la taper
dans chaque nouveau fichier en fonction du nombre de personne à chaque fois.
Si 10 personnes, assigner un numéro entre 1 et 10 sans doublon
Si 206 personnes, assigner un numéro entre 1 et 206 sans doublon
C'est pour cela que pouvoir définir les bornes à chaque fois est vrai besoin.
je mis un exemple de ficher en PJ, si une âme charitable pouvait m'y taper la formule ,
Grand merci
M
Bonjour,
solution via une macro pour une liste de noms en colonne A et numéro aléatoire en colonne B avec ligne 1 contenant les entêtes de colonnes.
faire alt-F8 pour lancer la macro aargh
impossible à faire sans passer par une macro ?
Bonjour
un proposition sans macro, voir si cela peux te convenir, résultat pas garanti à 100%
Merci H2so4, concernant ta macro, que faut il modifier dans le code ci-dessous pour que les numéros apparaissent en colonne A à partir de la ligne 13 sur la base des noms apparaissant en colonne C à partir de la ligne 13 ?
Dim a()
dl = Cells(Rows.Count, 1).End(xlUp).Row - 1
ReDim a(1 To dl)
For i = 1 To dl: a(i) = i: Next i
For i = 1 To dl
j = Application.RandBetween(1, dl + 1 - i)
b = a(j): a(j) = a(dl + 1 - i): a(dl + 1 - i) = b
Next i
Cells(2, 2).Resize(dl) = Application.Transpose(a)
End Sub
bonjour,
voici le code adapté
Dim a()
pl=13 ' première ligne
dl = Cells(Rows.Count, 3).End(xlUp).Row - (pl-1)
ReDim a(1 To dl)
For i = 1 To dl: a(i) = i: Next i
For i = 1 To dl
j = Application.RandBetween(1, dl + 1 - i)
b = a(j): a(j) = a(dl + 1 - i): a(dl + 1 - i) = b
Next i
Cells(pl,1).Resize(dl) = Application.Transpose(a)
End Subun grand merci à toi !