Alternative à une multitude de procédures _click dans un userform

Bonjour,

Semi-néophyte en matière de VBA, je me heurte à un petit problème, et ce cher google n'a pas su m'aider.

Dans un userform, j'ai un bon nombre d'images, 32 pour être précis. Et j'aimerais associer à toutes des effets en cas de clics. Mais les effets étant quasi-identiques pour toutes les images, si je pouvais éviter de créer 32 procédures avec la même chose dedans, ça m'arrangerait.

J'avais commencé à orienter mes recherche en tablant sur les collections (concept que je n'ai jamais utilisé), mais même en supposant que j'ai ma jolie collection de tous mes boutons, je ne vois pas trop quoi faire ensuite pour à chacun leur attribuer le même effet en cas de clic.

C'est pourquoi je m'en remets humblement à vous.

Merci !

Hello,

sans forcément partir sur des modules de classes, tu peux très bien faire une fonction à laquelle tu passerais en paramètre "l'image" et qui ferait un traitement spécifique :)

L'événement clic déclencherait la dite fonction/procédure :)

Pourrais-je abuser de ta bonté et te demander un bout de code d'exemple ?

À titre indicatif, si ça peut aider, ce serait pour automatiser pour toutes les images un truc similaire à ça (sur lequel je rajouterai plein de trucs par la suite, mais si ça tourne déjà de façon basique (huhu ^^) je serai un homme heureux, et devrait m'en sortir !

Code:

---

1 2 3 4 5 6 7

Private Sub Carte1S_Click()   CarteMilieuS.Visible = True CarteMilieuS.Picture = Carte1S.Picture Carte1S.Visible = False   End Sub

---

Dans l'idée :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Carte1S_Click() MajImage Me.Carte1S End Sub   Private Sub MajImage(Btn as access.CommandButton) Btn.Visible = True MilieuS.Picture = Btn.Picture Btn.Visible = False End Sub

---

Je me suis probablement mal exprimé, mais il me semble que ton code crée juste une procédure (MajImage) pour ne plus à avoir à écrire à chaque fois toutes les étapes de la procédure générée par un clic sur une image.

Mon problème était que j'ai 32 images, et du coup je voulais éviter un pavé de code ressemblant à :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Private Sub Carte1S_Click()   CarteMilieuS.Visible = True CarteMilieuS.Picture = Carte1S.Picture Carte1S.Visible = False   End Sub   Private Sub Carte2S_Click()   CarteMilieuS.Visible = True CarteMilieuS.Picture = Carte2S.Picture Carte2S.Visible = False   End Sub   Private Sub Carte3S_Click()   CarteMilieuS.Visible = True CarteMilieuS.Picture = Carte3S.Picture Carte3S.Visible = False   End Sub   Private Sub Carte4S_Click()   CarteMilieuS.Visible = True CarteMilieuS.Picture = Carte4S.Picture Carte4S.Visible = False   End Sub

---

Etc. pour les 32 images. Mais plutôt avoir une commande un tantinet plus courte spécifiant, en gros :
"Si on clique sur n'importe laquelle de ces 32 images, alors..."

Ça n'est pas dramatique au demeurant, et au pire, au bout de quelques copier/coller je finirai par m'en sortir en y allant brutalement, mais j'ai comme l'intuition qu'il y a moyen de simplifier pas mal la tâche !

Le plus long certes mais le plus efficace serait de lire l'excellent article de Pierre
http://fauconnier.developpez.com/art...neral/classes/

avec notamment le chapitre sur les évènements
http://fauconnier.developpez.com/art...classes/#LIV-E

Comme c'est pour tuer le temps durant les "quelques" temps mort que je peux avoir pendant mon stage, à essayer de me faire mon petit jeu de carte, la solution un peu plus longue, mais efficace, me convient parfaitement !

Merci de ton aide =)