Bouton pour générer des grille aléatoire

ahclion

XLDnaute Junior
J'ai besoin de vôtre aide sur le fait de créer un bouton qui va me permettre de générer des grilles aléatoires uniquement au niveau de la ligne 01.
la ligne 01 affiche en ce moment 1 2 1 2 1 1 1 1 2 1 2 1 2 2 je voudrais d'autres combinaisons avec un bouton aléatoire exemple 2 N 2 1 N 1 N 1 1 2 N 2 1 1
Voir la PJ... Merci de vôtre aide
 

Pièces jointes

  • Grille_Trierv1.xlsx
    165.4 KB · Affichages: 83

Paf

XLDnaute Barbatruc
Bonjour Ce lien n'existe plus

un essai (si j'ai bien compris):
Code:
Private Sub CommandButton1_Click()
Dim TabVal, i As Integer
TabVal = Array(1, 2, "N")
Randomize
For i = 1 To 14
    Cells(1, i) = Int(3 * Rnd)
Next
End Sub

A+


 

Jacky67

XLDnaute Barbatruc
J'ai besoin de vôtre aide sur le fait de créer un bouton qui va me permettre de générer des grilles aléatoires uniquement au niveau de la ligne 01.
la ligne 01 affiche en ce moment 1 2 1 2 1 1 1 1 2 1 2 1 2 2 je voudrais d'autres combinaisons avec un bouton aléatoire exemple 2 N 2 1 N 1 N 1 1 2 N 2 1 1
Voir la PJ... Merci de vôtre aide
Re...
2 N 2 1 N 1 N 1 1 2 N 2 1 1
Les nombres de la combinaison sont illisibles
J'en compte 7...??
VoirPJ

Salutations
JJ
 

Pièces jointes

  • Grille_Trierv1.xlsm
    175 KB · Affichages: 81

Modeste geedee

XLDnaute Barbatruc
Bonsour®
J'ai besoin de vôtre aide sur le fait de créer un bouton qui va me permettre de générer des grilles aléatoires uniquement au niveau de la ligne 01.
la ligne 01 affiche en ce moment 1 2 1 2 1 1 1 1 2 1 2 1 2 2 je voudrais d'autres combinaisons avec un bouton aléatoire exemple 2 N 2 1 N 1 N 1 1 2 N 2 1 1
Voir la PJ... Merci de vôtre aide
en A1 la formule :
=CHOISIR(1+ALEA()*3;"1";"2";"N")
recopier vers la droite jusque N1

F9 pour un nouveau tirage
 

Jacky67

XLDnaute Barbatruc
="ahclion, post: 20073900, member: 195024"]Bonjour Jacky67 et merci beaucoup

En faite il faut une grille du genre 1 2 N 1 2 1 1 N 1 2 1 1 1 1 et non pas
1N 2 2 N2 12 2 N 1 N 2 N N2 N 1

Re..
Donc une combinaison de 3
en A1
=CHOISIR(ENT(ALEA()*3)+1;1;2;"N")
et recopier vers la droite jusqu'à la colonne N
 

Pièces jointes

  • Grille_Trierv1.xlsm
    167.7 KB · Affichages: 51

ahclion

XLDnaute Junior
Merci beaucoup
j'avais deviner et merci pour le code ...

Juste il me manque une option c'est de supprimer toute les lignes qui comportent comme résultats au niveau de la colonne "O" 14,13,12 et merci
 

Pièces jointes

  • TEST_TRI_GRILLE.xlsx
    97.7 KB · Affichages: 45

Discussions similaires

Statistiques des forums

Discussions
312 211
Messages
2 086 293
Membres
103 171
dernier inscrit
clemm