Bonjour,
Je suis actuellement sur un tableau avec 3 colonnes importantes .
Colonne C : atelier
Colonne D auditeur 1
Colonne K liste auditeur 1
Mon problème est que je dois ramener les noms de la colonnes K dans la D avec un ordre aléatoire et avec certaine condition du a la colone c. Ex
Le nom 1 peut pas etre devant telle atelier donc retirer un nom pour la cellule
Actuellement mon avancée est
Sub mélangeur()
Dim n as Integer
Dim rw As long
for n = 0 to 23
rw=[randbetween(9,17)]
Cells((9+n),4)=Cells(rw,11)
Do while Cells((9+n-1),4) = Cells((9+n),4)
rw=[randbetween(9,17)]
Cells((9+n),4) = Cells(rw,11)
Loop
next
end sub
Actuellement cette parti me permet d'éviter que des noms se répète sur 2 ligne consécutive sauf que la je ne sais pas comment rajouter la condition telle que si un nom se retrouve devant tel atelier remelanger la cellule