Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ahclion
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

ahclion

Guest
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

Trier par date Trier par votes
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+


 
Vote positif 0 Vote négatif
re,

créer un bouton (control ) double cliquer dessus dans la feuille qui s'affiche alors ontrouve:
Code: 
Private Sub CommandButton1_Click()

End Sub

insérer entre ces deux lignes le code qui manque.

A+
 
Vote positif 0 Vote négatif
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

Vote positif 0 Vote négatif
Bonsour® en A1 la formule :
=CHOISIR(1+ALEA()*3;"1";"2";"N")
recopier vers la droite jusque N1

F9 pour un nouveau tirage
 
Vote positif 0 Vote négatif
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

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
458
Jaykerz
J
  • Question Question
XL 2019 Ajout d'un bouton DELETE sur mon USF
2 3
Réponses
43
Affichages
2 K
Phil Du59
F
  • Question Question
XL 2021 bug "lib32" suite à passage à office 2021
Réponses
6
Affichages
395
fredl
F
  • Question Question
Microsoft 365 Créer des bons des commandes automatisés
Réponses
1
Affichages
320
Piment
P
M
  • Résolu(e)
XL pour MAC Tirages aléatoires avec critères
2
Réponses
16
Affichages
1 K
crocrocro
C
C
  • Résolu(e)
XL 2016 Répartir dans des Groupes d'Effectifs Aléatoires ... mais pas trop
Réponses
2
Affichages
568
crocrocro
C
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
780
TooFatBoy
  • Question Question
XL 2021 FINDXTREME: Je compte sur vos avis sur ce projet … Par avance MERCI
Réponses
10
Affichages
227
p'tit vieux
N
  • Résolu(e)
Microsoft 365 Aide pour insertion nombre aléatoire
2
Réponses
22
Affichages
1 K
NONO14
N
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
474
mikeduff
M
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
769
Lu76Fer
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
475
sylvanu
M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
704
Musbek
M
C
  • Résolu(e)
XL 2016 Mettre en application INDEX et SOMMEPROD en BVA
2 3 4
Réponses
59
Affichages
3 K
candido57
C
B
  • Question Question
XL 2021 VBA pour générer une liste de valeurs comprise entre 2 valeurs
2
Réponses
16
Affichages
691
benjy555
B
B
  • Question Question
Microsoft 365 Macro pour création fichier csv
Réponses
8
Affichages
744
job75
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
580
Dégé59
D
C
  • Résolu(e)
XL 2021 Userform impression + choix des feuilles
Réponses
8
Affichages
648
candido57
C
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
477
Yogean
Y
A
  • Résolu(e)
XL 2019 Optimisation code VBA (Icônes flottantes)
Réponses
14
Affichages
660
Amilo
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…