VBA---- carré de 10X10

[JJ1]

Bonjour à tous,

J'utilise la fonction Dictionary, sous la forme:

Randomize
Set dico = CreateObject("Scripting.dictionary")
While dico.Count < 10
x = Int((70 * Rnd) + 1)
dico(x) = x
Wend
Range("K10").Resize(, 10) = dico.keys

Je voudrais cette fonction mais remplissant un carré de 10X10 sans doublon en ligne et sans doublon en colonne.
Je pourrais faire 10 lignes de cette fonction en changeant le Range (K10, puis K11...) mais ça n'empêcherait pas d'avoir alors des doublons formés en colonnes.

Comment puis-je faire, pour que le code soit rapide aussi (je l'intégrerai en boucle)

Merci

 

[Modeste geedee]

Re : VBA---- carré de 10X10

Bonsour®

le seul problème avec ce code c'est que je n'y comprends rien

🙄
alors une solution en formules , sans dictionary, sans macro (ou presque😉)
😎 uniquement pour relancer le calcul au lieu de re-appuyer sur F9 quand il y a doublons-croisés...

nb :2 versions
mais sans garantie pour les MEFC 2003🙁

 

[pierrejean]

Re : VBA---- carré de 10X10

Re
Salut Modeste geedee
Merci vmatthieu (un petit compliment est toujours agréable !!! et là c'est un gros)
Merci mapomme pour le Like
La version précédente avait tout de même un défaut: après avoir placé les 70 1ers nombre grâce a la liste constituée a l'aide du dictionnaire , on reprenait cette même liste (a l'envers ) pour remplir les 30 cases restantes. De fait les 3 dernières ligne du carre avaient un petit air de déjà vu par rapport au premières
Dans cette version on crée une 2eme liste et on contrôle la validité avant d’écrire
A mon avis il est difficile de faire plus aléatoire (mais je le garantirai pas)

 

[mapomme]

Re : VBA---- carré de 10X10

Bonjour à tous,

Une nouvelle version.

Elle est paramétrable à partir de la feuille (3 paramètres) :

1. le nombre max de valeurs compris entre 1 et Max (max >=10 et <=100).
2. Le nombre d'essai max.
3. Indication si chaque valeur possible doit apparaitre au moins une fois ou non.

Il y a deux méthodes: une pour Max compris entre 11 et 100 et une seconde méthode pour Max=10

 

[pierrejean]

Re : VBA---- carré de 10X10

Re

Alors la Chapeau !!!
Me voila avec un sérieux besoin de Dolicrane avant d'avoir pu tout comprendre

 

[JJ1]

Re : VBA---- carré de 10X10

Bonsoir à tous,
Merci Pierre Jean pour ta contribution (excellent code et rapide) et Ma pomme aussi pour le paramétrage utilisateur.
La version de Modeste avec un tableau Alea au dessus marche très bien (Modeste m'avait déjà fait un code semblable sur une ligne de 1 à 50 avec copie si valeur max)

MERCI à tous.