Nom du controle déclenché dans un userform

Bonjour à tous,

Je viens de faire quelques recherches mais je n'arrive pas à trouver la solution à mon problème. Lors de l'appui sur un contrôle intégré dans un userform, je cherche à récupérer le nom (ou une référence quelconque) de ce contrôle dans l'événement "Click" (ou tout autre type d'événement associé au contrôle d'ailleurs).

Exemple pour mieux comprendre:
J'ai une image appelée "IMG_VuePrecedente", et un événement

Code:

---

Private Sub IMG_VuePrecedente_Click()

---

. Lors du déclenchement de cet événement, je souhaiterais remplacer le code suivant

Code:

---

IMG_VuePrecedente.SpecialEffect = fmSpecialEffectSunken

---

par quelque chose du genre

Code:

---

Me.Controls(Application.Caller).SpecialEffect = fmSpecialEffectSunken

---

(qui bien entendu ne marche pas...)

Merci de votre aide, bonne journée.

Bonjour,

Pas certain d'avoir tout compris, mais il me semble que tu devrais t'intéresser à ActiveControl

Déjà essayé, mais malheureusement ça ne renvoie pas le contrôle sur lequel tu as cliqué. Je n'ai pas essayé de comprendre la logique mais dans mon cas il me renvoie toujours un frame de mon userform...

D'autres propositions?

Edit : Après recherche dans l'aide, activecontrol renvoie le contrôle qui a le focus, qui n'est pas forcément celui sur lequel tu as cliqué dans le cas d'un contrôle image par exemple.

Quel est le type du contrôle sur lequel tu cliques ?

Ben en fait l'exemple n'était pas vraiment choisi au hasard, puisqu'il se trouve que je clique sur un contrôle image ;)

Bon...

si ton contrôle se trouve lui même dans un container (Frame1, par exemple), deux solutions

Code:

---

Frame1.ActiveControl

---

mais également (plus drôle) :

Code:

---

ActiveControl.ActiveControl

---

Merci de tes propositions ucfoutu ;)

Malheureusement ça ne règle pas mon souci...

1) mon contrôle image en question n'est pas contenu dans un frame. Le frame dont je parlais est un autre contrôle du userform. L'image (qui me sert de bouton) est mise directement sur le userform.

2) En fait le focus était mis sur le frame dont je parle au moment de l'initialisation du userform, puisque je demande d'afficher la page 0 d'un multipage qu'il contient. J'ai enlevé cette initialisation pour voir ce qui se passais... Et ben le fourbe me met maintenant le focus sur le seul bouton (un vrai celui là, commandbutton) que contient mon userform... J'ai l'impression qu'un contrôle image ne peut pas prendre le focus (je me trompe peut-être?).

D'autres idées? :)

Edit : En fait un contrôle image peut sûrement prendre le focus tant qu'il est enabled, mais en tout cas le fait de cliquer dessus ne lui donne pas...

Attends, là ...

Il faudrait s'entendre un peu !
Voici ce que tu as écrit :

Citation:

---

J'ai une image appelée "IMG_VuePrecedente", et un événement

Code:

---

Private Sub IMG_VuePrecedente_Click(). Lors du déclenchement de cet événement, je souhaiterais remplacer le code suivant

---

---

Si tu cliques sur un contrôle, c'est le contrôle actif

Que nous racontes-tu maintenant ?

Ben oui je suis d'accord avec toi, sauf que ça ne marche pas ;)

J'ai mis un

Code:

---

debug.print me.activecontrol.name

---

au début de ma procédure événementielle et je t'assure qu'il ne me renvoie pas le nom du contrôle image sur lequel je clique... C'est bien ça qui me laisse perplexe.

Edit : Je viens de faire un test tout simple (tu peux le faire de ton côté en 1 à 2 min je pense).

Création d'un userform avec deux contrôles images et deux contrôles commandbutton (vrais boutons). Ajout de quatre procédure événementielles (une pour chaque contrôle) de type "Click", et dans laquelle je mets juste

Code:

---

debug.print me.activecontrol.name

---

.

Test du userform et analyse des résultats : lors du clic sur une image, le nom du contrôle actif renvoyé est celui du dernier bouton cliqué, lors du clic sur un bouton, le nom renvoyé est donc bien correct, correspondant au bouton cliqué.

Ça confirme ce que je disais, les contrôles images ne prennent pas le focus quand on appuie dessus...

Je ne pense donc pas que le activecontrol soit viable dans mon cas. M'enfin bon il doit quand même bien y avoir un moyen de chopper le nom du contrôle sur lequel on clique, quel que ce soit son type!!

Bon...

