Récupérer le Nom de l'objet Actif

**Freiya** · 11/10/2007, 11h56

Bonjour,

Je suis dans ujne feuille Excel et NON dans une USERFORM.
J'ai pleins d'objets sur ma feuille (TextBox, Combobox, Check box etc...) organisés pour former un formulaire.

A tout moment j'ai besoin de connaître le nom de l'objet activé sur ma feuille.

Existe-t-il un équivalent de l'ActiveCell. name ? avec un Objet

Suis-je obligée de boucler sur tous les objects de ma feuille pour voir celui qui est activé ?

Merci.
Bonne journée

**Gorfael** · 11/10/2007, 13h42

Salut
pas de solution
Mais le fait de vouloir savoir : le but ? On pourrait peut-être contourner le problème, mais pas assez d'indication sur le pourquoi
A+

**fred65200** · 11/10/2007, 20h17

bonsoir,

peut être que

Code :

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

1
2
 
Msgbox Me.ActiveControl.Name

placer dans l'évènement Enter peut d'aider.

fred65200

**taratata** · 14/10/2007, 01h49

salut...
Sur tous tes objets, creer des Private sub avec l'option :MouseMove

et a chaque fois que la souris passe sur l'objet tu peu ranger son nom en A1 par exemple.

Sur une feuille j'ai crée un bouton et voila le code:

Code :

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

1
2
3
4
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
Range("a1") = CommandButton1.Name
End Sub

A++++

**fred65200** · 14/10/2007, 03h19

bonjour Freyia,

je n'avais pas compris que tu n'étais pas sur un UserForm,

Comme je l'ai indiqué à taratata ici, l'expression est

Application.Caller

Cordialement
fred65200

**Freiya** · 17/12/2007, 15h12

Heumm, je suis désolée, j'avais complétement oublié cette question !!

trop débordée.

Utilité :
je voulais gérer l'utilisation du bouton TAB entre le contrôles de mon formulaire (qui n'est pas un FORM).
L'idée c'est de détecter l'évènement "Key Press" et de vérifier si c'est une TABULATION. Ensuite, je récupère le nom de l'objet actif en cours et en fonction de l'autre objet associé qui se trouve dans un tableau j'active le focus sur cet autre objet.

La réponse de fred65200 semble sympa,mais au risque de paraître blonde, qu'est ce qu'il y a dans [A1] ?

Code :

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

1
2
3
Sub NomShape()
[A1] = Application.Caller
End Sub

Merci & Bonne journée

**fred65200** · 17/12/2007, 15h19

re

Code :

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

1
2
3
Sub NomShape()
[A1] = Application.Caller
End Sub

Dansla cellule A1, tu auras le nom de l'objet cliqué.

Tu peux aussi écrire

Code :

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

1
2
3
Sub NomShape()
Range("A1") = Application.Caller
End Sub

cordialement

**Freiya** · 17/12/2007, 15h35

Sans vouloir vous déranger, merci pour la réponse.

Par dépis, pour chaque contrôle j'avais placé ce bout de code.
J'espère gagner en clarté et en poid avec votre soluce.

Code :

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

1
2
3
Private Sub TextBox_1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Then TextBox_2.Activate
End Sub

Ciao

**fred65200** · 17/12/2007, 15h41

re

je ne comprends pas ce que tu veux faire et le rapport avec le titre du post.

Tu peux éclaircir?

@+

**Freiya** · 17/12/2007, 16h01

En fait je voulais utiliser la gestion des TAB entre les contrôles :

Détection de l'évènement "Key Press" + vérification de la touche
(Ca existe la détection de l'évènement Key-Press ?)

Si c'est une TAB, je récupère le nom de l'objet actif en cours.
Je recherche dans un tableau à 2 dimensions si ce contrôle figure dans la liste de ceux que je souhaites utiliser et si c'est le cas, j'active le focus sur le contrôle associé.
Si l'ordonnancement de mes champs changent, c'est plus facile à maintenit et cela représente moins de code.

Mon code et lourds et répétitif, je souhaitez trouver des façons d'optimiser tout ça, en créant des fonctions ou .. ou autre ...

En fait j'avias (il y a longtemps) plus l'habitude de coder en PHP ... là je suis souvent bloquée.

**ouskel'n'or** · 17/12/2007, 16h09

Tu devrais tester

Code :

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

Application.OnKey "{TAB}", "NomDeLaMacro"

Regarde dans l'aide, à OnKey

**Freiya** · 17/12/2007, 16h28

Ok je regarde merci

**ouskel'n'or** · 17/12/2007, 16h34

Edit
Je crois qu'il faut mettre la ligne citée dans Workbook_Open, dans l'objet ThisworkBook... mais je ne suis pas certain. Donc, si ça ne fonctionne pas dans un module, place ta macro avec cette ligne là où je te dis

Enregistre, ferme et ré-ouvre ton fichier.
A+

**fred65200** · 17/12/2007, 16h41

re

si tu utilises le code d'ouskel'n'or, n'oublie pas de rétablir la fonction de la touche Tab

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
Private Sub Workbook_Activate()
Application.OnKey "{TAB}", "NomDeLaMacro"
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{TAB}"
End Sub
 
Private Sub Workbook_Deactivate()
Application.OnKey "{TAB}"
End Sub
 
Private Sub Workbook_Open()
Application.OnKey "{TAB}", "NomDeLaMacro"
End Sub

cordialement

**ouskel'n'or** · 17/12/2007, 16h47

Merci, Fred, c'est bon à savoir et surtout à y penser... Parfois je dis des choses sans savoir et c'est comme ça que j'oublie de dire des choses que je ne sais pas

**Freiya** · 17/12/2007, 16h47

Ok, mais juste une question vous pensez que c'est une bonne idée où il y a 10 fois plus simple et je passe à côté ?

(Sachant que j'ai plus de 60 contrôles)

**ouskel'n'or** · 17/12/2007, 16h53

Si tu as la possibilité de ne faire qu'une macro pour les 60 contrôles, c'est toujours mieux que de faire 60 macros... Mais il faudrait que nous connaissions le bout du bout de la finalité de la chose

(là, je n'ai pas bien compris tes explications

)

**Freiya** · 17/12/2007, 16h57

Bon je pensais être claire.
Le but c'est juste de povoir passer de contrôle en contrôle en utilisant la touche TAB.

(l'histoire du tableau c'était juste pour stocker l'ordonnancement des contrôles entre eux)

**ouskel'n'or** · 17/12/2007, 17h18

Envoyé par Freiya

Le but c'est juste de pouvoir passer de contrôle en contrôle en utilisant la touche TAB.

Alors tu as une autre solution très simple (solution que j'ai vu passer sur le forum et que j'ai oubliée) mais à ta place je créerais une autre discussion avec pour simple question "Comment passer d'un contrôle au contrôle suivant avec TAB, dans une feuille de calculs Excel"
Là, j'ai peur que n'ai plus de réponse de ceux qui savent vu que ton pb est résolu

Bonne chance

**Freiya** · 17/12/2007, 17h22

Je vais re-chercher merci. (car j'avais déjà cherché quand même

La solution laplus simple que j'avais trouvé c'étais celle-ci

Code :

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

1
2
3
Private Sub TextBox_1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Then TextBox_2.Activate
End Sub

Ca fonctionne, je l'ai fais pour mes 60 et quelques contrôles, mais je trouve ça moche.

Récupérer le Nom de l'objet Actif

Macros et VBA Excel

Discussions similaires

Partager

Partager