Tirage au sort avec exclusion des valeurs précédentes

[charles2b]

Salut à tous,

je cherche en fait à redistribuer un N° à une cellule aléatoirement. Je m'explique :
C.A C.B C.C
1 A
2 B
3 C
4 D
5 E
6 F
7 G
8 H
9 I
...
en colonne C (C.C) je cherche donc à réattribuer un nombre à chaque lettre (A à J)
Le problème est que la formule ALEA ou ENTRE.BORNES me ramène parfois le même nombre.
Quelqu'un aurait il une solution ?

Par avance merci à tous.

 

[CBernardT]

Re : Tirage au sort avec exclusion des valeurs précédentes

Bonjour Charles2b,

Un essai avec la fonction Alea() et une colonne pour le tirage au sort.

 

[ROGER2327]

Re : Tirage au sort avec exclusion des valeurs précédentes

Bonjour à tous

Une petite fonction matricielle personnalisée :

[COLOR="DarkSlateGray"][B]Function redistribue(r As Range)
Dim i&, di&, im&, j&, dj&, jm&, x, oDat
   Application.Volatile
   oDat = r.Value
   im = UBound(oDat, 1): jm = UBound(oDat, 2)
   For i = 1 To im
      For j = 1 To jm
         di = 1 + Int(Rnd * im): dj = 1 + Int(Rnd * jm)
         x = oDat(i, j): oDat(i, j) = oDat(di, dj): oDat(di, dj) = x
      Next
   Next
   redistribue = oDat
End Function[/B][/COLOR]

Mode d'emploi :
- Sélectionner une plage de même étendue que la plage contenant les données.
- Écrire la formule =redistribue(plage_de_données) et valider par Ctrl + Maj + Entrée.​

ROGER2327
#3600

Dimanche 15 Merdre 137 (Saints Serpents d'Airain, ST)
13 Prairial An CCXVIII
2010-W22-2T15:39:08Z