Je viens de lancer Excel sur mon portable)...
Tu as en effet un problème :
Certains controles sont "inertes" (c'est le cas, par exemple d'un Label, d'une Image sous VBA !
Tu n'as dans ce cas aucune autre ressource que de répéter toi-même, dans ton code du click, le nom du contrôle.
Désolé ...

Bonjour,
A partir du moment où tu ecris ta procédure dans l'évenement clic, je ne vois pas ce que empèche de faire un truc du genre

Code:

---

1 2 3 4 5

Private Sub Image1_Click() Dim nom As String nom = Image1.Name MsgBox nom End Sub

---

mais enfin.....

Bonne journée

Lol et ben tant pis, je ferais un effort pour une fois et j'arrêterais de faire mon feignant ;)

Je ne mets pas résolu tout de suite, peut-être quelqu'un connaît-il tout de même une feinte?

Salut casefayere,

En fait ce que tu proposes est justement ce que je veux éviter ;)

Je m'explique : Bien entendu je peux utiliser le nom du contrôle (c'est ce que je fais pour l'instant).

Maintenant imagine que j'ai 20 contrôles image sur lesquels je veux implémenter une procédure événementielle "Click" qui a chaque fois fait la même chose sur le bouton image sur lequel tu cliques.
Pour l'instant je suis obligé de faire des copier-coller des procédures en changeant à chaque fois le nom du contrôle. Si j'avais un moyen de récupérer le nom du contrôle sur lequel je clique, ça me permettrait de faire une procédure unique pour tous mes contrôles...

Et oui je suis un gros feignant :P Sans rire ça permet d'écrire moins de code et de le maintenir plus facilement!

Bonjour,

ok, il y a eu, voici très peu de temps, une (longue) discussion sur ce sujet, il faudrait pouvoir la retrouver, je crois que le problème a été résolu

Bonjour (re),

Bourquoi ne fais-tu alors pas tout simplement une procédure commune (appelons-là laproc), ainsi :

Code:

---

1 2 3 4 5

Private sub laproc(ctrl as control) ' et tu fais sur ctrrl ce que tu veux (instructions) ctrl.SpecialEffect = fmSpecialEffectSunken 'etc..... End sub

---

Il te suffira alors d'ajouter une ligne à chaque évènement click (pas cher)

Exemple :

Code:

---

1 2 3 4

Private Sub IMG_VuePrecedente_Click() laproc IMG_VuePrecedente ' et ce que tu veuix faire d'autre, le cas échéant... End Sub

---

Celà ne coûte pas cher et t'évite de faire une classe pour "simuler" un groupe de contrôles indexés...

Ok sur le principe, mais ça ne résout pas mon problème de feignantise ;)

Je suis toujours obligé de changer le nom du contrôle dans chaque procédure...

Dsl je suis un peu têtu, mais c'est à dire que le problème me semble tellement simple que je suis un peu dépité de ne pas arriver à trouver...

Il te faut alors faire une classe
Une petite recherche sur ce forum sur :
Pseudo : laetitia
mot-clef : classe

mais, pour un fainéant, tu vas être "servi" (tu vas avoir du boulot ...;))

EDIT :
Tiens,
fouille cette discussion :
http://www.developpez.net/forums/d71...ts-type-label/

une intervention parle du mécanisme concerné.
A comprendre et à adapter.

Citation:

---

Envoyé par ucfoutu

Bon...

si ton contrôle se trouve lui même dans un container (Frame1, par exemple), deux solutions

Code:

---

Frame1.ActiveControl

---

mais également (plus drôle) :

Code:

---

ActiveControl.ActiveControl

---

---

Effectivement le contrôle actif du contrôle actif, c'est plutôt marrant. Une mise en abîme informatique

Je voulais récupérer le nom de ma textbox dans un frame et je récupérais le nom du frame. Merci de ton post, encore utile après 9 ans ! :)

Bonjour Nagel Tha
je suis content que tu aies aimé ceci :

Code:

---

ActiveControl.ActiveControl

---

Amusant, n'est-il pas ?

Content également de constater que tu prospectes partout ;)

Il y a beaucoup beaucoup de choses que j'aime. D'ailleurs on ne voit pas qui a liké mais si on le voyait tu me verrais souvent lol et au contraire tu ne verrais quasiment aucun pouce rouge de Nagel Tha

En fait je ne cherche pas que mes réponses à moi. Si je ne me pose ni la question ni n'ai la réponse moi même je lis quand même si le sujet me paraît intéressant car je suis curieux et ça peut donner des idées ^^

Ces derniers temps j'ai vu que beaucoup sur le forum posaient directement la question sans chercher (quand la réponse est sur MSDN on peut raisonnablement penser que la personne n'a pas cherché ce qui est dommage). Je ne dis pas qu'on peut tout trouver : ça m'arrive de ne pas trouver et même s'il y a des choses (il suffit de pas être assez calé sur le sujet pour passer à côté de la réponse parfois). Du coup j'ai voulu partager la démarche (et le post qui vaut le détour selon moi). Voilà :)