Microsoft 365 Mélange aléatoire de 2 lignes ( colonne ) de données

[Jamba31]

bonjour a tous
je me suis gratté la tête assez longtemps mais je doit m faire vieux , je n 'ai pas trouvé de solutions qui me convienne . voici mon problème :
j ai deux ligne de données , chacune de 6 x 36 = 216 cellules et a chaque valeur de la première ligne correspond un caractère alphanumérique , de a a z et de 0 a 9 , donc 36 . je souhaiterais une fonction , une macro ,qq chose qui me mélange aléatoirement l ensemble des 216 paires toujours sur 2 lignes en respectant bien sur la "liaison " valeur ligne 1 */ caractère ligne 2

merci d'avance pour vos idées suggestion et autre

 

[goube]

Bonsoir,
Si j'ai bien tout compris, j'ai modifié les paires pour cadrer aux 36 possibilités.
Cordialement

 

[Jamba31]

Bonsoir,
Si j'ai bien tout compris, j'ai modifié les paires pour cadrer aux 36 possibilités.
Cordialement

alors merci , ca marche pas vraiment comme il faut mais c'est de ma faute , il y a un melange de type de caraxteres dans chaque ligne dans le fichier que j ai donné , ce qui fait que la reconnaissance que vous vez mi en colone ne fonctionne pas ou se prend les pieds dans le truc ... mais ca m'a donné une solution que je vais travailler encore merci
le truc c'ets que j ai fait apeu pres le meme principe dans un autre fichier dont je me sers pour un autre travail ... quand je dis que je perds le ciboulot

 

[Jamba31]

alors merci , ca marche pas vraiment comme il faut mais c'est de ma faute , il y a un mélange de type de caractères dans chaque ligne dans le fichier que j ai donné , ce qui fait que la reconnaissance que vous vez mi en colonne ne fonctionne pas ou se prend les pieds dans le truc ... mais ca m'a donné une solution que je vais travailler encore merci
le truc c'est que j ai fait a peu près le même principe dans un autre fichier dont je me sers pour un autre travail ... quand je dis que je perds le ciboulot

alors ..... ca marche pas trop comme je le souhaiterai car( j ai pas bien du expliquer ) il faudrait que le calcul/la fonction/la macro garde exactement le même nombre de paires et de caractères , a savoir 6 x 36 paires avec chaque lettre de a a z et chaque chiffre de 0 a 9 associé a chaque fois au même nombre . Dans votre fichier , après même le seul premier "F9" je n ai plus par exemple que 4 paires 49/1 et j ai aussi 8 paires 51/3 au lieu d'en avoir 6 de chaque

 

[Dranreb]

Bonsoir.
Voyez si ça vous convient.

 

[Jamba31]

Bonsoir.
Voyez si ça vous convient.

Bonsoir
merci
a priori oui , ca fait le boulot comme je le souhaite
je vais verifier le nombre de valeurs et de paire , mais je pense que ca va etre bon
merci
( meme si je ne comprend pas tout a la macro , c'est un niveau un peu trop élevé pour moi , mais ca m'aide a progresser merci )

 

[Dranreb]

N'hésitez pas à me poser des questions pour vous aider à comprendre …
Remarque: il y a des commentaires explicatifs pour chaque méthode dans le module de classe ListeAléat, notamment pour les deux premières qui sont justement les seules utilisés ici: Init et Aléat.

 

[patricktoulon]

Bonjour
avec un simple ersatz de l'algo de ficher yates tu fait ça en trois fois rien

Sub test()
   Dim T, T2, T3, I&, X&
   T = [b3].Resize(2, 216).Value 'le tableau original
    T2 = Evaluate("transpose(row(1:216))") 'la matrice colonne ordonnée
    'melange la matrice colonne
    For I = 1 To UBound(T2) - 1: X = I + Int((Rnd * UBound(T2)) - (I - 1)): tempo = T2(I): T2(I) = X: T2(X) = tempo: Next
    'creation du tableau deordonné avec matrice ligne et matrice colonne
    T3 = Application.Index(T, Evaluate("row(1:2)"), T2)
    'transcription dans la feuille
    [b12].Resize(2, 216).Value = T3
End Sub

Patrick

 

[bsalv]

bonjour le fil, une solution avec des formules. (à améliorer)

 

[job75]

Bonjour le forum,

A priori s'il s'agit juste de mélanger les colonnes un tri horizontal sur la ligne 5 suffit :

Sub Tri_horizontal()
With [B3].Resize(3, 216)
    .Sort .Rows(3), Orientation:=2
End With
End Sub

A+

 

[danielco]

Bonjour à tous,

Un essai :

=TRIERPAR(B3:HI4;TABLEAU.ALEA(;216))

Daniel

 

[job75]

On peut se passer du tri VBA, ces formules en B8 et B9 fonctionnent sur toute version Excel :

=RECHERCHEH(PETITE.VALEUR($B$3:$HI$3;COLONNE()-1);$3:4;2;FAUX)
=RECHERCHEH(PETITE.VALEUR($B$3:$HI$3;COLONNE()-1);$3:5;3;FAUX)

Touche F9 ou touche suppr sur une cellule vide pour un nouveau tirage.

 

[patricktoulon]

re:
je pige pas on parle de tri ou de mélange aléatoire?

 

[job75]

Le tri de la ligne contenant =ALEA() permet de faire un mélange aléatoire...

 

[mapomme]

Bonjour à tous ,

En B8, la formule Excel 365 suivante le fait :
=PRENDRE(TRANSPOSE(TRIER(TRANSPOSE(ASSEMB.V(CNUM(B3:HI3); B4:HI4;TABLEAU.ALEA(1;COLONNES(B3:HI3))));3));2)

Attention : il me semble que vous avez un mélange de nombres sur la ligne 3 qui sont en représentation de nombre mais aussi quelques un en lettres ; à vous de voir la cohérence de vos données.

Nota : pour mélanger, tapez la touche de fonction F9. Pour figer le mélange, copier et coller en valeur le résultat de la formule à un autre emplacement (ou bien au même emplacement)