Discussion :

[pickatshou]

Bonjour,

Voila je cherche un code VBA Excel qui renvoi le "TYPE" d'un Control (Objet) qui a le focus, autrement dit active, dans un UserForm.
Je veux que ce code me donne le type et non pas le nom, par exemple :

si je sélectionne un TEXTBOX qui a le Nom "TBDate",je reçois la repense du code : Le type de contrôle est un TextBox
poue un COMBOBOX nommé "CBDate" : Le type de contrôle est un ComboBox

Merci Infiniment pour votre aide les amis.

[GastonLagaffe25]

Bonjour,

Une petite recherche et :

Code :

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

If TypeOf Ctrl Is MSForms.TextBox Then "Je suis un control TextBox"

et puis par exemple:
http://www.developpez.net/forums/d71...nche-userform/

[pickatshou]

Merci pour votre réponse

mais, ce que je veux mon ami,
c'est un code universelle pour tous les contrôles que ce soit un TextBox ou ComboBox même si je sélectionne un contrôle de type ListView un message apparaît pour le signaler et je précise que la repense sera on TYPE et non pas par le nom.
Quand je parcours mon UserForm avec la touche TAB chaque saute d'un objet a un autre un message apparaît et me donne son TYPE .

Encore MERCI

[GastonLagaffe25]

ce que je veux mon ami

Et bien "mon ami", je pense que "souhaiter" serait plus correct...

Sinon, le code avec "TypeOf" te permet bien d'identifier le type du contrôle.
Après pour l'utiliser, je vois une solution (il en existe certainement d'autres meilleurs):
- Créer une fonction "générique" qui identifie à partir du contrôle son type (via le "TypeOf" et par exemple "If/ElseIf" ou "Case Of")
- Exécuter la fonction depuis les propriétés "Enter" des contrôles de ton IHM...donc pas très générique...

[joe.levrai]

Bonjour,

essaye ça dans ton userform, et adapte à ton contexte

Code :

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

1
2
3
4
5
Dim Ctrl As MSForms.Control
 
For Each Ctrl In Me.Controls
    MsgBox TypeName(Ctrl)
Next Ctrl

[clementmarcotte]

Et bien "mon ami", je pense que "souhaiter" serait plus correct...

Il veut aussi qu'on lui trouve un pack tout fait de contrôles ActiveX. Il n'a même pas l'air de savoir qu'il y a une multitude de contrôles ActiveX, ni qu'il y a une multitude de fabricants de contrôles ActiveX.