Discussion :

[Otis07]

Bonjour.
Mon objectif est de mélanger les valeurs d'une de mes tables. Celle ci contient 112 enregistrements et je souhaite les mélanger pour que ces enregistrements ne soient plus rangés par ordre croissant (par rapport au NumeroAuto)
J'ai donc trouver cette solution:
Ceci dans un nouveau module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function Randomizer() As Integer
Static AlreadyDone As Integer
     If AlreadyDone = False Then Randomize: AlreadyDone = True
Randomizer = 0
End Function

et ceci dans une requête SQL:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
SELECT TOP 112 TableCarte.*
FROM TableCarte
WHERE randomizer()=0
ORDER BY rnd(isnull(TableCarte.clef)*0+1);

Alors j'ai bien un mélange qui s'effectue mais il subsiste 2 questions:
-Quand je valide la requête, une fenêtre n'affiche pour me demander d'entrer la valeur du paramètre "TableCarte.clef". A quoi correspond cette question?
-Je peux mettre différentes valeurs et j'obtient toujours le même ordre de mélange, c'est a dire que même si je ferme access puis le relance, j'ai le même tri. Comment faire pour en avoir un différent a chaque fois que je lance la requête?

Merci de votre aide

[ilank]

Bonjour,
personnellement j'opterai pour la création d'une table temporaire récupérant les 112 cartes.
Les champs NuméroAuto par défaut sont en mode autoincrement mais ils peuvent être placés en mode aléatoire. Ce mode se sert de la fonction Rnd() pour établir la plage de valeurs à générer pour les nouveaux enregistrements.
Dans ton cas, je me baserai sur une fonction ou deux requêtes qui 1) vide la table temporaire si elle ne l'est pas déjà, 2) copie les 112 cartes dans cette table ayant pour clé primaire un champ numéroauto aléatoire. Ainsi, à chaque appel, les cartes auront une clé aléatoire dans la table temporaire, quelque soit ensuite le tri appliqué tu ne peux prévoir l'ordre des cartes.

[Otis07]

Merci de répondre et de proposer une solution à mon problème, mais à vrai dire, je suis un novice a access. Donc je t'avoue ne pas trop savoir comment m'y prendre, même si je comprends ton idée directrice.
C'est a dire que je dois créer une table similaire à celle où il y a les 112 enregistrements puis la remplir grâce a un code qui transférera les valeur de façon aléatoire dans cette table. Mais comment procéder, car je ne sais même pas créer un code pour une table ( les boutons sur formulaire etc ok, mais la je ne sais pas pas quoi commencer)

[ilank]

Ok, pour être clair peux-tu me donner le nom de la table ainsi que le nom des champs qu'elle contient.
En attendant voici un exemple :

Une table TblCartes qui contient 3 champs :
- Clef : clé primaire (numéroauto)
- Couleur : la couleur de la carte
- Valeur : la valeur de la carte
Pour effectuer un tirage aléatoire je crée une nouvelle table identique à tblCartes TblMelange excepté la propriété Nouvelles Valeurs de la clé primaire.
- Clef : Clé primaire (numéroauto - Nouvelles valeurs : aléatoire)
- Couleur : la couleur de la carte
- Valeur : la valeur de la carte

Maintenant, je crée un formulaire sur lequel je place un bouton pour effectuer un mélange. J'appelle le bouton CmdMelange. Puis j'écris ce code pour le bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CmdMelange_Click()
 'Vider la table TblMelange avant de procéder
 CurrentDb.Execute "DELETE * FROM TblMelange"
 'Remplis les champs de la table TblMelange
 'Je laisse Access créer les clefs en prenant que les champs Couleur et Valeur
 CurrentDb.Execute "INSERT INTO TblMelange SELECT Couleur, Valeur FROM TblCartes"
End sub

Voilà, à chaque clique la table TblMelange est vidée puis remplie des 112 cartes de la table TblCartes, les clefs sont maintenant aléatoires. Que la table TblMelange soit triée par odre croissant ou décroissant, l'ordre de sortie est toujours différent.

[Otis07]

Alors ma table est "TableCarte" possédant les champs suivants:
ID_Cartes (NumeroAuto)
NomCarte
CouleurCarte
ValeurCarte

Donc dans cette table, j'ai 112 enregistrements.
Ensuite, je crée une nouvelle table "TableMelangeCarte", ayant les meme champs que la précédente. Ensuite, j'écris le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub BtnMelanger2_Click()
'Vider la table TblMelange avant de procéder
 CurrentDb.Execute "DELETE * FROM TableMelangeCarte"
 'Remplis les champs de la table TblMelange
 'Je laisse Access créer les clefs en prenant que les champs Couleur et Valeur
 CurrentDb.Execute "INSERT INTO TableMelangeCarte SELECT CouleurCarte, Valeurcarte,NomCarte FROM TableCarte"
 
End Sub

Sauf que le code me rajoute bien mes cartes dan la nouvelles table mais toujours dans le même ordre que celui de ma première table. Ne faut il pas utiliser la fonction Randomize ?

[ilank]

As-tu bien précisé pour la clé primaire de la nouvelle table que les nouvelles valeurs devaient être aléatoires et non incrémentés ? Dans la table en mode création/modification, dans les propriétés du champ sous la liste des champs, il y a une proriété Nouvelles Valeurs, choisis aléatoire.
Si oui, fais un tri sur la clé primaire. Puisque les clés sont aléatoires le tri l'est aussi. Pour éviter de trier à chaque fois, effectue dans la table un tri sur la clé primaire et enregistre la table; le tri est enregistré aussi.

[Otis07]

Merci, effectivement j'avais oublier de changer cette option. Je te remercie de ton aide précieuse. C'est gentil de partager tes connaissances.