Tirage aléatoire de map

[vinz602]

Bonjour à tous

Aprés avoir trouver beaucoup de fichier sur les tirages aléatoires, je n'arrive pas a finaliser mon fichier

je vous explique

en colonne A j'ai une liste de map

en colonne F la liste A arrive aléatoirement ainsi que sur les colonnes G et H en cliquant sur les boutons "Générer Map 1-2-3"

cependant je cherche à ne pas avoir de doublons sur la même ligne et là les choses se compliquent pour moi ....

je ne vois pas comment modifier la macro

Pouvez vous m'aider merci d'avance

 

[vinz602]

Re : Tirage aléatoire de map

xd Ma problématique à l'air de vous instirez... rassurez vous moi aussi...

 

[pierrejean]

Re : Tirage aléatoire de map

Bonjour vinz

Une possibilité (voir Feuil3)
Mais je suppose qu'il existe d'autres contraintes que d'avoir 3 noms differents par ligne (nbre maxi de nom dans 1 colonne par exemple )
Tiens nous au courant

 

[vinz602]

Re : Tirage aléatoire de map

bonjour pierre jean
c'est exactement ça excellent merci

par contre comprend rien a ta macro chef

merci encore

 

[pierrejean]

Re : Tirage aléatoire de map

Je ne pense pas que ce soit tout a fait ça
Verifie que certains noms n'aparaissent jamais (exemple MISSION UNDERGROUND )
Je t'ai bien precisé que j'attends les contraintes supplementaires

 

[vinz602]

Re : Tirage aléatoire de map

c'est ca pierre jean il me faut juste ca.
là j'essaye de comprendre ta macro car j'ai quelques colonnes à mettre en plus avant
mais c'est ca car je ne veu pas de doublon sur la ligne seulement et je vois pas de doublon je l'ai fait plusieurs fois

tu as vu un truc qui fonctionner pas ?

 

[pierrejean]

Re : Tirage aléatoire de map

Re

Non en verité
Je n'avais vu que la 1ere colonne
Voila avec un detail des sorties aleatoires par nom
Je te donnerai un code commenté demain
(le fichier ne veut pas passer )

 

[vinz602]

Re : Tirage aléatoire de map

ok ca marche merci

 

[vinz602]

Re : Tirage aléatoire de map

rebonjour a tous

voila je n'arrive pas dans ce code à trouver comment est indiquer la colonne A où se trouvais mes donner maintenant mais données sont en colonne I

Dim tablo()
ReDim tablo(1 To 3, 0)
For n = 2 To 17
For m = n + 1 To 17
For p = m + 1 To 17
If n <> m And n <> p And m <> p Then
tablo(1, UBound(tablo, 2)) = n
tablo(2, UBound(tablo, 2)) = m
tablo(3, UBound(tablo, 2)) = p
ReDim Preserve tablo(1 To 3, UBound(tablo, 2) + 1)
End If
Next
Next
Next

 

[vinz602]

Re : Tirage aléatoire de map

désolé j'ai fait une petite erreur c dans un autre code

 

[vinz602]

Re : Tirage aléatoire de map

re à tous

voilà le probléme d'hier je souhaite changer mon script au niveau de la base de donnée dans le cas présent se trouve dans la colonne A et moi je veu le dans la colonne H mais je peux pas je vois pas ou est signaler l'élément dans ce code

Public Sub Randoms2(NUM As Long)
'JE McGimpsey, mpep
Dim arr As Variant
Dim indx As Long
Dim temp As Long
Dim i As Long

ReDim arr(1 To NUM)
For i = 1 To NUM
arr(i) = i
Next i
For i = NUM To 1 Step -1
indx = Int(Rnd() * i) + 1
temp = arr(i)
arr(i) = arr(indx)
arr(indx) = temp
Next i
Range("C1").Resize(NUM, 1).Value = Application.Transpose(arr)
End Sub

pouvez vous m'aidez svp merci d'avance

 

[pierrejean]

Re : Tirage aléatoire de map

Re
ton code n'est pas complet !!
Tel quel, il ne peut que lister dans la colonne C des chiffres de 1 a NUM en ordre aleatoire
Bon courage

 

[vinz602]

Re : Tirage aléatoire de map

perso je vois toujours pas

 

[vinz602]

Re : Tirage aléatoire de map

bonjour pierrejean

mais elle est pas dans ce code

Sub test()

Randoms2 16
li = 2
For l = 1 To 16 Step 1
c = c + 1: e = e + 1
Select Case c
Case Is < 17
col = 2
Case Else
col = 8
End Select
Cells(li, col) = Cells(Cells(l, 3), 1)
li = li + 1
If e = 16 Then e = 0: li = 2
Next
End Sub

 

[pierrejean]

Re : Tirage aléatoire de map

Re

Si
Elle est la:

Cells(li, col) = Cells(Cells(l, 3), 1)

C'est le 1 qui dit qu'il s'agit de la colonne A. Si tu veux la colonne H modifie en mettant 8 a la place