OVH Cloud OVH Cloud

Remplissage aléatoire sous contrainte

1 réponse
Avatar
Yannick P
Bjr comment faire pour cocher aléatoirement des cellules pour que le total
des coches ne fasse que 10 par exemple sans qu'il y ait 2 coches sur la même
colonne

comme ceci de A1 à j2

a b c d e f g h i j
1 x x x x x x
2 x x x x



J'ai bien 10 coches sans jamais avoir 2 coches sur la meme colonne

JE sais le faire ligne par ligne mais je ne sais pas conditionner les deux
lignes

Merci d'avance

1 réponse

Avatar
Youky
Bjr,
Cela doit faire l'affaire
Youky

[A1:J2].ClearContents
For k = 1 To 10
lig = Int(Rnd * 2) + 1
Cells(lig, k) = "x"
Next

"Yannick P" a écrit dans le message de news:
452be9b7$0$27397$
Bjr comment faire pour cocher aléatoirement des cellules pour que le total
des coches ne fasse que 10 par exemple sans qu'il y ait 2 coches sur la
même colonne

comme ceci de A1 à j2

a b c d e f g h i j
1 x x x x x x
2 x x x x



J'ai bien 10 coches sans jamais avoir 2 coches sur la meme colonne

JE sais le faire ligne par ligne mais je ne sais pas conditionner les deux
lignes

Merci d'avance