Discussion :

[Titahn]

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 !

[Jean-Philippe André]

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

[Titahn]

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 :

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

1
2
3
4
5
6
7
Private Sub Carte1S_Click()
 
CarteMilieuS.Visible = True
CarteMilieuS.Picture = Carte1S.Picture
Carte1S.Visible = False
 
End Sub

[Jean-Philippe André]

Dans l'idée :

Code :

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

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

[Titahn]

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 :

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

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 !

[Jean-Philippe André]

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

[Titahn]

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 =)