Discussion :

[jhonnybegood]

Bonjour à tous,
J'ai un projet vba à effectuer, il s'agit de réaliser le jeu du memmory à l'aide de vba por excel. Comme nos cours d'info sont assez peu nombreux, mon niveau n'est pas très élevé. J'aurais voulu savoir comment générer aléatoirement 32 images qui sont les cartes du jeu (picture box). Je sais qu'il faut voir le problème sous la forme d'un tableau (array), mais je n'arrive pas à voir plus loin.

Merci d'avance.

[ouskel'n'or]

Tes 32 images existent... donc il ne s'agit sans doute pas de générer des images mais de sélectionner aléatoirement une image parmi 32.
Regarde Rnd, dans l'aide
Tu crées un tableau du nom de tes images

Code :

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

1
2
3
LesImages = Array("D:\Rep\NomImage1", "D:\Rep\NomImage2","D:\Rep\NomImage3", "D:\Rep\NomImageN",...)
NoImage = Int((32 * Rnd) + 1)
MaForm.MonImage.Picture = LoadPicture(LesImages(NoImage))

A+

[jhonnybegood]

Merci, pour la réponse. Désolé mais j'ai encore un problème qui se rajoute au précédent. J'avais oublié de préciser que le jeux fonctionne par paire de cartes, il faut donc s'arranger pour que l'ordi sélectionne par paires et non pour une carte seulement. Comment faire alors?

Merci d'avance

[ouskel'n'or]

Alors tu relances rnd dans une boucle. Si ce n'est pas la même carte que la précédente, tu gardes et tu sors de la boucle. Sinon, tu restes dans la boucle pour un nouvel rnd....
A+

Oui, j'oubliais, il te faut une deuxième image à laquelle affecter la deuxième "Picture", mais je pense que c'était prévu

[jhonnybegood]

Merci, je m'empresse de tester cela.